Напишите программу, которая случайным образом выбирает дежурных: выводит два случайных числа в диапазоне от 1 до n, где n- количество учеников вашего класса. с какой проблемой вы можете столкнуться? нужно сделать в паскале. заранее !
Var n,d1,d2:integer; begin writeln('Укажите сколько человек в классе:'); readln(n); Randomize; d1:=Random(1,n); d2:=Random(1,n); while d1=d2 do d2:=Random(1,n); writeln('Дежурными назначены: ',d1,' и ',d2); end.
цикл while d1=d2 do d2:=Random(1,n); сделан, чтобы исключить возможность совпадения номеров (когда генератор случайных чисел одинаковые номера выдаст)
var
n,n1,n2:integer;
begin
Write('Количество учеников: '); Read(n);
Randomize;
n1:=Random(n)+1;
n2:=n1;
while n2=n1 do n2:=Random(n)+1;
Writeln('Номера дежурных: ',n1,', ',n2)
end.
Тестовое решение:
Количество учеников: 35
Номера дежурных: 2, 26
begin
writeln('Укажите сколько человек в классе:');
readln(n);
Randomize;
d1:=Random(1,n);
d2:=Random(1,n);
while d1=d2 do d2:=Random(1,n);
writeln('Дежурными назначены: ',d1,' и ',d2);
end.
цикл while d1=d2 do d2:=Random(1,n); сделан, чтобы исключить возможность совпадения номеров (когда генератор случайных чисел одинаковые номера выдаст)