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