Помогите найти ошибку в программе., Прога выдает не правльный ответ. Опции

[-Casual-]

program matrix;
var z, x:array[1..100, 1..100] of integer;
m, n, i, j: integer;
begin
randomize;
writeln('vvedite razmernost matrici');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
x[i,j]:=-10+random(20);
end;
for i:=1 to n do
for j:=1 to n do
begin
x[i,j]:=z[j,i];
end;
for j:=1 to n do
for i:=1 to n do
writeln(z[j,i]:3);
readln;
end.
 

Сообщение отредактировано: klem4 - 21.04.2008 19:11

[Casual]

Задача: Транспониравать матрицу x(m, m). В ответе получаются нули. В чем причина?

Добавлено через 1 мин.
Опечатка! Матрица X(m,n)

[renesko1]

for i:=1 to n do
   for j:=1 to n do
     begin
     x[i,j]:=-10+random(20);  //  ты заполняешь матрицу x
      end;
for i:=1 to n do
  for j:=1 to n do
    begin
    x[i,j]:=z[j,i];// теперб ты из пустой матрицы z копируешь значения в матрицу x, поменяй  z[i,j]:=x[j,i];
    end;

+ только счас заметил если матрица не квадратная то ввести надо 2 значения : длины и ширины.

Сообщение отредактировано: renesko1 - 21.04.2008 19:10

[Casual]

Спасибо тебе! А как сделать чтобы ответ в красивом виде вышел
?

[renesko1]

for j:=1 to n do
  begin
    for i:=1 to n do
    write(z[j,i]:3);    //без ln 
    writeln ;    // ln те переход на новую строчку --> первый цикл должен быть для строчек
  end ;

Сообщение отредактировано: renesko1 - 21.04.2008 19:42