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

[MrMorozko]

Прошу прощения код не доконца вписал

но результат

[Hacker19_90]

Но в приципе это вопрос вашего алгоритма!
Запомните только ещё то что в массиве первый индекс это строка второй столбец! В стрингриде наоборот!

[Prime123]

В stringgrid нумерация элементов с нуля начинается,нельзя обращаться к элементам stringgrid.cells[i,j], нужно обращаться [j-1,i-1]
Поэтому у вас вывод неправильный,код похож на правду
Вам нужно хорошо изучить основы Delphi

[MrMorozko]

Сообщение от Prime123

В stringgrid нумерация элементов с нуля начинается,нельзя обращаться к элементам stringgrid.cells[i,j], нужно обращаться [j-1,i-1]
Поэтому у вас вывод неправильный,код похож на правду
Вам нужно хорошо изучить основы Delphi

Основы да вот паралельно практике и осваиваю

[Prime123]

Если честно,то,как вы осваиваете,не моё дело
Вы учли

нельзя обращаться к элементам stringgrid.cells[i,j], нужно обращаться [j-1,i-1]

?

[MrMorozko]

Да спасибо)))запомню надолго

По счет задачи вот что у меня получилось...
Половина выходит а вторая недобавлена просмотрите пожалуйста

[Prime123]

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

for i:=trunc(n/2)+1 to n
for j:=n-i+1 to n

Должен подойти

[MrMorozko]

Обьясните пожалуйста почему ругается

[Prime123]

Поставьте просто n/2 без trunc,это в общем случае с trunc
Приведите код полностью

[MrMorozko]

Сообщение от Prime123

Поставьте просто n/2 без trunc,это в общем случае с trunc
Приведите код полностью

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

begin
for j := 1 to 7 do
if i < (N div 2) then
for i := j to 8-j do
begin
a[i-1,j-1] := 0 ;
StringGrid1.Cells[i-1,j-1] := IntToStr(a[i-1,j-1]);
end
else
for i := 8-j downto j do
for i:=trunc(n/2)+1 to n
for j:=n-i+1 to n
begin

a[i-1,j-1] := 1;

StringGrid1.Cells[i-1,j-1] := IntToStr(a[i-1,j-1]);

StringGrid1.Cells[i-1,j-1] := IntToStr(a[i-1,j-1]);
end;
end;