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
Достарыңызбен бөлісу: |