PascalCheckTest

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d23b0252e549">
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;
</code>



<check>
result:=(abs(computerraten(47, 100)-computerraten_lsg(47, 100))<3) and 
        (abs(computerraten(2345, 7777)-computerraten_lsg(2345, 7777))<3);
</check>

<code id="4d241c7973a33" hidden>
function computerraten_lsg(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;
</code>