Игра «Угадай число»

DP.49 · Игры

Задача

Угадать загаданное компьютером число от 1 до 100.

Алгоритм

Random загадывает число, цикл repeat читает попытки и подсказывает направление до совпадения.

Исходный код

⇩ Скачать 49-ugaday-chislo.dpr

program UgadayChislo;
{$mode delphi}{$apptype console}
uses SysUtils;
var secret, guess, tries: Integer;
begin
  Randomize;
  secret := Random(100) + 1;
  tries := 0;
  WriteLn('Я загадал число от 1 до 100.');
  repeat
    Write('Ваш вариант: '); ReadLn(guess);
    Inc(tries);
    if guess < secret then WriteLn('Больше!')
    else if guess > secret then WriteLn('Меньше!')
    else WriteLn('Верно! Попыток: ', tries);
  until guess = secret;
  ReadLn;
end.

Пояснения

Оптимальная стратегия — бинарный поиск: не более 7 попыток на диапазон 1..100.