Игра для угадывания числа. Два варианта
- Угадывает человек число, что задумала программа.
- Угадывает программа число, которое задумал человек. Используется алгоритм бинарного поиска числа.
Алгоритм построен на бинарном отсечении лишних блоков
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.