Помощь - Поиск - Пользователи - Календарь
Полная версия: Кол-во строк/столбцов,в которых все элементы различны
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Tribunal
12.01.2006 15:28
Дана целочисленная матрица размера M x N. Найти количество ее строк1|столбцов2, все элементы которых различны.

подскажите,что здесь неправильно?
Код

program pr;
uses crt;

const n=4;
      m=4;
type  stroka=array [1..n] of integer;
      matrix=array [1..n,1..m] of integer;
var a:matrix;
    k:stroka;
    i,j,c:integer;

procedure input(x:matrix);
begin
randomize;
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        x[i,j]:=random(10)+1;
        write(x[i,j]:4);
      end;
    writeln;
  end;
end;



begin
clrscr;

input(a);

for i:=1 to n do
begin
k[i]:=0;c:=0;
for j:=1 to m do
if (i<>j) and (a[i,j]=a[i,j]) then k[i]:=k[i]+1;
if k[i]=0 then c:=c+1;
end;

write(c);
end.
Гость
12.01.2006 16:16
var k, in_line, count: integer;
...

begin
  clrscr;
  input(a);
  for i:=1 to n do begin
    in_line := 0;
    for j := 1 to m do begin
      k := 1;
      while (k <= j) and (a[i, k] <> a[i, j]) do inc(k);
      if k = j then inc(in_line);
    end;
    if in_line = n then inc(count)
  end;
  writeln(count);


и не забудь изменить
procedure input(x:matrix);
на 
procedure input(VAR x:matrix);
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.