Заполнить матрицу случайными числами так, чтобы все ее элементы были различны

@NightFright · Регистрация: 09.12.2012

Author24 — интернет-сервис помощи студентам

Написал программу "заполнить матрицу случайными числами так, чтобы все ее элементы были различны"

Pascal

Program Night;
uses crt;
const 
  Ver=20; 
  Gor=20;
Type
  Row=array[1..Ver] of byte;
  Matrix=array[1..Gor] of Row;
Var
  M:Matrix;
  R,C:byte;
Procedure Input(var M:Matrix);
var
  i,j:byte;
begin
    write('введите R,C=');
    REadln(R,C);
    for i:=1 to R do
      for j:=1 to C do
end;
Procedure Output(M:Matrix);
var
  i,j:byte;
  n:set of byte;
begin
  for i:=1 to R do
  begin
    for j:=1 to C do
    begin
      repeat
      M[i,j]:=random (16)
      until not (M[i,j] in n);
      include(n,M[i,j]);
      write(M[i,j]:4);
    end;
  writeln;
 end;
readln
end; 
BEGIN
  clrscr;
  randomize;
  Input (M);
  Output (M);
END.

Писал с помощью интернета, но вот не пойму с "until not (M[i,j] in n);include(n,M[i,j]);" Что они делают? Подскажите пожалуйста.

@Somebody · 09.12.2012, 20:44

Pascal

1	until not (M[i,j] in n);

Пока не станет верно условие $https://www.cyberforum.ru/cgi-bin/latex.cgi?\overline{M_{i,j} \in n}$ .

Pascal

1	include(n,M[i,j]);

Добавить M_i,j в n.

@NightFright · 09.12.2012, 21:18 **[ТС]**

Спасибо большое, верно ли я считаю,что именно repeat until служит для того , чтобы все числа в матрице были разные?

@Somebody · 10.12.2012, 14:46

Да. Только тут множество n не инициализировано, поэтому некоторые числа могут уже изначально считаться использованными. Надо ещё в начале

Pascal

n := [];

@NightFright 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 2
	09.12.2012, 21:18 [ТС]	3
	Спасибо большое, верно ли я считаю,что именно repeat until служит для того , чтобы все числа в матрице были разные? 0

	10.12.2012, 14:46