Типизированные файлы, матрица Опции

[leahov]

Ещё одна задача
Пусть матрица A целых чисел размером 10 на 10 записана по строкам в файле. Найдите все совпадающие между собой строки и столбцы и выведите их номера.

uses crt;
var a: array[1..10,1..10] of Integer; {Матрица}
  x,y: Integer;

procedure Iskat;
var Flag: Boolean;
begin
for x:=1 to 10 do
 begin
 Flag:=True;
 for y:=1 to 10 do if a[x,y]<>a[y,x] then Flag:=False;
 if Flag then WriteLn(x);
 end;
end;

begin
Clrscr;
TextAttr:=7;
Randomize;
for x:=1 to 10 do for y:=1 to 10 do a[x,y]:=Random(2); {Заполняем массив}
Iskat;
for x:=1 to 10 do
 begin
 for y:=1 to 10 do Write(a[x,y]:5,' '); {Столбец(y) - строка(x)}
 WriteLn;
 end;
end.

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

[Bokul]

Пусть матрица A целых чисел размером 10 x 10 записана по строкам в файле. Найдите все совпадающие между собой строки и столбцы и выведите их номера.

Вот. Вроде все работает. Считывания сможешь сам организовать?
Только x и y прировняй 10

const x=5;
      y=5;
type main=array[1..x,1..y] of integer;

procedure find_string(mas:main);
var i,j,k:integer;
    b:boolean;
begin
for k:=1 to y-1 do
    begin
         for i:=k+1 to y do
             begin
                  b:=true;
                  for j:=1 to x do
                      if mas[k,j]<>mas[i,j] then b:=false;
                  if b=true then writeln(k,' ',i);
             end;
    end;
end;

procedure find_colonne(mas:main);
var i,j,k:integer;
    b:boolean;
begin
for k:=1 to x-1 do
    begin
         for i:=k+1 to x do
             begin
                  b:=true;
                  for j:=1 to y do
                      if mas[j,k]<>mas[j,i] then b:=false;
                  if b=true then writeln(k,' ',i);
             end;
    end;
end;

Вот пример на котором я проверял:

const mas:array[1..5,1..5] of integer=((1,1,1,2,2),
                                       (1,1,1,2,2),
                                       (1,1,1,2,2),
                                       (1,1,1,6,6),
                                       (1,1,1,2,2));
var i,j:integer; temp:main;
begin
clrscr;
for i:=1 to 5 do
    begin
         for j:=1 to 5 do
             begin
                  temp[i,j]:=mas[i,j];
                  write(temp[i,j],' ');
             end;
         writeln;
    end;
writeln;
find_string(temp);
writeln;
find_colonne(temp);
readln;
end.

Сообщение отредактировано: volvo - 2.11.2006 17:34