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.

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

[BUG]

Zitat von Luckie:

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

Und jedem anderen auch. Ohne Namen ist es einfach 'ne Zahl dessen Bedeutung man sich aus dem Ausdruck erschließen muss.
Jeder vernünftiger Kompiler optimiert lokale Variablen weg wenn man sie nicht benötigt werden ... also eher Datenknauserigkeit