С++ Builder ортасының визуальды және визуальды емес компоненттері

№ 1 тәжірбиелік жұмыс

Тақырыбы:«С++ Builder ортасының визуальды және визуальды емес компоненттері. Сызықтық алгоритмдерді программалау.Құрама операторлар. Тармақталу, қайталану алгоритмдерін программалау. Таңдау. Цикл операторлары.Құрама операторлар. Do …while операторы»

Тапсырма №1

Қабырғаларының мәндері бойынша тік төртбұрыштың ауданы мен периметрін есептейтін бағдарлама құрыңыз.

Бағдарлама коды:

#include <vcl.h>

#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)

{

double a,b;

a=StrToFloat(Edit1->Text);

Memo1->Lines->Add("a="+Edit1->Text);

b=StrToFloat(Edit2->Text);

Memo1->Lines->Add("a="+Edit2->Text);

double p=(a+b)/2;

double s=a*b;

Memo1->Lines->Add("Perimetr="+FloatToStrF(p,ffFixed,8,3));

Memo1->Lines->Add("Audan="+FloatToStrF(s,ffFixed,8,3));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0";

Edit2->Text="0";

Memo1->Clear();

Memo1->Lines->Add("¹1 tapsyrma");

}

//---------------------------------------------------------------------------

Нәтижесі:

Тапсырма №2

Берілген мәндер бойынша сызықтық алгоритмді орындау:

Бағдарлама коды:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "math.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

double x,y,z;

x=StrToFloat(Edit1->Text);//x manin oku

Memo1->Lines->Add("a="+Edit1->Text);//x manin memo1 terezesine shygaru

y=StrToFloat(Edit2->Text);//y manin oku

Memo1->Lines->Add("a="+Edit2->Text);//y manin memo1 terezesine shygaru

z=StrToFloat(Edit3->Text);//z manin oku

Memo1->Lines->Add("a="+Edit3->Text);//z manin memo1 terezesine shygaru

//Syzyktyk algoritmdi esepteu

double a=pow(tan(x+y),2);

double b=exp(y-z);

double c=sqrt(cos(x*x)+sin(z*z));

double u=a-b*c;

//natyjeny Memo1 komponentyne shygaru

Memo1->Lines->Add("u natyjesy="+FloatToStrF(u,ffFixed,8,3));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0";//x bastapki many

Edit2->Text="0";//y bastapki many

Edit3->Text="0";//z bastapki many

Memo1->Clear();//memo1 komponentyn tazalau

//memo1 komponentyne jol engizu

Memo1->Lines->Add("¹2 tapsyrma");

}

//---------------------------------------------------------------------------

Нәтижесі:

Тапсырма №3

X,y,z үштүрлі мәндердің u=sin(x),u=cos(x) немесе u=tg(x) есептеу.

Бағдарлама коды:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "math.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{ double x,y,z,u,ma;

x=StrToFloat(Edit1->Text);//x manin oku

Memo1->Lines->Add("x="+Edit1->Text);//x manin memo1 terezesine shygaru

y=StrToFloat(Edit2->Text);//y manin oku

Memo1->Lines->Add("y="+Edit2->Text);//y manin memo1 terezesine shygaru

z=StrToFloat(Edit3->Text);//z manin oku

Memo1->Lines->Add("z="+Edit3->Text);//z manin memo1 terezesine shygaru

// funkcia tandau

switch(RadioGroup1->ItemIndex)

{

case 0:u=cos(x);break;

case 1:u=sin(x);break;

case 2:u=tan(x);break;

}

if(CheckBox1->Checked)

{

u=fabs(u);

y=fabs(y);

z=fabs(z);

}

if(u>y) ma=u; else ma=y;

if(z>ma) ma=z;

if(CheckBox1->Checked)Memo1->Lines->Add("maxabc="+

FloatToStrF(ma,ffFixed,8,6));

else Memo1->Lines->Add("max="+FloatToStrF(ma,ffFixed,8,6));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0";

Edit2->Text="0";

Edit3->Text="0";

Memo1->Clear();

Memo1->Lines->Add("№3 tapsyrma");

}

//--------------------------------------------------------------------------

Нәтижесі:

Тапсырма №4

H қадаммен X1 бастап X2 дейінгі интервалдағы S(x) фунция мәнінің өзгеру кестесін шығаратын бағдарлама құру.

Бағдарлама коды:

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "math.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{ double x1,x2,x,h,a,s;

int n;

x=x1=StrToFloat(Edit1->Text);

Memo1->Lines->Add("x1="+Edit1->Text);

x2=StrToFloat(Edit2->Text);

Memo1->Lines->Add("x2="+Edit2->Text);

n=StrToFloat(Edit3->Text);

Memo1->Lines->Add("n="+Edit3->Text);

h=StrToFloat(Edit4->Text);

Memo1->Lines->Add("h="+Edit4->Text);

int c=-1;

do{

x+=h;

double a=1,s=1;

for(int k=1;k<=n;k++)

{

a=c*a*x/k;

s+=a;

}

Memo1->Lines->Add("x="+FloatToStrF(x,ffFixed,8,2)+" суммасы="+

FloatToStrF(x,ffFixed,8,2));

}

while(x<x2);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Text="0";

Edit2->Text="0";

Edit3->Text="0";

Edit4->Text="0";

Memo1->Clear();

Memo1->Lines->Add("№4 tapsyrma");

}

//--------------------------------------------------------------------------