|
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: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »ADDITION«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ADDITION«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ADDITION«
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