Задача с процедурами и функциями, две матрицы, транспонировать ту, которая имеет большую сумму на диагон Опции

[Mysteo]

program kontr;
uses Crt;
const n=3;
type
vec=array [1..n] Of integer;
mas=array [1..n] of vec;
var
v1,v2:mas; s1,s2:integer;
procedure input (var v:mas);
var i,j:integer;
begin
 for i:=1 to n do
 for j:=1 to n do
 begin
      writeln ('vvesti element massiva');
      readln (v[i,j]);
 end;
end;
Procedure output (v:mas);
var i,j:integer;
begin
     for i:=1 to n do
     begin
      for j:=1 to n do
      write (' ',v[i,j]);
      writeln;
     end;
end;
function sum (v:mas):integer;
var s,i:integer;
begin
s:=0;
For i:=1 To n Do s:=s+v[i, i];
sum:=s;
end;
begin
ClrScr;
write ('vvod massiva 1');
readln;
input (v1);
writeln ('vvod massiva 2');
input (v2);
writeln ('massiv 1:');
output (v1);
writeln ('massiv 2:');
output (v2);
s1:=sum(v1);
s2:=sum(v2);
writeln (s1,' ',s2);
readln;
end.

Здравствуйте, подскажите пожалуйста как организовать транспонирование матрицы в моей программе, не понимаю, надо сделать еще одну процедуру либо функцию или транспонирование можно сделать в функции нахождения суммы?

Сообщение отредактировано: Mysteo - 8.12.2008 16:37

[Archon]

Учитывая, что ты находишь сумму элементов только главной диагонали, то в том же цикле у тебя транспонировать матрицу не выйдет. Вообще, логичнее это сделать в отдельной процедуре.
Для транспонирования нужно просмотреть элементы выше главной диагонали и поменять их значения с симметричными им элементами ниже главной диагонали.

temp := v[i, j];
v[i, j] := v[n - i + 1, n - j + 1];
v[n - i + 1, n - j + 1] := temp;

Но это верно только для квадратных матриц.