Beginner: Münzwurf

[jdiephaus]

Danke für die Antwort! Das sind einige sehr nützliche Tipps! Nur falls nochmal jemand danach sucht, hier der finale Code:

Delphi-Quellcode:

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