Практикалық жұмыс
Тақырыбы: Массивтермен жұмыс
Мақсаты: Массивтермен жұмыс істеу негізгін меңгерту
Жұмыстың
барысы: төмендегі берілген мысалдарды Delphi ортасында орындау керек.
Мысалы:
Массив элементерін анықтау(енгізу) жолдарын қарастырамыз
var
a: array[1..5] of
string[10]=('Тобол','Динамо','Кайрат','Спартак','Барыс'); // Жолдық массив
j: integer;
//
«Жолдық массив» батырмасы
procedure
TForm1.Button4Click(Sender: TObject);
begin
//
Экранға жолдық массивтің элементтерін бір бағанға
шығару
for j:=1 to 5 do
label3.Caption:=
label3.Caption + inttostr(j)+'. '+a[j]+#13;
end;
//
«Қосынды» батырмасы
procedure
TForm1.Button5Click(Sender: TObject);
var
x: array[1..5] of
integer; // бүтін санды массив
z,k: integer;
begin
//
StringGrid1- компонентінің ұяшықтарына енгізілген сандарды
//
x[k] массивіне меншіктеу
for k:=1 to 5 do
x[k]:= StrToInt(StringGrid1.Cells[k-1,0]);
z:=0; // қосынды
for k:=1 to 5 do
z:=z+x[k]; // элементтердің қосындысын есептеу
label4.Caption:=inttostr(z);
// нәтижесін экранға шығару
end;
//
«Енгізу» батырмасы
procedure
TForm1.Button1Click(Sender: TObject);
const n=5; // массив
элементтерінің саны
var
m,i: integer; st:
string;
y: array[1..n] of
string;
begin
m:=TntMemo1.Lines.Count;
// Memo1-дегі жолдардың саны
if m = 0 then begin ShowMessage('Деректер жоқ');
Exit; end;
if m>n then
begin
ShowMessage('Элементтер өте көп,
массив өлшемі 5 элементтен тұрады.');
m:=n;
end;
//
Memo1-дегі деректерді у[i] массивке
меншіктеу
for i:=1 to m do
у[i]:=Form1.TntMemo1.Lines[i-1];
if m>0 then
begin
st:='Массив элементтері:'+#13;
for i:=1 to m do
st:=st+IntToStr(i)+'-ші '+ y[i]+#13; // st -ға
бір бағанға жинақтау
ShowMessage(st); //
экранға шығару
end;
end;