Texnik tizimlarda axborot texnologiyalari

Misolning berilishi
Berilgan qiymatlar
1		x=2,7 b=3,2 a=1,(-1)

Berilgan misolning blok-sxemasi(3.1-rasm):

3.1-rasm. Masalani yechish algoritmi.

Formaning ko’rinishini shakllantiramiz. Formada quyidagi komponentalarni o’rnatamiz: 4ta Label, 3ta Edit va 2ta Button (Natija va chiqish). Formaga TRadioCroup1 komponentasini joylashtirib, Object inspectordan Items xossasini o’rnatib, qator uchun shartni o’rnatamiz(3.2-rasm).

3.2-rasm. Formaning ko’rinishi.


Unit1.H fayl oynasida tanlangan komponentalar quyidagi ko’rinishda bo’ladi:

#ifndef Unit1H

#define Unit1H
//------------------------------------------------------------------------
#include
#include
#include
#include
//------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TLabel *Label2;
TLabel *Label3;
TLabel *Label4;
TEdit *Edit1;
TEdit *Edit2;
TEdit *Edit3;
TButton *Button1;
TRadioGroup *RadioGroup1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//------------------------------------------------------------------------
#endif


Dastur kodi:
//------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
//------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------------------------
fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{ float a,b,x,y;
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
x=StrToFloat(Edit3->Text);
if(a>0) { y=3*x*x-3*a*b*x; RadioGroup1->ItemIndex=0;
Label4->Caption="y="+FloatToStr(y);};
else {y=13*a-b*b*x; RadioGroup1->ItemIndex=1;
Label4->Caption="y="+FloatToStr(y);}
}
//------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{ Close(); }
//------------------------------------------------------------------------