Beginner: Münzwurf

[Kalakmul]

Da eine Münze nur 2 Seiten hat, sollte man vielleicht lieber "Random(2)" nehmen, was zwei Zufallszahlen - nämlich 0 oder 1 - erzeugt.
Die ungeraden - sprich 1 - kann man dann mit "Odd" zählen und in OddCount speichern.
Dann wird die relative Häufigkeit durch "RelHaeuf := OddCount/Anzahl;" berechnet.
Achtung: Die Schleife sollte dann von 1 bis Anzahl laufen, damit die "Münze" wirklich Anzahl-mal geworfen wird.
Zu Beginn sollte man noch "Randomize" einsetzen, damit nicht immer der "gleiche Zufall" abläuft.

Code:

program Muenzwurf;
var 
  n, Anzahl,Zufall, oddCount:Int64;
  RelHaeuf: Real;
begin
  Randomize; // initialisiert die "Random seed number" mit der Anzahl der Millisekunden seit Computerstart
  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;
  writeln('Relative Häufigkeit: ', RelHaeuf);
  readln();
end.

[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.

[haentschman]

Moin...

Zitat:

Ich arbeite gerade das Script unseres Profs durch

...zu einem Delphi Progamm Script zu sagen, ist wie Jehova zu sagen...

[relocate]

Zitat von haentschman:

Moin...

Zitat:

Ich arbeite gerade das Script unseres Profs durch

...zu einem Delphi Progamm Script zu sagen, ist wie Jehova zu sagen...

<Klugscheiss>
Die Unterrichtsmaterialien an einer Hochschule heißen Skripte.
</Klugscheiss>

[Jumpy]

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.

[Rollo62]

Vielleicht ist das auch interessant, wenn du mal nicht mit ideal-gleichverteilten Zufällen testen möchtest (also im Fachjargon Schummeln genannt ).

Rollo

[Delphi-Laie]

Da RelHaeuf nur zweimal verwendet - einmal zugewiesen und einmal ausgegeben - wird, kann man darauf auch verzichten (Datensparsamkeit!):

Delphi-Quellcode:

program Muenzwurf;
var
  n, Anzahl, oddCount:Int64;
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);
  writeln('Relative Haeufigkeit von Kopf:',(oddCount/Anzahl)*100:6:2,'%');
  readln();
end.

[Luckie]

Aber für einen Anfänger, der gerade programmieren lernt, hilft es eventuell die Übersicht nicht zu verlieren.