|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1920 (0x780)
Types: TextFile
Names: »CRAPS2.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »CRAPS2.PAS«
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
└─ ⟦this⟧ »CRAPS2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─ ⟦this⟧ »CRAPS2.PAS«
PROGRAM craps2;
VAR
antal, vundet, i, kast1, kast2, points, sum : INTEGER;
delsejr, afgjort : BOOLEAN;
BEGIN
RANDOMIZE;
WRITE(CLRHOM);
vundet := 0;
WRITE('Tast antal spil: '); READLN(antal);
FOR i := 1 TO antal DO
BEGIN
delsejr := FALSE;
kast1 := RANDOM(6) + 1;
kast2 := RANDOM(6) + 1;
points := kast1 + kast2;
CASE points OF
7, 11 : BEGIN
vundet := vundet +1;
delsejr := TRUE;
END;
2, 3, 12 : (* intet *);
OTHERWISE
afgjort := FALSE;
REPEAT
kast1 := RANDOM(6) + 1;
kast2 := RANDOM(6) + 1;
sum := kast1 + kast2;
IF sum = points
THEN
BEGIN
vundet := vundet +1;
delsejr := TRUE;
afgjort := TRUE;
END;
IF sum = 7
THEN afgjort := TRUE;
UNTIL afgjort;
END;
IF delsejr
THEN WRITE('Sejr ')
ELSE WRITE('Tab ');
WRITELN('Vundet: ', vundet, ' Tabt: ', i - vundet);
END;
WRITELN;
WRITELN('Ud af ', antal : 5, ' spil blev de ', vundet : 5,
' spil vundet');
WRITELN('Frekvensen af vundne spil: ',
vundet / antal * 100 : 5 : 2, ' %');
END.
«eof»