Даны две матрицы.Есть ли в них одинаковые столбцы?

[NIKALEX1995]

Pascal.Даны две матрицы.Есть ли в них одинаковые столбцы?Помогите пожалуйста,чем сможете,очень надо для зачета

[hon]

Язык? Наработки? Где и какая ошибка? Почему так плохо с пробелами?

[NIKALEX1995]

язык паскаль

program _matrix;
const
 N = 5;
 M = 5;
type
 TArray=array [1..N,1..M] of integer;
var
 i,j:integer;
  M1,M2:TArray;
procedure FillMatrix(var Matrix:TArray;hand:boolean);
{ïðîöåäóðà çàïîëíåíèÿ ìàòðèöû
 åñëè hand = TRUE - âðó÷íóþ
             FALSE - ñëó÷àéíûå çíà÷åíèÿ   }
 var
  i,j:integer;
begin
 if hand then begin
               for i:=1 to N do
               for j:=1 to M do begin
                                 write('[',i,',',j,']: ');
                                 readln(matrix[i,j]);
                                end
              end else begin
                        for i:=1 to N do
                        for j:=1 to M do matrix[i,j]:=random(100);
                       end;
end;
procedure OutMatrix(head:string;var Matrix:Tarray);
 var
  i,j:integer;
begin
 Writeln(head);
 for i:=1 to N do begin
 for j:=1 to M do write(Matrix[i,j]:2,' ');
                  writeln();
                  end;
end;
function FindSameLines(Mas1,Mas2:Tarray):boolean;
 var
  i,j:integer;

begin
FindSameLines:=FALSE;
for j:=1 to M   do begin
for i:=1 to N do
if mas1[i,j]<>mas2[i,j]
then break;
if i=N then begin
FindSameLines:=TRUE;
break;
end;
end;
end;
BEGIN
{ fill & out source matr. }
randomize;
FillMatrix(M1,FALSE); //            TRUE
FillMatrix(M2,FALSE); //  Åñëè çàïîëíÿòü âðó÷íóþ
Writeln('Ñôîðìèðîâàíû 2 ìàòðèöû: ');
OutMatrix('M1: ',M1);OutMatrix('M2: ',M2);
Writeln;
{ find same lines }
if FindSameLines(M1,M2) then writeln('Ìàòðèöû èìåþò îäèíàêîâûå ñòîëáöû')
else writeln('Ìàòðèöû íå èìåþò îäèíàêîâûõ ñòîëáöîâ');
END.

как бы ее упростить?препод не примет такую

[Serge_Bliznykov]

как бы ее упростить?препод не примет такую

а куда же её упрощать? Она и так простая!

ну, разве что, можете при заполнении матрицы выкинуть параметер hand - и оставить либо ручное заполнении массива, либо, наоборот, случайными числами. Но это упрощение весьма маленькое, а универсальность сразу пострадает...

препод не примет такую

с чего бы это вдруг?! Программа решает поставленную задачу? Работает корректно?
Так какие к ней (программе) и Вам (программисту) могут быть претензии?
Ответ: никаких!
Другое дело, что это чужая программа и вы ничего в ней не понимаете... Но вот это повод Вам разобрать программу "по косточкам" и изучить как и что она делает.