Транспонирование матрицы Опции

[scorch92]

Тут в соседней темке было про матрицу, вспомнилась сразу то, что лекцию когда разбирали матрицы я в больнице валялся... потом читал, нифига не помогло)) вроде бы нюхом чую что лёгкая но как написать -не знаю

"Дана квадратная матрица A= {Ai j}, i,j= 1…M где М данное число. Получить матрицу В=Ат т- знак транспонирования. И выдать на экран"

[volvo]

Странно. Вроде поиск не отключали. Почему ж не пользуются люди им? Неужели так сложно набрать слово "транспонирование"?

[Nike0]

завалялась где-то, нашел:

uses crt;
var a:array[1..30,1..30] of byte;
    i,j,m,b:byte;
begin
clrscr;
randomize();
writeln('Vvedite m dlya razmernosti matricy: ');
readln(m);
writeln('Ishodnaya matrica:');
for i:=1 to m do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(20)-10;
        write(a[i,j]:4);
      end;
    writeln;
 end;
for i:=1 to m do
  for j:=i to m do
    begin
       b:=a[i,j];
       a[i,j]:=a[j,i];
       a[j,i]:=b;
    end;
writeln('Transponirovannaya matrica:');
for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
  end;
readln;
end.

Сообщение отредактировано: Nike0 - 7.01.2011 21:40

[volvo]

завалялась где-то, нашел:

Лучше б она дальше валялась. С вероятностью 0.5 программа будет вылетать еще при инициализации матрицы.