Назар аударыңыз. Бұл материалды сайт қолданушысы жариялаған. Егер материал сіздің авторлық құқығыңызды бұзса, осында жазыңыз. Біз ең жылдам уақытта материалды сайттан өшіреміз
Жақын арада сайт әкімшілігі сізбен хабарласады
Бонусты жинап картаңызға (kaspi Gold, Halyk bank) шығарып аласыз
С++ 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");
}
//--------------------------------------------------------------------------