случайное предсказание одного из десяти вариантов ближайшего будущего Опции

[maddan]

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

[volvo]

Как от него избавиться???

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

[maddan]

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

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 14:17