Составить программу случайного предсказания одного из
десяти вариантов ближайшего будущего.
Вариант Предсказание
1 Счастье
2 Дальняя поездка
3 Радость
4 Любовь
5 Неожиданная встреча
6 Большая прибыль
7 Удача
8 Дети
9 Неожиданные затруднения
10 Новое знакомство
Подсказка: вариант определяется с помощью функции гене¬рации случайного числа.
А в чем проблема?
Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ.
если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен...
randomize;
c:=random(5)+1;
case c of
1: begin writeln('счастье'); end;
2: begin writeln('радость'); end;
...
end;
writeln©;
readln;
end.
М | теги ставятся наоборот: сначала code=pas, а потом уже /code... мисс_граффити |
сам же делаешь
writeln©
Оффтоп...
Не слишком ли оптимистичное будущее
предсказывает твоя программа?
А где неурожай, засуха?
ИМХО, сама модель, которую ты вгоняешь в Паскаль,
слишком линейна, проста и некорректна для описания...
P.S. Надеюсь, эта программа для шуток?