Помощь - Поиск - Пользователи - Календарь
Полная версия: случайное предсказание одного из десяти вариантов ближайшего будущего
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
maddan
 Составить программу случайного предсказания одного из
десяти вариантов ближайшего будущего.
Вариант Предсказание
1 Счастье
2 Дальняя поездка
3 Радость
4 Любовь
5 Неожиданная встреча
6 Большая прибыль
7 Удача
8 Дети
9 Неожиданные затруднения
10 Новое знакомство
Подсказка: вариант определяется с помощью функции гене¬рации случайного числа.

compiler
А в чем проблема?
Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ.
если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен...
maddan
Цитата(compiler @ 9.05.2007 11:04) *

А в чем проблема?
Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ.
если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен...

я написал эту прогу, но когда она выводит на экран вариант "будущего", то появляется и номер этого "будущего" под которым он записан в case. Как от него избавиться???
volvo
Цитата
Как от него избавиться???
Может, стоило бы показать, как ты это сделал? Телепатов нет...
maddan
Цитата(volvo @ 9.05.2007 12:01) *

Может, стоило бы показать, как ты это сделал? Телепатов нет...


randomize;
c:=random(5)+1;
case c of
1: begin writeln('счастье'); end;
2: begin writeln('радость'); end;
...
end;
writeln©;
readln;
end.

М
теги ставятся наоборот: сначала code=pas, а потом уже /code...
мисс_граффити


Добавлено через 3 мин.
а выводит так:

счастье
1
мисс_граффити
сам же делаешь
writeln©

вот с и печатается.
Чужак
Оффтоп...
Не слишком ли оптимистичное будущее
предсказывает твоя программа?
А где неурожай, засуха? blum.gif
ИМХО, сама модель, которую ты вгоняешь в Паскаль,
слишком линейна, проста и некорректна для описания...
P.S. Надеюсь, эта программа для шуток?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.