@Торька

Не могу довести программу до ума...
задание такое:даны две матрицы (порядокне выше третьего).транспонировать ту из них , определитель которой больше...


вот что я тут напридумывала посмотрите плиз...
uses crt;
const n=3;
var
i,j:integer;
e,f:longint;
type massiv=array[1..n,1..n]of integer;
a,b:massiv;
procedure matrica(var a:massiv;e:longint);
begin
randomize;
c:=0;
d:=0;
e:=0;
writeln('ishodnaia matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(25)-10;
write(a[i,j]:4);
end;
writeln;
end;
c:=a[1,1]*a[2,2]*a[3,3]+a[1,2]*a[2,3]*a[3,1]+a[1,3]*a[2,1]*a[3,2];
d:=(-1)*a[1,3]*a[2,2]*a[3,1]-a[1,2]*a[2,1]*a[3,3]-a[1,1]*a[2,3]*a[3,2];
e:=c+d;
writeln(opredelitel matrici:='e);
writeln;
end;

procedure transponirovanie( var a,at:massiv);

begin
writeln('transponirovannaia matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
at[i,j]:=a[j,i];
write(at[i,j]:4);
end;
writeln;
end;
end;
begin
clscr;
matrica(a,e);
matrica(b,f);
if e>f then
transponirovanie( var a,at:massiv)
else
transponirovanie( var b,bt:massiv);
readkey;
end.

Добавлено через 23 минуты
помогите

Вернуться к обсуждению:
Процедуры и функции. Turbo Pascal

0