матрица на 180, до конца не довел Опции

[sahek]

1.Повернуть матрицу на 180 градусов. Вложенную(дополнительную) матрицу не использовать. Распечатовать на 90 не обязательно.
Вот мой текст-программа работает, но когда преподователь write поместил в конец программы, то он напечатал не то, что надо и еще он сказал, что я ее не повернул, а распечатал

Program Povorot180;
Uses crt;
const n=3;
Type z=array [1..n,1..n] of integer;
Var A,B,C:z;
i,j:integer;
Begin
ClrScr;
RANDOMIZE;
  For i:=1 to n do
    For j:=1 to n do
    begin
     {a[i,j] := random (10)-1;}
     write('A(',i,',',j,')=');
    Readln(A[i,j]);
    end;
   Writeln;
   WRITELN;

  For i:=1 to n do
  Begin
     for j:=1 to n do
        Write(a[i,j]:4,' ');
        Writeln;
  End;

  For i:=1 to n do
  for j:=1 to n do
  b[j,n-i+1]:=a[i,j];
  Writeln('pechataem matrciy na 90 gradusov');
  for i:=1 to n do
  Begin
     for j:=1 to n do
     Write(b[i,j]:4,' ');
     Writeln;
  End;

   For i:=1 to n do
  for j:=1 to n do
  c[j,n-i+1]:=b[i,j];
  Writeln('pechataem matricy na 180 gradusov');
  for i:=1 to n do
  Begin
     for j:=1 to n do
     Write(c[i,j]:4,' ');
     Writeln;
  End;
Readln;
End.

Сообщение отредактировано: sahek - 4.01.2008 19:02

[volvo]

Повернуть матрицу на 180 градусов

Сколько можно решать эту задачу? Ну зайди в поиск уже - все настолько разжевано, что дальше некуда, есть реализации и с использованием дополнительных матриц, и без них...

Вот тут, скажем: Модификация двумерных массивов