Паскаль - проверить, является ли квадратная матрица латинским квадратом

[Aлена]

Помогите решить(((
Определить является ли квадратная матрица латинским квадратом. Латинский квадрат – матрица N*N, в которой каждая строка и каждый столбец содержит все числа от 1 до N.
Что исправить ?

uses crt;
var
  a: array[1..10, 1..10] of integer;
  n, i, j: integer;
  b: boolean;

begin
  clrscr;
  write('Введите кол-во строк и столбцов '); 
  readln(n); 
  b := true;
  for i := 1 to n do
    for j := 1 to n do
    
    begin
      readln(a[i, j]); 
      writeln( 'a(', i, ',', j, ')=', a[i, j]);
    end;
  
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      write(a[i, j]:3);
      if a[i, j] > n then b := false;
    end;
    writeln;
  end;
  if b then writeln('является')
  else writeln('не является');
  
  readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

Сообщение от Aлена

Что исправить ?

у вас нет проверки, что

Сообщение от Aлена

в которой каждая строка и каждый столбец содержит все числа от 1 до N.

Вы спросите, как это проверить?
Ну, есть много разных способов.
например, написать функцию, в ней завести массив от 1 до N ArrayCheck: array[1..N] of byte;
перед каждой проверкой (в начале функции проверки) занести в него нолики.
потом, если число в массиве >1 и <N тогда смотреть, if ArrayCheck[ A[i,j]) ]>0 then return false; (такое число уже встретилось в строке/столбце ранее)
else ArrayCheck[ A[i,j]) ] := 1;
если после цикла b не false, тогда нужно проверить, что в ArrayCheck все единицы:
for k:=1 to N do
if ArrayCheck[ k ]<>1 then return false;

и только если все проверки прошли - тогда return true;

Далее понятно? или ещё чем помочь?

p.s. при вводе обязательно N проверяйте, что оно не больше 10
(а то Вы массив 10X10 объявили, а цикл до N крутите. если N введут больше - будет выход за границу массива!)

[Aлена]

а можете пожалуйста написать полный текст программы ( ,мне просто завтра сдавать ((( буду очень благодарна !!!

[newerow1989]

Ответ: http://programmersforum.ru/showthread.php?t=316691