|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »ADDITION.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ADDITION.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ADDITION.K«
0010 // ------------------------ addition --------------------- 0015 INTEGER X,Y,SUM,TÆLLER 0020 DIM SVAR$ OF 3 0030 RNDSEED:=4.234 0040 REPEAT 0050 CLEAR 0060 INPUT "Indtast sværhedsgrad ( 1 - 10 ): ":GRAD 0070 TÆLLER:=0 0080 FOR I:=1 TO 10 DO 0090 X:=RND(1,GRAD**2*10) 0100 Y:=RND(1,GRAD**2*10) 0110 PRINT 0120 PRINT X;"+ ";Y;" = "; 0130 INPUT "":SUM 0140 IF SUM=X+Y THEN 0150 TÆLLER:=TÆLLER+1 0160 PRINT "Svaret er korrekt." 0170 ELSE 0180 PRINT "Svaret er ikke rigtigt; "; 0190 PRINT "Det rigtige svar er ";X+Y 0200 ENDIF 0210 NEXT I 0220 PRINT 0230 PRINT "Du har regnet ";TÆLLER;"opgaver rigtige ud af 10." 0240 PRINT 0260 CURSOR 1,24 0270 INPUT "Ønsker du at fortsætte? ( j/n)":SVAR$ 0300 UNTIL SVAR$="N" OR SVAR$="n" 0310 // 0320 PROC RND(LOW,HIGH) 0330 RNDX:=RNDSEED+3.14159 0340 RNDX:=EXP(5.0*LN(RNDX)) 0350 RNDSEED:=RNDX-INT(RNDX) 0360 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5) 0370 ENDPROC RND
0x000…042 Line {l1=0x40, l2=»0010 // ------------------------ addition ---------------------«, l3=0x40}
0x042…05f Line {l1=0x1b, l2=»0015 INTEGER X,Y,SUM,TÆLLER«, l3=0x1b}
0x05f…074 Line {l1=0x13, l2=»0020 DIM SVAR$ OF 3«, l3=0x13}
0x074…089 Line {l1=0x13, l2=»0030 RNDSEED:=4.234«, l3=0x13}
0x089…097 Line {l1=0x0c, l2=»0040 REPEAT «, l3=0x0c}
0x097…0a4 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0a4…0dc Line {l1=0x36, l2=»0060 INPUT "Indtast sværhedsgrad ( 1 - 10 ): ":GRAD«, l3=0x36}
0x0dc…0ec Line {l1=0x0e, l2=»0070 TÆLLER:=0«, l3=0x0e}
0x0ec…105 Line {l1=0x17, l2=»0080 FOR I:=1 TO 10 DO «, l3=0x17}
0x105…120 Line {l1=0x19, l2=»0090 X:=RND(1,GRAD**2*10)«, l3=0x19}
0x120…13b Line {l1=0x19, l2=»0100 Y:=RND(1,GRAD**2*10)«, l3=0x19}
0x13b…148 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x148…164 Line {l1=0x1a, l2=»0120 PRINT X;"+ ";Y;" = ";«, l3=0x1a}
0x164…177 Line {l1=0x11, l2=»0130 INPUT "":SUM«, l3=0x11}
0x177…18e Line {l1=0x15, l2=»0140 IF SUM=X+Y THEN «, l3=0x15}
0x18e…1a5 Line {l1=0x15, l2=»0150 TÆLLER:=TÆLLER+1«, l3=0x15}
0x1a5…1c6 Line {l1=0x1f, l2=»0160 PRINT "Svaret er korrekt."«, l3=0x1f}
0x1c6…1d2 Line {l1=0x0a, l2=»0170 ELSE «, l3=0x0a}
0x1d2…1fb Line {l1=0x27, l2=»0180 PRINT "Svaret er ikke rigtigt; ";«, l3=0x27}
0x1fb…222 Line {l1=0x25, l2=»0190 PRINT "Det rigtige svar er ";X+Y«, l3=0x25}
0x222…22f Line {l1=0x0b, l2=»0200 ENDIF «, l3=0x0b}
0x22f…23c Line {l1=0x0b, l2=»0210 NEXT I«, l3=0x0b}
0x23c…249 Line {l1=0x0b, l2=»0220 PRINT «, l3=0x0b}
0x249…289 Line {l1=0x3e, l2=»0230 PRINT "Du har regnet ";TÆLLER;"opgaver rigtige ud af 10."«, l3=0x3e}
0x289…296 Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x296…2a8 Line {l1=0x10, l2=»0260 CURSOR 1,24«, l3=0x10}
0x2a8…2df Line {l1=0x35, l2=»0270 INPUT "Ønsker du at fortsætte? ( j/n)":SVAR$«, l3=0x35}
0x2df…302 Line {l1=0x21, l2=»0300 UNTIL SVAR$="N" OR SVAR$="n"«, l3=0x21}
0x302…30c Line {l1=0x08, l2=»0310 // «, l3=0x08}
0x30c…325 Line {l1=0x17, l2=»0320 PROC RND(LOW,HIGH)«, l3=0x17}
0x325…341 Line {l1=0x1a, l2=»0330 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x341…35f Line {l1=0x1c, l2=»0340 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x35f…37d Line {l1=0x1c, l2=»0350 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x37d…3a8 Line {l1=0x29, l2=»0360 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5)«, l3=0x29}
0x3a8…3ba Line {l1=0x10, l2=»0370 ENDPROC RND«, l3=0x10}
0x3ba…3c0 00 00 63 63 63 63 ┆ cccc┆
0x3c0…3e0 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┆