{ y=abs(r-m);
cout<<”Funksiya 2-shart asosida aniqlandi, y=”<
} getch();
Return 0
}
//-------------------------------------------------------------------
4.Tarmoqlanuvchi
jarayonlarni Forma
ilovasida bajarish
Forma ilovasida tarmoqlanuvchi jarayonlarni dasturlashda Standart
komponentlar guruhiga
mansub
TradioCroup
komponentasidan ham foydalanish mumkin.
- piktogrammani tanlaganda va Formaga joylashtirilganda to’g’rito’rtburchakli soha paydo
bo’ladi, uning sarlavhasi
TradioCroup1.
Object inspector bo’limida
items xossasi ustiga
sichqonchani 2 marta bosilsa matn
muharririning String List Editor oynasi ochladi.
Oynaning
har bir qatoriga shartlarni ifodalovchi matn qatorlari kiritiladi. Masalan, 1- chisi “a>0”, 2-chisi
“a<0”. Muharrir har bir qatorni tartiblab boradi, masalan, 0,1,2,…. Shundan so’ng “ ok” tugmasi
bosiladi. Shaklda o’ralgan chiziq ichida tanlash tugmalari chiqadi.
Dasturda kerakli qatorni tanlash uchun Case operatori selektori sifatida
RadioGroup1.ItemIndex
funksiyasi ishlatiladi.
Yuqorida 1-misolda
berilgan Y funksiyasining qiymatini aniqlash uchun Forma ilovasini
yaratamiz (14-rasm):
14-rasm. Forma ilovasining boshlang’ich ko’rinishi
Dastur kodini quyidagi ko’rinishda yozib olamiz va uni ishga tushiramiz:
//-------------------------------------------------------------------
#include
#include
#pragma hdrstop
#include “Unit15.h”
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource “*.dfm”
Tform1 *Form1;
//-------------------------------------------------------------------
__fastcall Tform1::Tform1(Tcomponent* Owner)
: Tform(Owner)
{
}
//-------------------------------------------------------------------
void __fastcall Tform1::Button1Click(Tobject *Sender)
{ float m,r,y;
r = StrToFloat(Edit1->Text);
m= StrToFloat(Edit2->Text);
if r>=m+1
{ RadioGroup1->ItemIndex = 0;
y=(4*r+3*sqr(m))/(r-m);
label3->Caption=(“y=”+floattostr(y))
}
if r
{ RadioGroup1->ItemIndex =1;
y=abs(r-m);
label3->Caption=(“y=”+floattostr(y))
