Тәжірибелік жұмыс №16
Тапсырма: Матрицаның тақ сандарын ғана қосатын бағдарлама құру.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Edit(1), Button(2), StringGrid(1) компоненттерін алып, форманы келесі түрге келтіреміз (31-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 16).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
'Есептеу' |
Button2 |
Properties |
Caption |
'Шығару' |
Edit1 |
Properties |
Text |
' ' |
31-сурет. Форма түрі.
var
a:array [1..20,1..20] of integer;
i:integer;
j:integer;
sum:integer;
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:= 1 to 3 do
for j:= 1 to 3 do
begin
a[i,j]:=random(20);
Stringgrid1.Cells[i,j]:=inttostr(a[i,j]);
end;
end;
Button2 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button2Click(Sender: TObject);
begin
sum:=0;
for i:= 1 to 3 do
for j:= 1 to 3 do
if (i+j) mod 2=1 then
sum:=sum+a[i,j];
edit1.Text:=inttostr(sum);
end;
end.
32-сурет. Нәтиже.
Тәжірибелік жұмыс №17
Тапсырма: Матрицаның жұп сандарын ғана қосатын бағдарлама құру.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Edit(1), Button(2), StringGrid(1) компоненттерін алып, форманы келесі түрге келтіреміз (33-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 17).
Компонент |
Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
'Есептеу' |
Button2 |
Properties |
Caption |
'Шығару' |
Edit1 |
Properties |
Text |
' ' |
33-сурет. Форма түрі.
var
a:array [1..20,1..20] of integer;
i:integer;
j:integer;
sum:integer;
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
for i:= 1 to 3 do
for j:= 1 to 3 do
a[i,j]:=random(20);
Stringgrid1.Cells[i,j]:=inttostr(a[i,j]);
end;
Button2 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button2Click(Sender: TObject);
begin
sum:=0;
for i:= 1 to 3 do
for j:= 1 to 3 do
if (i+j) mod 2=0 then
sum:=sum+a[i,j];
edit1.Text:=inttostr(sum);
end;
end.
34-сурет. Нәтиже
Тәжірибелік жұмыс №18
Тапсырма: 1 санды жасыратын бағдарламаны құру.
Орындалуы:Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1),Edit(1),Memo(1), Label(1) компоненттерін алып, форманы келесі түрге келтіреміз (35-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 18).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
'Тап!' |
Label1 |
Properties |
Caption |
'Санды енгізіңіз' |
Edit1 |
Properties |
Text |
' ' |
35-сурет. Форма түрі.
var x: integer;
Form1компонентінің OnActivate қасиетіне келесі кодты жазамыз:
procedure TForm1.FormActivate(Sender: TObject);
begin
x:=random(100);
Edit1.Setfocus;
Caption:='0...100 аралыгындагы санды тап';
label1.Caption:='Санды енгизиниз';
end;
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var
y: integer;
begin
y:=strtoint(trim(edit1.text));
Edit1.text:='';
edit1.SetFocus;
if tag=0 then
if x<y then //угадывание числа
Memo1.Lines.Add('x <'+inttostr(y))
Else
begin
memo1.lines.clear;
messageBeep (MB_Ok);
ShowMessage('Сіз таптыныз!!! Кайталаганыз келсе,'+#13+' енгізу аймагына 1-ді
енгизиниз.');
TAG:=1;
END
else
randomize;
X:=RANDOM(101);
lABEL1.CAPTION:='Санды енгизиниз!';
TAG:=0;
Edit1.setfocus
end;
end.
36-сурет. Нәтиже.