Forum: Object-Pascal / Delphi-Language
Delphi
by jdiephaus,
29. Nov 2016
Danke für die Antwort! Das sind einige sehr nützliche Tipps! Nur falls nochmal jemand danach sucht, hier der finale Code:
program Muenzwurf;
var
n, Anzahl,Zufall, oddCount:Int64;
RelHaeuf: Real;
begin
Randomize;
writeln('Muenzwurf');
writeln('Wie oft soll die Muenze geworfen werden?');
Forum: Object-Pascal / Delphi-Language
Delphi
by jdiephaus,
29. Nov 2016
Vielen, vielen Dank Klaus. Jetzt komm ich mir extrem dumm vor und das ist auch gut so. :-D
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
Forum: Object-Pascal / Delphi-Language
Delphi
by jdiephaus,
29. Nov 2016
Hallo liebe Community,
da dies mein erster Beitrag ist möchte ich mich hier kurz vorstellen: Student der Wirtschaftsinformatik, Programmierkenntnisse = 0 (arbeite aber aufrichtig daran, dies zu ändern).
Ich arbeite gerade das Script unseres Profs durch und hänge seit über einer Stunde an einer Aufgabe fest. Diese lautet:
Schreiben Sie ein Programm das SOZUSAGEN eine Münze x mal wirft und...