PascalCheckTest

Aus ProgrammingWiki

Archivierte Version vom 2011-01-10T19:13:59+00:00. Aktuelle Version

Computerraten

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="4d23a12a21b7a"> begin</eval>

writeln(inttostr(computerraten(47, 100)));

end.

Computerraten von Zufallszahlen

function computerraten_neu(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;

function zufallszahl(max: integer): integer;
 begin
  result:=random(max)+1;
 end;

<eval id="4d23a3a008489"> begin</eval>

writeln(inttostr(computerraten(zufallszahl(10000), 10000)));
writeln(inttostr(computerraten_neu(zufallszahl(10000), 10000)));

end.

PascalCheckTest

Computerraten

Computerraten von Zufallszahlen

Suche