Программа "Угадай число"
Задача
Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.
Решение
Переменные:
- 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; end.
Примечание. Угадать число всегда можно не более чем через 6-7 попыток, если делить каждый оставшийся диапазон пополам.