Программа "Угадай число"
Задача
Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.
Решение
Описание переменных:
a – число, "загаданное" компьютером;
b – очередное число, вводимое пользователем.
Алгоритм решения задачи:
Программа генерирует псевдослучайное число, которое записывается в переменную a.
Пока число a не совпадет с числом b, пользователю будет предлагаться ввести очередное число. При этом, если b > a, то на экран будет выдаваться сообщение "Много". Иначе будет проверяться условие b < a. При его положительном значении появится сообщение "Мало", иначе сообщение "Угадал".
Не трудно понять, что если b не больше и не меньше a, то значит оно равно a. В таком случае логическое выражение при while вернет false, и цикл прервется.
Программа на языке Паскаль:
var a,b: integer; begin randomize; a := random(100); while a <> b do begin write('Введи число: '); readln(b); if b > a then writeln('Много') else if b < a then writeln('Мало') else writeln('Угадал'); end; readln end.
Примечания:
Угадать число всегда можно не более чем через 6-7 попыток, если делить каждый оставшийся диапазон пополам.
Комментарии
Я немного модернизиовал
Я добавил уровни сложности:
var…
Я немного переделдал