Wenn man eine große Anzahl nimmt, macht es vllt. nicht immer Sinn, jedes Kopf und Zahl einzeln auszugeben, dann ließe sich das noch verkürzen zu:
Delphi-Quellcode:
program Muenzwurf;
var
n, Anzahl, 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
oddCount:=oddCount+random(2);
RelHaeuf:=(oddCount/Anzahl)*100;
writeln('Relative Haeufigkeit von Kopf:',RelHaeuf:6:2,'%');
readln();
end.