Игра «УГАДАЙКА»

Игра для угадывания числа. Два варианта

  1. Угадывает человек число, что задумала программа.
  2. Угадывает программа число, которое задумал человек. Используется алгоритм бинарного поиска числа. 

Алгоритм построен на бинарном отсечении лишних блоков

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.
uses crt;
var i,ans,min,max,t:integer;
begin
min:=1;
max:=64;
t:=(max+min) div 2;
writeln('Диапазон=', min,'  ', max);
writeln('Чожет это число=',t,'?');
for i:=2 to 10 do
begin
writeln('1 - Много    0-Мало');
readln(ans);
if ans=1 then max:=t;
if ans=0 then min:=t;
t:=min + ((max - min) div 2);
writeln('Диапазон=', min,'  ', max);
writeln('Чожет это число=',t,'?');
end;
end.

Если вы нашли ошибку, пожалуйста, выделите фрагмент текста и нажмите Ctrl+Enter.

0 0 vote
Article Rating
Подписаться
Уведомление о
guest
0 Комментарий
Inline Feedbacks
View all comments