![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программа "Угадай число" [D7]
Виктория © (2006-10-17 18:24:00)Помогите, подайлуста составить код к программе!!! Создается программа по угадыванию числа.Программа случайным образом выбирает числа от 0 до n и запоминает его. Пользователь пытается угадать число, вводя свое число. Сравнивая Вводимое с запомнимым числом программа сообщает >,<,= соответствующему.Ввод продолжается до угадывания, и после угадывания числа программа предлагает сыграть еще раз.
Loginov Dmitry (2006-10-17 20:53:00) [1]Зачем усложнять? Больше... меньше.. равно...
if Edit1.Text <> IntToStr(Random(High(Short))) then
ShowMessage('Юзер маст дай!');
Palladin (2006-10-17 20:37:00) [2]
> [2] Плохиш ©
не переживай :) где в посте вопрос? нету вопроса - то... просто человек радуется задаче и делится с нами своей радостью :)
p.s. обязательно попросят, да еще и скажут: Writeln('Hello world') - не предлагать! неработает!
:)
Jeer (2006-10-17 19:03:00) [3]Виктория (17.10.06 18:24)
Программа в ответ выводит любое случайное число, после чего методами:
- социопсихология;
- гипноз;
- физ.болевое воздействие;
..
etc
убеждает клиента, что это ТО САМОЕ число.
Не поверившие подвергаются селекции.
Ketmar (2006-10-17 18:33:00) [4]80 WMZ
Плохиш (2006-10-17 18:30:00) [5]1. "Программа случайным образом выбирает числа от 0 до n"
2. и запоминает его."
3. Пользователь вводит число
4. Проверка введённого числа с запомненым
5. Сообщение о результате проверки
6. Если не равно, то к пункту 3
7. Предложение сыграть ещё раз
8. Если пользователь согласился, то к пункту 1
9. Конец
По какому пункту проблемы.
PS. Скоро попросят код программы HelloWorld.
Anth (2006-10-17 18:28:00) [6]http://www.igromania.ru/articles/?71_pandora