Computer zahlen raten beibringen

[dominikkv]

Mal ein Versuch:

Delphi-Quellcode:

var
   Obergrenze, Untergrenze, Zahl, I: Integer;

  //...

  repeat
    I := Random(Obergrenze - Untergrenze) + Untergrenze;
    if I > Zahl then
      Obergrenze := I 
      else
      if I < Zahl then
        Untergrenze := I 
      else
      Break; 
  until false;

  showmessage('Zahl gefunden: ' + IntToStr(I));