Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Алгоритм] Даны две матрицы.Есть ли в них одинаковые столбцы?

Автор: NIKALEX1995 25.12.2012, 19:46

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

Автор: Silent 26.12.2012, 14:45

Возможно, есть помарки по синтаксису, писал в блокноте, но работать должно:

Код


const n = 10;
var a,b:array [0..n-1,0..n-1] of integer;
     i,j,k:integer
     sum:longint;
     flag:boolean;
begin
for i:=0 to n-1 do
     for j:=0 to n-1 do begin
          a[i,j]:=random(100);
          b[i,j]:=random(100);
     end;
flag:=true;
for j:=0 to n-1 do 
    for k:=0 to n-1 do begin
        sum:=0;
        for i:=0 to n-1 do
            inc(sum, a[i,k] xor b[i,j]);
        if sum = 0 then begin
            writeln(k,' ',j);
            flag:=false;
        end;
    end;
if flag then writeln('Одинаковых столбцов нет!');
end.