also jetzt zahl sagen und du sagst ist kleiner/größer/gleich?
also das sollte so funzen:
Delphi-Quellcode:
while not gefunden do
begin
zahl:=min+(max-min) div 2;
ergebniss:=frage(zahl);
if ergebniss=richtig then gefunden:=true
else if ergebniss=zugroß then max:=zahl-1
else if ergebniss=zuklein then min:=zahl+1;
end;
so, in zahl steht danach die gesuchte zahl, min und max beschränken den zahlenraum...
das sollte funzen...
achja: richtig, zugroß und zuklein sind in dem code Konstanten, und frage fragt den benutzer und gibt diese konstanten zurück..