Алматы экономика және статистика академиясы

82 
 
Практикалық жҧмыс№4. . C++ Bulder ортасында командалық кнопканы 
басқанда санақ жҥретін қосымшаны  қҧру. 
Мысал  4. Командалық кнопкаға басқанда y=sin(x) функциясының мәнін x=-1 ден 
x=1 дейін 0,1 қадаммен шығаратын программа құрыңдар.Нәтижені ListBox1компонентінің 
ішіне кесте түрінде тӛмендегідей шығарыңыздар: 
x               y 
-1.0          -0.8 
………………. 
 //--------------------------------------------------------------------------- 
#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) 
{ 
if(Edit1->Text!="") 
ListBox1->Items->Add(Edit1->Text); 
Edit1->Text=""; Edit1->SetFocus(); 
 } 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
if (ListBox1->ItemIndex!=-1) 
ListBox1->Items->Delete(ListBox1->ItemIndex); 

83 
 
else 
ShowMessage("выделитеэлемент"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button3Click(TObject *Sender) 
{ 
Button3->Caption=ListBox1->Items->Count; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button4Click(TObject *Sender) 
{ 
int n,k; 
k=ListBox1->ItemIndex; 
n=ListBox1->Items->Count; 
if(ListBox1->ItemIndex!=0) 
ListBox1->ItemIndex=k-1; 
else 
ListBox1->ItemIndex=n-1; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button5Click(TObject *Sender) 
{ 
int n,k; 
k=ListBox1->ItemIndex; 
n=ListBox1->Items->Count; 
if(ListBox1->ItemIndex!=n-1) 
ListBox1->ItemIndex=k+1; 
else 
ListBox1->ItemIndex=0; 
} 
//--------------------------------------------------------------------------- 
 
Практикалық жҧмыс№5. C++ Bulder ортасында ComboBoxкомпонентін 
пайдаланыпқосымша  қҧру. 
Мысал  5.  Enter  пернесін  басқанда  араласқан  тізімді  бүтін  сандармен  толтыратын 
және    Среднеедеген  кнопканы  басқанда  тізім  элементтерінің  орташа  мәнін  есептейтін 
қосымша құрыңыздар.  

84 
 
 
//--------------------------------------------------------------------------- 
#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::ComboBox1KeyPress(TObject *Sender, char &Key) 
{ 
if(Key==13) 
{ComboBox1->Items->Add(ComboBox1->Text); 
ComboBox1->Text=""; } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
int s,n; 
float sr; 
s=0; 
for(n=0;nItems->Count;n++) 
s+=StrToInt(ComboBox1->Items->Strings[n]); 
sr=(float)s/ComboBox1->Items->Count; 

85 
 
Edit1->Text=FloatToStr(sr); 
} 
 
Практикалық жҧмыс№6. C++ Bulder ортасында Memo компонентін 
пайдаланып қосымша  қҧру. 
 
Тапсырма 1. 0 мен 1 –дің арасында кездейсоқ сандар шығатын, командалық кнопкаға 
басқанда текстік  ӛріске түскен санды санды тексеріп, егер ол кездейсоқ саннан кіші 
болса, онда Memo1 ӛрісіне X<сан егер үлкен болса Х>сан деген нәтиже шығаратын, егер 
енгізілген сан кездейсоқ санға тең болса «Угадали», деген Memo1  ӛрісіне Х= сан деген 
мәліметтер шығаратын қосымша құрыңыздар. 
 
//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
#include  
#include "memo1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::FormActivate(TObject *Sender) 
{ 
randomize(); 
X=random(1000); 

86 
 
Edit1->SetFocus(); 
Edit1->Text=""; 
Memo1->Clear(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
Y=StrToInt(Edit1->Text); 
Edit1->SetFocus(); 
Edit1->Text=""; 
if(XMemo1->Lines->Add("X<"+IntToStr(Y)); 
if(X>Y) 
Memo1->Lines->Add("X>"+IntToStr(Y)); 
if(X==Y) 
{ 
Memo1->Lines->Add("X="+IntToStr(Y)); 
Label1->Caption="Угадали";} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
Close();         
} 
//--------------------------------------------------------------------------- 
 
Практикалық жҧмыс №7.  Создание приложений в среде C++ Bulder  с 
применением массивов. 
Задание 1.  
 
 
 
 
 
 
 
Project1 
Введенный массив 
1………….. 
2………….. 
3………….. 
4………….. 
5………….. 
 
 
OK