PascalCheckTest

Aus ProgrammingWiki

Archivierte Version vom 2011-01-05T05:58:27+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;

<eval id="4d240883705f6"> function check_box_result:boolean; </eval>

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 re end begin anz:="0;" zahl max><p>begin
result:=(abs(computerraten(47, 100)-computerraten_lsg(47, 100))&lt;3) and </p><pre>       (abs(computerraten(2345, 7777)-computerraten_lsg(2345, 7777))&lt;3);</pre><p>end;</p><p>BEGIN if (check_box_result) then write('check_box_result::-&gt;true') else write('check_box_result::-&gt;false');
END.</p><p></p></mi>

PascalCheckTest

Suche