Question

Тема: множества.
Через программу паскаль

Требуется сформировать последовательность натуральных чисел от 1 до n, расположенных в случайном порядке без повторения значений.

Answer 1

var b: set of integer;

   n,k,m: integer;  

begin

 randomize;

 write('n = '); readln(n);

 k:=0;

 while k<n do

 begin

   m:=random(1,n);

   if not (m in b) then

   begin

     write(m,' ');

     b:=b+[m];

     k:=k+1;

   end;

 end;

end.  

Answer 2

while kbegin? Так работает? Неожиданный символ ' ' - это уже проблемы сайта.

Answer 3

Ну да, ты можешь объяснить, что за что отвечает

Answer 4

Я Вас очень прошу! Если Вам не сложно....Помогите мне тоже, пожалуйста...( https://znanija.com/task/31209029

Answer 5

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

Answer 6

А что тут объяснять? Генерируете датчиком случайных чисел random(1,n) случайное число в интервале [1,n] , проверяете, входит ли это число в множество b, если не входит, то добавляете его в множество и выводите на экран, продолжаете до тех пор, пока в множестве не будет n элементов, т.к. датчик случайных чисел генерирует случайные числа, то и последовательность будет в случайном порядке, а так как в множество не добавл. элем., которые уже , то все элем. последоват. будут различными.