Практикалық жұмыс

Тақырыбы:    Массивтермен жұмыс

Мақсаты:  Массивтермен жұмыс істеу негізгін меңгерту

Жұмыстың барысы: төмендегі берілген мысалдарды 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;