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

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

Материал туралы қысқаша түсінік
Колледж студенттеріне арналған.С++ Builder ортасының визуальды және визуальды емес компоненттері
Авторы:
Автор материалды ақылы түрде жариялады. Сатылымнан түскен қаражат авторға автоматты түрде аударылады. Толығырақ
09 Маусым 2021
358
0 рет жүктелген
770 ₸
Бүгін алсаңыз
+39 бонус
беріледі
Бұл не?
Бүгін алсаңыз +39 бонус беріледі Бұл не?
Тегін турнир Мұғалімдер мен Тәрбиешілерге
Дипломдар мен сертификаттарды алып үлгеріңіз!
Бұл бетте материалдың қысқаша нұсқасы ұсынылған. Материалдың толық нұсқасын жүктеп алып, көруге болады
logo

Материалдың толық нұсқасын
жүктеп алып көруге болады

Shape2

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");

}

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





Ресми байқаулар тізімі
Республикалық байқауларға қатысып жарамды дипломдар алып санатыңызды көтеріңіз!
Осы аптаның ең үздік материалдары
Педагогтардың біліктілігін арттыру курстары
Аттестацияда (ПББ) 100% келетін
тақырыптармен дайындаймыз
Аттестацияда (ПББ) келетін тақырыптар бойынша жасалған тесттермен дайындалып, бізбен бірге тестілеуден оңай өтесіз
Өткен жылы бізбен дайындалған ұстаздар 50/50 жинап рекорд жасады
Толығырақ