|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 608 (0x260)
Notes: Mikados TextFile, Mikados_K
Names: »MØNTKAST«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MØNTKAST«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MØNTKAST«
0010 // ------------------ møntkast -------------------- 0020 CLEAR 0030 RNDSEED:=4 0035 INTEGER PLAT,KRONE,KAST 0040 PLAT:=0;KRONE:=0 0045 PRINT 0050 INPUT "Indtast antal af kast: ":ANTAL 0060 FOR I:=1 TO ANTAL DO 0070 KAST:=INT(RND(0,1)+0.5) 0080 PRINT KAST; 0090 IF KAST=0 THEN 0100 PLAT:=PLAT+1 0110 ELSE 0120 KRONE:=KRONE+1 0130 ENDIF 0140 NEXT I 0150 PRINT 0160 PRINT "Antal kast: ";ANTAL 0170 PRINT "Antal plat: ";PLAT 0180 PRINT "Antal krone: ";KRONE 0200 PROC RND(LOW,HIGH) 0210 RNDX:=RNDSEED+3.14159 0220 RNDX:=EXP(5.0*LN(RNDX)) 0230 RNDSEED:=RNDX-INT(RNDX) 0240 RND:=RNDSEED*(HIGH-LOW)+LOW 0250 ENDPROC RND