Beginner: Münzwurf

[jdiephaus]

Vielen, vielen Dank Klaus. Jetzt komm ich mir extrem dumm vor und das ist auch gut so.

Delphi-Quellcode:

program Muenzwurf;
   var n,x,Anzahl,Zufall,oddCount:Int64; Kopf: real;
begin
  writeln('Muenzwurf');
  writeln('Wie oft soll die Muenze geworfen werden?');
  readln(Anzahl);
  oddCount:=0;
  for n:=1 to Anzahl do
   begin
     x:=n+1;
     Zufall:=random(x);
     If Odd(Zufall) then
       begin
         writeln('Kopf');
         inc(oddCount,1);
       end
     else
       writeln('Zahl');
   end;
  Kopf:=(oddCount/Anzahl)*100;
  writeln('Relative Haeufigkeit von Kopf:',Kopf:6:2,' Prozent.');
  readln();
end.