|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2011, 15:30 | #1 |
Пользователь
Регистрация: 15.10.2011
Сообщений: 18
|
Программа Угадай
Program Ugaday;
var L,R,N,C:integer; Y:0..1; begin writeln('Vvedite znachenie, v predelah kotorogo Vi zadumali chislo'); readln(N); L:=1; R:=N; while L<R do begin C:=(L+R) div 2; writeln('Vashe chislo > ',C,'? Vvedite 1, esli Da i 0,esli Net'); readln(Y); if Y=1 then L:=C+1 Else R:=C end; writeln('Vi zadumali', L) end. 1. Нужно чтобы выводилось количество шагов, потребовавшихся для угадывания числа. 2. Разработать программу угадывания числа, задуманного компьютером , используя метод половинного деления . Подсказка:использовать функцию Random(N). В программе должен быть организован диалог человека с компьютером.
Мнения автора могут не совпадать с его точкой зрения.
|
25.12.2011, 16:59 | #2 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
учись код оформлять!
2) Код:
|
25.12.2011, 17:32 | #3 | |
Пользователь
Регистрация: 15.10.2011
Сообщений: 18
|
Цитата:
а первую можно ?
Мнения автора могут не совпадать с его точкой зрения.
|
|
25.12.2011, 17:41 | #4 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Код:
|
25.12.2011, 19:43 | #5 | |
Пользователь
Регистрация: 15.10.2011
Сообщений: 18
|
Цитата:
Мнения автора могут не совпадать с его точкой зрения.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
игра УГАДАЙ ЖИВОТНОЕ | midiss | Общие вопросы Delphi | 4 | 17.01.2013 11:37 |
игра угадай число | афродита | Помощь студентам | 18 | 27.10.2011 08:22 |
Игра,угадай задуманное число,Ошибка деления на ноль!!! | Rid | Помощь студентам | 4 | 22.10.2009 21:12 |
Помогите написать программу игры угадай число!!! | Oleg Olegovi4 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 21.05.2009 21:54 |