Практична робота "Двовимірний масив"

 

Опис глобальних змінних 

var

  Form1: TForm1;

  Tur: array[1..5,1..6] of integer; 

Процедура створення форми

procedure TForm1.FormCreate(Sender: TObject);

 var i,j: integer;

begin

   for i:=1 to 5 do  StringGrid1.Cells[0,i]:=IntToStr(i);

   for j:=1 to 5 do  StringGrid1.Cells[j,0]:=IntToStr(j);

  StringGrid1.Cells[6,0]:='Сума';

end;        

Кнопка "Занести бали до таблиці"

procedure TForm1.Button1Click(Sender: TObject);

 var i,j: integer;

begin

  for i:=1 to 5 do

    for j:=1 to 5 do

      Tur[j,i]:=StrToInt(StringGrid1.Cells[j,i]);

end;   

Кнопка "Сума балів"

procedure TForm1.Button2Click(Sender: TObject);

 var i,j,S: integer;

begin

    for i:=1 to 5 do  begin

      S:=0;

      for j:=1 to 5 do

      S:=S+Tur[j,i];

      StringGrid1.Cells[6,i]:=IntToStr(S);

    end;

end;   

Кнопка "Визначити рейтинг"

procedure TForm1.Button3Click(Sender: TObject);

 var i,n,k: integer;

begin

  k:=0;

  for n:=8 downto 0 do

   for i:=1 to 5 do

   if Tur[i, 6]=n then

     begin

      Memo1.Lines[k]:=IntToStr(i);

      k:=k+1;

end;

 end;  

Кнопка "Визначити переможців"

procedure TForm1.Button4Click(Sender: TObject);

begin

    ListBox1.Items.Add('І місце - '+ Memo1.Lines[0]+' команда');

    ListBox1.Items.Add('ІІ місце - '+ Memo1.Lines[1]+' команда');

    ListBox1.Items.Add('ІІІ місце - '+ Memo1.Lines[2]+' команда');

end;