Как посчитать матрицу?

[RECREATOR]

Дана матрица размера n*n. Развернуть ее на 90°, на 180°, на 270°. Сосчитать сумму элементов главной диагонали всех матриц и найти их определители

[kommunist]

вот разворот матрицы на 90 градусов на 180 и 270 делай по такому же принципу

[kommunist]

program diag;
uses crt;
const n = 2;
type  matrica = array[1..n,1..n] of byte;
var
   a:matrica;
   i:integer;
   j:integer;
   d:integer;
   summ:integer;
begin
   randomize;
   clrscr;
   for i:= 1 to n do
begin
   for j:= 1 to n do
begin
   a[i,j]:=random(10);
   write(a[i,j]:2,' ');
end;
   writeln;
end;
   writeln;
   summ:=0;
      for i:= 1 to n do
begin
   for j:= 1 to n do
begin
    if i = j
    then
    inc(summ,a[i,j]);
end;
end;
    write(summ);

    writeln;
    writeln;

    d:= a[1,1] * a[2,2] - a[1,2]* a[2,1];
    writeln('opredelitel matrici','-',d);
readln;
end.

[Sibedir]

вот разворот матрицы на 90 градусов на 180 и 270 делай по такому же принципу

Приведенный пример зеркалит матрицу а не переворачивает.
Вот поворот:
поворот матрицы.zip

[puporev]

Тоже с ошибками. При поворотах изменяется содержание матрицы.

[Sibedir]

Мужики (ну и девушки, если есть такие), подскажите, что случилось. Встречаюсь с этим уже который раз. В ответе #4 вложен исходник примера. Вчера на работе, когда его создавал, все работало правильно. Сегодня жалуются на его несостоятельность. Проверил сегодня дома. Точно, не правильно работает.
В обработчике кнопки:

const
  n = 6;

type
  TArray = array [0..n, 0..n] of Integer;

var
  a: TArray;

...

procedure TForm1.btn90Click(Sender: TObject);
var
  i, j: Integer;
  rab: TArray;
begin
  for i := 0 to n do
    for j := 0 to n do begin
      rab [i, j] := a [n-j, i];
    end;
  a := rab;
...
end;

На первом же ветке цикла переменная i = 7

[Virtson]

> array [0..n, 0..n] of Integer;
первый раз такое вижу .. ни то ни се

[Sibedir]

Для правильного поворота матрицы надо исправить только 2 строчки в обработчике формы:

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
  StringGrid1.ColCount := n+1;
  StringGrid1.RowCount := n+1;
...
end;

[Sibedir]

Для Virtson:

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

Дана матрица размера n*n

Я так и сделал.