Связь с администрацией сайта:       

demo

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

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

Программа для заполнения двумерного массива рандомными неповторяющимися числами.
 
 
 
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.
 
 
Голосуй
(5 Голоса)
Оставьте комментарий

Поля, отмеченные звездочкой(*) обязательны для заполнения. HTML теги не приветствуются.

Вход на сайт