Двумерный массив Delphi

[MrMorozko]

Напишите пожалуйста процедурку предыдущие еще более мение мог разобраться а вот такой алгоритм непонимаю

Заполнить массив n*n по правилу


Щас пока все остальные 11ть программ до нормального состояния доводить буду...
Спасибо заранее

[Mad_Cat]

for i:=1 to n do begin
for j:=1 to n do
  if j>=i then  a[i,j]:=j-i+1
    else a[i,j]:=0; 
end;

[MrMorozko]

Кто может сделать с подробным описание что бы я понял что как реализуеться

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n,i1,i2,m,t : integer;
a : array [0..50, 0..50] of integer;

begin
n:=7;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=0;
end;
for i:=1 to n do begin
for j:=1 to n do
  if j>=i then  a[i,j]:=j-i+1
    else a[i,j]:=0;
end;
stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;


end.

В чем касяк почему не выводит ?! спасибо:confuse d:

[MrMorozko]

Очень прошу помочь

[MrMorozko]

Посмотрите где может быть ошибка причина

Вот то что я обвел эта строка не обновляеться постоянно стоит 7, и максимальный элемент то правльно покажет то нет

Спасибо, и прошу просмотреть сообщение выше

[Asker13]

for i:=1 to n do
  for j:=1 to n do begin
    if j>=i then  a[i,j]:=j-i+1 else a[i,j]:=0;
    stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
  end;

Ты просто StringGrid заполнял неверно, у тебя заполнение шло после цикла по j, а надо было в этом цикле. А в конце цикла j принимало значение n.

[MrMorozko]

ff код к скирну не поставил вот проверте пожалуйста

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, n, m, mx,imx,sm, maxs, z, x: integer;
a : array [0..50, 0..50] of integer;
begin
Randomize;
n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
for i := 0 to n - 1 do
 for j := 0 to m - 1 do
 a[i,j]:=Round(Sin(Random(100))*100);
 StringGrid1.RowCount:=n+1;
 StringGrid1.ColCount:=m+1;
 with StringGrid1 do
  begin
   i:=0 ;
   for j:=1 to RowCount do
   Cells[i,j]:=IntToStr(j);
   j:=0 ;
   for i:=1 to ColCount do
   Cells[i,j]:=IntToStr(i);
   end;
   with StringGrid1 do
   for i:=1 to n do
   for j:=1 to m do
   Cells[i,j]:=IntToStr(a[i-1,j-1]);
   mx:=0;
for i:=1 to n do
mx:=mx+a[1,i];
imx:=1;
for i:=1 to m do
 begin
  sm:=0;
  for j:=1 to n do
  sm:=sm+a[i,j];
  if sm>mx then
   begin
    mx:=sm;
    imx:=i;
    Label3.Caption:=IntToStr(imx);
    end;
    end;
    For x:= 0 to n - 1 do
 begin
maxs:= a[x,1];
for z:= 0 to m - 1 do
if a[x,z] > maxs then
maxs:= a[z,x];
Label4.Caption:=IntToStr(maxs);


    end;
    end;

[MrMorozko]

Спасибо за задачку

[Asker13]

Код же давали несколько раз правильный, и я, и MadCat приводили правильный код, лично я здесь: #27

[MrMorozko]

Все сам исправил,просто не работала правильно Всем спасибо!!!!!!!!!