Тәжірбиелік жұмыс №26
Тапсырма: Жұп сандар қосындысын табатын бағдарламаны құру.
Орындалуы:Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1),Edit(1), және Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (52-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(26-кесте).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Анықтау |
Lable1 |
Properties |
Caption |
Санды енгізіңіз |
52-сурет. Форма түрі.
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var s,k,i:integer;
begin
k:=strtoint(edit1.Text);
s:=0;
for i:=1 to k do
if I mod 2=0 then
s:=s+i;
Label2.caption:=IntToStr(s);
end;
end.
53-сурет. Нәтиже.
Тәжірибелік жұмыс №27
Тапсырма: Тақ сандар қосындысын табатын бағдарламаны құру.
Орындалуы:Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1),Edit(1), және Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (54-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз(Кесте 27).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Табу |
Lable1 |
Properties |
Caption |
Тақ сан енгізіңіз |
54-сурет. Форма түрі.
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var
s,k,i:integer;
begin
k:=strtoint(edit1.Text);
s:=0;
for i:=1 to k do
if I mod 2=1 then
s:=s+i;
Label2.caption:=IntToStr(s);
end;
end.
55-сурет. Нәтиже.
Тәжірибелік жұмыс №28
Тапсырма: Факториалды есептейтін бағдарлама құру.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1),Edit(1), және Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (56-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 28).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Есептеу |
Lable1 |
Properties |
Caption |
Санды енгізіңіз |
56-сурет. Форма түрі.
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var
s,k,i:integer;
begin
k:=strtoint(edit1.Text);
s:=1;
for i:=1 to k do
s:=s*i;
Label2.caption:=IntToStr(s);
end;
end.
57-сурет. Нәтиже.
Тәжірибелік жұмыс №29
Тапсырма: StringGrid арқылы массив бағдарламасын құру.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға StringGrid(1),Button(1), және Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (58-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз
(Кесте 29).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Есептеу |
Lable1 |
Properties |
Caption |
Санды енгізіңіз |
StringGrid1 |
Properties |
ColCount |
5 |
|
RowCount |
1 |
58-сурет. Форма түрі.
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..5] of integer;
sum:integer;
i:integer;
begin
for i:=1 to 5 do
if Length(StringGrid1.Cells[i-1,0])<> 0
then a[i]:=StrToInt(stringgrid1.Cells[i-1,0])
else a[i]:=0;
sum:=0;
for i:=1 to 5 do
sum:=sum+a[i];
Label2.Caption:='ЭЛЕМЕНТТЕРИ:'+IntToStr(sum);
end;
end.
59-сурет. Нәтиже.