|
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 - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »MØNTKAST.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MØNTKAST.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »MØNTKAST.K«
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
0x000…03a Line {l1=0x38, l2=»0010 // ------------------ møntkast --------------------«, l3=0x38}
0x03a…047 Line {l1=0x0b, l2=»0020 CLEAR «, l3=0x0b}
0x047…058 Line {l1=0x0f, l2=»0030 RNDSEED:=4«, l3=0x0f}
0x058…076 Line {l1=0x1c, l2=»0035 INTEGER PLAT,KRONE,KAST«, l3=0x1c}
0x076…08d Line {l1=0x15, l2=»0040 PLAT:=0;KRONE:=0«, l3=0x15}
0x08d…09a Line {l1=0x0b, l2=»0045 PRINT «, l3=0x0b}
0x09a…0c7 Line {l1=0x2b, l2=»0050 INPUT "Indtast antal af kast: ":ANTAL«, l3=0x2b}
0x0c7…0e3 Line {l1=0x1a, l2=»0060 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x0e3…101 Line {l1=0x1c, l2=»0070 KAST:=INT(RND(0,1)+0.5)«, l3=0x1c}
0x101…113 Line {l1=0x10, l2=»0080 PRINT KAST;«, l3=0x10}
0x113…129 Line {l1=0x14, l2=»0090 IF KAST=0 THEN «, l3=0x14}
0x129…13c Line {l1=0x11, l2=»0100 PLAT:=PLAT+1«, l3=0x11}
0x13c…148 Line {l1=0x0a, l2=»0110 ELSE «, l3=0x0a}
0x148…15d Line {l1=0x13, l2=»0120 KRONE:=KRONE+1«, l3=0x13}
0x15d…16a Line {l1=0x0b, l2=»0130 ENDIF «, l3=0x0b}
0x16a…177 Line {l1=0x0b, l2=»0140 NEXT I«, l3=0x0b}
0x177…184 Line {l1=0x0b, l2=»0150 PRINT «, l3=0x0b}
0x184…1a8 Line {l1=0x22, l2=»0160 PRINT "Antal kast: ";ANTAL«, l3=0x22}
0x1a8…1cb Line {l1=0x21, l2=»0170 PRINT "Antal plat: ";PLAT«, l3=0x21}
0x1cb…1ef Line {l1=0x22, l2=»0180 PRINT "Antal krone: ";KRONE«, l3=0x22}
0x1ef…208 Line {l1=0x17, l2=»0200 PROC RND(LOW,HIGH)«, l3=0x17}
0x208…224 Line {l1=0x1a, l2=»0210 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x224…242 Line {l1=0x1c, l2=»0220 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x242…260 Line {l1=0x1c, l2=»0230 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x260…282 Line {l1=0x20, l2=»0240 RND:=RNDSEED*(HIGH-LOW)+LOW«, l3=0x20}
0x282…294 Line {l1=0x10, l2=»0250 ENDPROC RND«, l3=0x10}
0x294…2a0 00 00 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccc┆
0x2a0…2c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x39…]
80010 // ------------------ møntkast --------------------8▶0b◀0020 CLEAR ▶0b◀▶0f◀0030 RNDSEED:=4▶0f◀▶1c◀0035 INTEGER PLAT,KRONE,KAST▶1c◀▶15◀0040 PLAT:=0;KRONE:=0▶15◀▶0b◀0045 PRINT ▶0b◀+0050 INPUT "Indtast antal af kast: ":ANTAL+▶1a◀0060 FOR I:=1 TO ANTAL DO ▶1a◀▶1c◀0070 KAST:=INT(RND(0,1)+0.5)▶1c◀▶10◀0080 PRINT KAST;▶10◀▶14◀0090 IF KAST=0 THEN ▶14◀▶11◀0100 PLAT:=PLAT+1▶11◀ 0110 ELSE ▶13◀0120 KRONE:=KRONE+1▶13◀▶0b◀0130 ENDIF ▶0b◀▶0b◀0140 NEXT I▶0b◀▶0b◀0150 PRINT ▶0b◀"0160 PRINT "Antal kast: ";ANTAL"!0170 PRINT "Antal plat: ";PLAT!"0180 PRINT "Antal krone: ";KRONE"▶17◀0200 PROC RND(LOW,HIGH)▶17◀▶1a◀0210 RNDX:=RNDSEED+3.14159▶1a◀▶1c◀0220 RNDX:=EXP(5.0*LN(RNDX))▶1c◀▶1c◀0230 RNDSEED:=RNDX-INT(RNDX)▶1c◀ 0240 RND:=RNDSEED*(HIGH-LOW)+LOW ▶10◀0250 ENDPROC RND▶10◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc