IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> случайное предсказание одного из десяти вариантов ближайшего будущего
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


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

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

я написал эту прогу, но когда она выводит на экран вариант "будущего", то появляется и номер этого "будущего" под которым он записан в case. Как от него избавиться???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата
Как от него избавиться???
Может, стоило бы показать, как ты это сделал? Телепатов нет...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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©;
readln;
end.

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


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

счастье
1

Сообщение отредактировано: мисс_граффити -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


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

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


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


меркантильный
***

Группа: Пользователи
Сообщений: 161
Пол: Мужской

Репутация: -  6  +


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


--------------------
Смысл откроется тебе. Красками играя
Жизнь предстанет как поток без конца и края.


В этом мире порой разбиваютсямечты
Но чтобы он стал другой Вдруг в него приходишь ТЫ...

После странствий и скитаний настают другие времена.
Старая волна уходит и приходит новая волна.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 16:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name