
15.04.2013, 20:38
|
Прохожий
|
|
Регистрация: 25.09.2012
Сообщения: 36
Репутация: 10
|
|
Упорядочить элементы главной диагонали в порядке убывания
Код:
procedure TForm1.Button1Click(Sender: TObject);
var mas:array [1..4,1..4] of integer;
mas2:array [1..4] of integer;
i,j,buf,min,imin:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do
mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 4 do
mas2[i]:=mas[i,i];
for i:=1 to 4 do
begin
min:=mas2[i];
for j:=1 to 4 do
if (mas2[j]>min) then
begin
min:=mas2[j];
imin:=j;
end;
buf:=mas2[i];
mas2[i]:=mas2[imin];
mas2[imin]:=buf;
end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);
end;
end;
end.
lmikle: пользуемся тегами!!!
ошибка else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]); типа "array type required"
помогите, если сможете)
Последний раз редактировалось lmikle, 15.04.2013 в 20:43.
|