DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f9790a331⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »MØNTKAST«

Derivation

└─⟦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«

Text

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

TextFile

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