Матрица и не равно в ABC pascal - решение СУДОКУ

[zzzzza]

1)Допустим дана матрица 5х5, значение числу присваивается командой random, как сделать так, чтобы числа в ряду(по горизонтали) не были равны?
2)Я сначала хотел вначале программы задать, что a[n,k] не равно a[n,k+1] и т.д, но тут возникла проблема, оператор <> нельзя использовать в этой ситуации, только в условии. Есть ли какой-нибудь оператор, который тоже задает что числа не равны и его можно использовать не только в условии?

[McFrey]

напиши в самом начале программы randomize ...это позволит сделать так, чтобы во всей матрице не было одинаковых чисел.

[zzzzza]

не, у меня в матрице только числа от 1 до 9, значит в матрице 5х5 им все равно придется повториться))

[IT-man]

for i:=1 to 5 do
begin
s:=[];
for j:=1 to 5 do begin
while  k in s do k:=random(9)+1;
a[i,j]:=k;
s:=s+[k];
end; 
end;

[Serge_Bliznykov]

IT-man, отличное решение. в данном случае (когда элементы можно запихнуть в множество), я бы сказал - идеальное решение!


а в общем случае, после генерации В ЦИКЛЕ очередного числа проверять, нет ли такого же в этой же строке (в этом же столбце). если такое же число нашлось - повторять цикл генерации/проверки.

[zzzzza]

IT-man, а можешь полностью программу скинуть, а то я как то разобраться не могу. Всегда матрица начинается с 0 и когда делаю матрицу 6х6, 7х7 и т.д, число из второго столбца переходят в первый. Я просто в множествах не очень разбираюсь)

Serge_Bliznykov, сейчас попробую.

Serge_Bliznykov, получилось, спасибо)
сейчас попробую доделать, может быть еще вопросы возникнут.

Я до заполнения матрицы, задаю какому та элементу значение и мне надо задать это число константой, чтобы потом, когда матрица заполнялась случайными числами, это число таким и оставалось. Сам вопрос заключается в том, как задать константу уже в самой программе?(задавать константу до описания переменных мне не нужно)

помогите пожалуйста)

[Serge_Bliznykov]

а я так понял, что всё получилось!

или это не так?
Или Вы про константу?
что не получается то?!

[zzzzza]

то получилось, спасибо.
Теперь мне нужно константу уже в программе задать, то есть я задаю число с клавиатуры и мне нужно чтобы это число потом, когда я задаю проверку, не изменилось.

[Serge_Bliznykov]

Теперь мне нужно константу уже в программе задать, то есть я задаю число с клавиатуры и мне нужно чтобы это число потом, когда я задаю проверку, не изменилось.

я лично вообще ничего не понял...

давай так. ты приведёшь КОНКРЕТНЫЙ пример, что у тебя есть, что ты хочешь сделать и что у тебя при этом не получается!
ОК?

[zzzzza]

ОК. Сейчас добавлю кое что, чтобы понятнее было.