PascalCheckTest

Aus ProgrammingWiki

Archivierte Version vom 2011-01-05T07:23:37+00:00. Aktuelle Version

function computerraten(zahl, max: integer): integer;
 var anz: integer;
 function suche(li, z, re: integer): integer;
  var mi: integer;
  begin
   anz:=anz+1;
   mi:=(re+li) div 2;
   if z=mi then result:=anz
   else 
    if z<mi then result:=suche(li, z, mi)
    else
     result:=suche(mi, z, re);
  end;
 begin
  anz:=0;
  result:=suche(1, zahl, max+1);
 end;

PascalCheckTest

Suche