Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ случайное предсказание одного из десяти вариантов ближайшего будущего

Автор: maddan 9.05.2007 14:55

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


Автор: compiler 9.05.2007 15:04

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

Автор: maddan 9.05.2007 15:44

Цитата(compiler @ 9.05.2007 11:04) *

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

я написал эту прогу, но когда она выводит на экран вариант "будущего", то появляется и номер этого "будущего" под которым он записан в case. Как от него избавиться???

Автор: volvo 9.05.2007 16:01

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

Автор: maddan 9.05.2007 16:07

Цитата(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

Автор: мисс_граффити 9.05.2007 18:18

сам же делаешь

writeln©

вот с и печатается.

Автор: Чужак 10.05.2007 0:06

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