Заполнение двумерного массива рандомными неповторяющимися числами

Среди толпы я одинок

Заполнение двумерного массива рандомными неповторяющимися числами

Автор Administrator
Тэги Pascal Программирование Программирование на Pascal
Print
0 комментарий

Программа для заполнения двумерного массива рандомными неповторяющимися числами.

CONST N = 5;  // Размер массива
var rand,i,j:byte;
    mass:array[1..N,1..N] of  byte; //Объявляем массив
    m:set of byte; //множество для определения повторяющихся чисел в массиве
begin
m:=[];
randomize; //блок для вкл. рандома
 
  for i:=1 to N do
    for j:=1 to N do
        begin
 
repeat
              rand:=random(N*N*2)+1;               
          until not (rand in m); ///Делаем до тех пор, пока цифра не найдется в множестве
 
          m:=m+[rand]; 
          mass[i,j]:= rand; 
        end;
 
///Вывод массива
    for i:=1 to N do
    begin
      for j:=1 to N do
          begin
            write(' '+mass[i,j]:4);
          end;
      writeln;  
     end;         
end.