Двумерный массив, Транспонирование не квадратной матрицы Опции

[goosberry]

Задача состоит в следующем: транспонировать матрицу f(10,8) и вывести на печать элементы главной диагонали и диагонали, расположенной под главной. Результаты разместить в двух строках

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

program zadacha;
uses crt;
type
  matr=array[1..10, 1..8] of integer;
var
  a:matr; i,j,b:integer;
begin 
 randomize;
 writeln('ishodnaya matrica:');
    for i:=1 to 10 do
    begin
      for j:=1 to 8 do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  for i:=1 to 10 do
    for j:=i to 8 do
      begin
        b:=a[i,j];
        a[i,j]:=a[j,i];
        a[j,i]:=b;
      end;
    writeln('transponirovannaya matrica:');
    for i:=1 to 8 do
    begin
      for j:=1 to 10 do
        write(a[i,j]:4);
      writeln;
    end;
  readkey;
end.

[volvo]

При транспонировании матрицы 10x8 не получается вторая матрица 10х8, а получается 8х10. Придется тебе описывать второй тип для транспонированной матрицы.

А все, чего ты добилась своим кодом - это вылет за пределы массива, при попытке в строке b:=a[i,j]; обратиться к элементу 9-го столбца при i = 9 . Ну запускайте же уже программы с контролем границ!!! (Options -> Compiler -> [X] Range Checking)

Может, в правила раздела это написать: "прежде чем задать вопрос на форуме, убедитесь, что программа компилируется в режиме [X] Range checking [X] Stack checking [X] I/O checking [X] Overflow checking"?

[goosberry]

Ну я же говорю, что не понимаю что-то...

А вот про компилирование уж извините, нас не учили, теперь буду знать.


Сообщение отредактировано: goosberry - 15.05.2009 19:24

[passat]

А ее на самом деле надо транспонировать?
Главная диагональ вроде при транспонировании не изменится. И что-то подсказывает, что диагональ под главной после транспонирования - это диагональ над главной до транспонирования.

Только учесть размерности.

[Krjuger]

А мне лично что то подсказывает,что "чистой "главной диагонали тут быть не может,потому что матрица,не квадратная.И тогда встает вопрос как выбирать элементы этой диагонали.потому что,если брать все элементы котороые зацепляются диагональю,то у вас получится некая змейка.

[volvo]

А мне лично что то подсказывает,что "чистой "главной диагонали тут быть не может,потому что матрица,не квадратная

А вспомнить определение главной диагонали тебе что не позволяет? Лень, или убеждения какие-то? Ясно же сказано: главная диагональ - элементы A_ij при i = j ... Где змейка?

[Krjuger]

А это уже диагональ будет матрици 8х8.(меня лично заставляли делать главную диагональ,как все элементы пересекающие прямую проведенную от края в край).А теперь по сути.

program zadacha;
uses crt;
type
  matr1=array[1..10, 1..8] of integer;
  matr2==array[1..8, 1..10] of integer;
var
  m:matr1;
  n:matr2;
  i,j:integer;
begin 
 randomize;
 writeln('ishodnaya matrica:');
    for j:=1 to 8 do{Я бы пошел построчно,при выводе будет лучше восприниматься}
    begin
      for i:=1 to 10 do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
        end;
      writeln;
    end;
    for i:=1 to 8 do
      for j:=1 to 10 do    
      begin
        m[i,j]:=n[j,i];
      end;
    writeln('transponirovannaya matrica:');
    for j:=1 to 10 do
   begin
     for i:=1 to 8 do
        write(n[i,j]:4);
      writeln;
    end;
  readkey;
end.

Ну в общем на основе твеого когда получается как то так.