Процедуры-массивы

[Mel_lissa]

Процедуры-массивы

Для матриц Х(5, 9) и У(17, 8) найти sum1 и sum2 соответственно – суммы элементов, не превышающих 1. Поиск сумм оформить в виде процедуры-функции. Если sum1 > sum2, то с помощью процедуры транспонировать матрицу Х, иначе – матрицу У.

помгите составить пожалуйста!для паскаля!

 

[Vladimir_S]

Для матриц Х(5, 9) и У(17, 8) найти sum1 и sum2 соответственно – суммы элементов, не превышающих 1. Поиск сумм оформить в виде процедуры-функции. Если sum1 > sum2, то с помощью процедуры транспонировать матрицу Х, иначе – матрицу У.

помгите составить пожалуйста!для паскаля!

Пожалуйста:

TYPE
 AR=Array[1..17,1..17] of Real;

VAR
 X,Y,Z:Ar;
 i,j:Integer;
 Sx,Sy:Real;

Function Sum(M:Ar):Real;
 var
  Is,Js:Integer;
  S:Real;
 begin
  S:=0;
  for Is:=1 to 17 do
   for Js:=1 to 17 do
    if M[Is,Js]<=1 then S:=S+M[Is,Js];
  Sum:=S;
 end;

Procedure Trans(M:Ar; var MT:Ar);
 var
  It,Jt:Integer;
 begin
  for It:=1 to 17 do
   for Jt:=1 to 17 do
    MT[It,Jt]:=M[Jt,It];
 end;

BEGIN
 Randomize;
 For i:=1 to 17 do
  For j:=1 to 17 do
   begin
    X[i,j]:=0;
    Y[i,j]:=0;
   end;
 WriteLn('X and Y matrices:');
 For i:=1 to 5 do
  begin
   For j:=1 to 9 do
    begin
     X[i,j]:=Random*2;
     Write(X[i,j]:7:3);
    end;
   WriteLn;
  end;
 WriteLn;
 For i:=1 to 17 do
  begin
   For j:=1 to 8 do
    begin
     Y[i,j]:=Random*6;
     Write(Y[i,j]:7:3);
    end;
   WriteLn;
  end;
 WriteLn('Press "Enter" to continue...');
 ReadLn;
 Sx:=SUM(X);
 Sy:=SUM(Y);
 WriteLn('Sx=',Sx:7:3,'     Sy=',Sy:8:3);
 WriteLn('Transposed matrix:');
 If Sx>Sy then
  begin
   Trans(X,Z);
   For i:=1 to 9 do
    begin
     For j:=1 to 5 do
      Write(Z[i,j]:5:2);
     WriteLn;
    end;
  end
 else
  begin
   Trans(Y,Z);
   For i:=1 to 8 do
    begin
     For j:=1 to 17 do
      Write(Z[i,j]:4:1);
     WriteLn;
    end;
  end;
 ReadLn;
END.