else writeln('Число "N" не входит в указанный диапазон') end;
Приведем пример программы случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях - вы "неудачник".
PROGRAM FUTURE;
var N: word;
Begin
writeln('ПРЕДСКАЗАНИЕ БУДУЩЕГО');
Randomize; N:=Random(20)+1; { N - случайное число от 1 до 20 }
writeln; write('Вас ожидает _');
Case N of
1: writeln('счастье'); 6: writeln('здоровье');
2: writeln('пятерка'); 7: writeln('деньги');
3: writeln('дорога'); 8: writeln('любовь');
4: writeln('двойка'); 9: writeln('встреча');
Writeln('болезнь'); 10: writeln('дети')
else writeln('неудача') end;
writeln('Нажми Enter'); readln;
END.
Здесь функция Random(x) генерирует случайное число, с равномерной плотностью распределения на заданном интервале. Для инициализации распределения в начале программы необходимо вызвать процедуру Randomize.
Практическое задание N 1. 4
1. Назначить дежурного в классе из списка 10 учеников с вероятностью 1/15, в остальных случаях дежурит учитель.
2. Выбрать место отдыха в отпуске из списка 10 мест, предлагаемых туристическим агентством с вероятностью 1/30, в остальных случаях вы отдыхаете дома.
|
|
3. Вывести на экран сообщение в зависимости от введенного значения оценки (по десятибалльной системе), например: 1.. 2: плохо, 3.. 5: удовлетворительно, и т. д., иначе - неправильный ввод данных.
4. Вывести на экран сообщение в зависимости от введенного значения температуры воздуха (от -50 до +50 0 С), например: -50.. -20: очень холодно,
-19.. -10: холодно, и т. д., иначе - неправильный ввод данных.