Курсовая работа: Объектно-ориентированная разработка программ

b[i] := 1 + Random(99); // заполняем массив случайными числами

end;

Label7.Visible:=False;

Label8.Visible:=False;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

with StringGrid1 do

for i:=1 to size do

begin

Cells[i-1,0]:=IntToStr(a[i]);

Cells[i-1,1]:=IntToStr(b[i]);

end;

max_a :=1;

max_b :=1;

for i:=2 to size do

begin

if a[i] > a[max_a] then max_a := i;

if b[i] > b[max_b] then max_b := i;

end;

Label7.Visible:=True;

Label7.Caption:='МаксимальныйэлементмассиваА :'+IntToStr(a[max_a])

+#13+'Номер элемента в массиве А :'+ IntToStr(max_a)

+#13+'Максимальный элемент массива В :'+IntToStr(b[max_b])

+#13+'Номер элемента в массиве В :'+ IntToStr(max_b);

buf:= a[max_a];

a[max_a]:= b[max_b];

b[max_b]:= buf;

with StringGrid2 do

К-во Просмотров: 478
Бесплатно скачать Курсовая работа: Объектно-ориентированная разработка программ