Программа, которая отгадывает заданное число

[vakich]

Напишите программу, которая отгадывает заданное пользователем число. На каждом шаге она спрашивает насколько ее ответ совпал с загаданным (больше, меньше, равно). Кому не тяжело, буду благодарен

[NeshSoft]

100р Если бы были попытки самостоятельного написания - но с ошибкой - помог бы - исправил. А за "Напишите программу" - 100р. - и без проблем.

[БЦЕ КОЦЫТ]

народ в делфи 6 есть переменная RandSeek как она называется в делфи 7

[valetik]

Предлагаю такую реализацию. Алгоритм практически оптимальный. За исключением последних двух вопросов - их можно было бы свести к одному. Но раз жестких рамок нет, то подобная реализация имеет право на жизнь. Ну а если хочется совсем оптимальный, то данный нюанс оставляю на самостоятельну проработку. Там уже не сложно...

program post_39397;
label NEXT_VALUE;
label VALUE_OK;

var
   MaxValue, MinValue, Value, Answer: Integer;

begin

   MinValue:= 0;
   MaxValue:= 100;

   Write('Загадайте числов в диапазоне от ', MinValue,' до ', MaxValue,'!');
   Readln;

NEXT_VALUE:

   Value:=(MinValue+MaxValue) div 2;
   WriteLn('Это число БОЛЬШЕ ',Value,'? 1 - да, 2 - нет');
   ReadLn(Answer);

   Case Answer of
      1:
        If MaxValue-Value=1
        then
        begin
         Writeln('Это число ',MaxValue,'!!!');
         goto VALUE_OK;
        end
        else MinValue:=Value;

      2:
        If Value-MinValue=1
        then
        begin
         Writeln('Это число ',Value,'!!!');
         goto VALUE_OK;
        end
        else MaxValue:=Value;
   end;

   goto NEXT_VALUE;

VALUE_OK:
   Readln;
end.

[VVM]

Самый простой, на мой взгляд, вариант. Delphi 2009.

З.Ы. Код процедуры MakeOffer надо подправить:

procedure TForm1.MakeOffer;
begin
  Randomize;
  repeat
    if Min = 0 then
      Offer := Random(Max)
    else
      Offer := Random(Max) + 1;
  until Offer >= Min;
  Label3.Caption := IntToStr(Offer) + ' ?';
end;

[capta1n]

program ppp;
uses crt;
const
 diap : word = 20;
var
 count,x : integer;
 max,min : integer;
 c : char;
begin
  writeln ('Range of the numbers is: from ',-diap,' to ',diap);
  write ('Count= '); readln(count);
  if abs(count)>diap then writeln ('Error')
  else
  begin
    max:=diap;
    min:=-diap;
    randomize;
    x:=random(max+1)-max;
    repeat
      writeln (x);
      writeln ('How much computer''s answer is correct? ');
      repeat
        c:=readkey;
        if c in ['<','>','='] then writeln (c)
      until (c='=') or (c='>') or (c='<') or (c=#27);
      case c of
       '=' : writeln ('Computer has just won!');
       '>' : begin
               max:=x;
               x:=min+random(abs(max)-min)+1
             end;
       '<' : begin
               min:=x;
               x:=min+random(abs(max)-min)+1
             end
      end
    until (c='=') or (c=#27)
  end;
  readln;
end.

[vakich]

Спасибо всем большое. Люди вам респект. Удачи!!

[vakich]

Продолжайте развивать, многим понадобится.