Задачка на заполнение матрицы., Не получается решить... Опции

[Shaddix]

Задача такая: Заполнить матрицу по правилу
1 2 3 ... 10
0 1 2 ... 9
0 0 1 ... 8
......
0 0 0 ... 1

Программа выдает другой результат.

Код

Var f:array[1..10,1..10] of Integer;
i,j,m:integer;
begin
for i:=1 to 10 do
begin
m:=1;
for j:=1 to 10 do
begin
if i<j then f[i,j]:=m;
if i=j then f[i,j]:=1;
if i>j then f[i,j]:=0;
write(f[i,j],' ');
end;
writeln;
end;
end.

Помогите, пожалста Ни как не могу разобраться...

[Amro]

volvo
Оригинально но не рационально, а если матрица будет размерностью не 10 а к примеру 20, что тагды, твоя прога строит её уже не правильно!!!???
Лучше сделать так, для любого вида матриц!!!

Код

uses crt;
Const
N=20;
Var f:array[1..N,1..N] of Integer;
i,j,k:integer;
begin
clrscr;
for i:=1 to N do
begin
  k:=1; j:=i;
  repeat
  f[i,j]:=k;
  inc(k); inc(j);
  until (j>N);
end;
for i:=1 to N do begin writeln;
for j:=1 to N do
  write(f[i,j]:3); end
end.

Пардон!!! Я ошибся volvo просто у тебя вывод тагды не так write(f[i,j],' ')
а лучше так write(f[i,j]:3) Прости не доглядел, а так прога так же как и моя работает!!!!

Сообщение отредактировано: Amro - 19.10.2004 16:08