Ошибка, выводит нули, что неправильно? Опции

[Гость_Caries]

Вот программа, суть - задается нижнетругольная матрица р-ра 7 на 7, далее ее нужно зеркально отобразить в матрицу b р-ра 7 на 7 и вывести. Но при выводе выводит почему-то одни нули. Подскажите пожалуйста что не так?

Код

program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
 for j:=1 to i do
  read(a[i,j]);
end;
for j:=1 to n do
begin
 for i:=1 to j do
  a[i,j]:=0;
 end;
for i:=1 to n do
begin
 for j:=1 to i do
  a[i,j]:=b[j,i];
end;
for i:=1 to n do
begin
 for j:=1 to n do
  write(b[i,j]:4);
 end;
writeln
end.

НЕ ЗАБЫВАЕМ ВКЛЮЧАТЬ КОД В ТЕГИ!

Сообщение отредактировано: APAL - 9.11.2004 16:55

[volvo]

Гость_Caries

Ты вводишь значения в матрицу A, потом ее же (!!!) обнуляешь, и затем в нее же(!!!) копируешь элементы из матрицы B ...

Код

program matrix;
var a:array[1..7,1..7] of Integer;
n:integer; b : array[1..7,1..7] of Integer; i,j:integer;
begin
n:=7;
for i:=1 to n do
begin
for j:=1 to i do
 read(a[i,j]);
end;
for j:=1 to n do
begin
for i:=1 to j do
 b[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to i do
 b[j,i]:=a[i,j]; { !!! }
end;
for i:=1 to n do
begin
for j:=1 to n do
 write(b[i,j]:4);
end;
writeln
end.

По-моему, так...

[APAL]

Вроде так надо:

Код

Const n=7;                       {!}
var
a,b:array[1..n,1..n] of Integer;   {!}
i,j:integer;                                {!}
begin
for i:=1 to n do
for j:=1 to i do
 read(a[i,j]);

for j:=1 to n do
for i:=j+1 to n do    {!}
 a[j,i]:=0;               {!}
{......}

Как обычно, volvo раньше всех. :P

Сообщение отредактировано: APAL - 9.11.2004 17:44

[Caries]

все спасибо разобралсяAPAL
volvo
:p10:
Еще вопрос: как еще грамотно вывести, чтоб была реально 7 столбцов на 7 строк, а не в строку как у меня?

[APAL]

Код

for i:=1 to n do
begin
for j:=1 to n do
 write(b[i,j]:4);
Writeln;
end;
writeln

[Caries]

???

Там добавлен еще один Writeln
А самый последний можно даже удалить. APAL

Сообщение отредактировано: APAL - 9.11.2004 18:39