|
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: 1248 (0x4e0)
Notes: Mikados TextFile, Mikados_K
Names: »SYPIGETI«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SYPIGETI«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SYPIGETI«
0010 // ----------------------- sypigetips --------------------- 0015 INTEGER KAMP,RÆK,V1,V2,V3,ANTRÆK 0020 DIM SVAR$ OF 3 0025 RNDSEED:=3.12313 0030 // 0040 PROC TIPSRÆKKE 0050 INPUT "Ønskes tegnene tildelt forskellig vægt: ":SVAR$ 0060 IF SVAR$ IN "nej" THEN 0070 V1:=1;V2:=1;V3:=1 0080 ELSE 0090 INPUT "Indtast vægten af 1,2,X: ":V1,V2,V3 0100 PRINT 0110 ENDIF 0120 SUM:=V1+V2+V3 0140 TIP:=RND(1,SUM) 0150 IF TIP>V1+V2 THEN 0160 PRINT "X i kamp nr. ";KAMP;"i ";RÆK;". række." 0170 ELSE 0175 IF TIP>V1 THEN 0180 PRINT "2 i kamp nr. ";KAMP;"i ";RÆK;". række." 0190 ELSE 0200 PRINT "1 i kamp nr. ";KAMP;"i ";RÆK;". række." 0210 ENDIF 0215 ENDIF 0220 ENDPROC TIPSRÆKKE 0230 // 0240 // Hovedprogram 0250 CLEAR 0260 CURSOR 1,3 0270 PRINT "S y p i g e t i p s ." 0280 CURSOR 1,4 0290 PRINT "---------------------" 0300 CURSOR 1,6 0310 INPUT "Antal rækker: ":ANTRÆK 0320 PRINT 0330 FOR RÆK:=1 TO ANTRÆK DO 0340 FOR KAMP:=1 TO 13 DO 0350 EXEC TIPSRÆKKE 0360 PRINT 0370 NEXT KAMP 0380 NEXT RÆK 0390 // 4000 PROC RND(LOW,HIGH) 4010 RNDX:=RNDSEED+3.14159 4020 RNDX:=EXP(0.5*LN(RNDX)) 4030 RNDSEED:=RNDX-INT(RNDX) 4040 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5) 4050 ENDPROC RND