Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| случайное предсказание одного из десяти вариантов ближайшего будущего |
| maddan |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация:  0   |
Составить программу случайного предсказания одного из
десяти вариантов ближайшего будущего.
Вариант Предсказание
1 Счастье
2 Дальняя поездка
3 Радость
4 Любовь
5 Неожиданная встреча
6 Большая прибыль
7 Удача
8 Дети
9 Неожиданные затруднения
10 Новое знакомство
Подсказка: вариант определяется с помощью функции гене¬рации случайного числа.
|
   |
 
|
| compiler |
Сообщение
#2
|
|
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3 |
А в чем проблема?
Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ. если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен... -------------------- Спасибо!
Удачи! |
|
|
|
| maddan |
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Цитата(compiler @ 9.05.2007 11:04)  А в чем проблема? Генериш случайное число до 10 и в case-е в зависимости от числа печатаешь ответ. если программа зацикливается то необходимо добавить randomize, в противном случае он не нужен... я написал эту прогу, но когда она выводит на экран вариант "будущего", то появляется и номер этого "будущего" под которым он записан в case. Как от него избавиться??? |
|
|
|
| volvo |
Сообщение
#4
|
|
Гость |
Цитата Как от него избавиться??? Может, стоило бы показать, как ты это сделал? Телепатов нет... |
|
|
|
| maddan |
Сообщение
#5
|
|||
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 9.05.2007 12:01) Может, стоило бы показать, как ты это сделал? Телепатов нет...
randomize;
c:=random(5)+1;
case c of
1: begin writeln('счастье'); end;
2: begin writeln('радость'); end;
...
end;
writeln(c);
readln;
end.
Добавлено через 3 мин. а выводит так: счастье 1 Сообщение отредактировано: мисс_граффити - |
|||
|
|
|
|||
| мисс_граффити |
Сообщение
#6
|
 просто человек Группа: Пользователи Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
сам же делаешь
writeln(c)
вот с и печатается. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| Чужак |
Сообщение
#7
|
 меркантильный Группа: Пользователи Сообщений: 161 Пол: Мужской Репутация: 6 |
Оффтоп...
Не слишком ли оптимистичное будущее предсказывает твоя программа? А где неурожай, засуха?  ИМХО, сама модель, которую ты вгоняешь в Паскаль, слишком линейна, проста и некорректна для описания... P.S. Надеюсь, эта программа для шуток? -------------------- Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края. В этом мире порой разбиваютсямечты Но чтобы он стал другой Вдруг в него приходишь ТЫ... После странствий и скитаний настают другие времена. Старая волна уходит и приходит новая волна. |
|
|
|
|
|
Текстовая версия | 21.04.2025 7:25 |
