|
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: 2496 (0x9c0)
Types: TextFile
Notes: Mikados_K
Names: »BINÆR_2.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_2.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_2.K«
0010 // -------------------------- binær_2 ---------------- 0020 // 0025 INTEGER EKSPONENT,J,PIL,POTENS,MAX,SUM 0030 PROC OPSTART 0040 CLEAR 0050 REPEAT 0060 INPUT "Indtast toer-eksponent (max 9): ":EKSPONENT 0070 UNTIL EKSPONENT>0 AND EKSPONENT<10 AND INT(EKSPONENT)=EKSPONENT 0080 MAX:=2**EKSPONENT 0090 CLEAR 0100 PRINT "Tænk på et tal mellem 0 og ";MAX-1 0110 DIM SVAR$ OF 1 0115 INTEGER TAL(MAX/2) 0120 // 0130 ENDPROC OPSTART 0140 // 0150 PROC UDVÆLGTAL(EKSP) 0160 POTENS:=2**EKSP 0170 PIL:=1 0180 FOR J:=1 TO MAX DO 0190 IF (J DIV POTENS) MOD 2=1 THEN 0200 TAL(PIL):=J;PIL:=PIL+1 0210 ENDIF 0220 NEXT J 0230 ENDPROC UDVÆLGTAL 0240 // 0250 PROC UDSKRIV 0255 CLEAR 0260 CURSOR 1,2 0280 FOR K:=1 TO MAX/2 DO 0290 PRINT TAL(K); 0300 NEXT K 0310 PRINT 0320 ENDPROC UDSKRIV 0330 // 0340 EXEC OPSTART 0350 // 0355 FOR I:=1 TO 400 DO // pause 0360 SUM:=0 0370 FOR I:=0 TO EKSPONENT-1 DO 0380 EXEC UDVÆLGTAL(I) 0390 EXEC UDSKRIV 0400 REPEAT 0410 CURSOR 20,22 0420 PRINT CHR$(31); 0430 INPUT "Var tallet blandt de udskrevne? (j/n) ":SVAR$ 0440 UNTIL SVAR$ IN "jn" 0450 IF SVAR$="j" THEN SUM:=SUM+2**I 0460 NEXT I 0470 CURSOR 20,12 0480 PRINT "Du tænkte på: ";SUM 0490 CURSOR 20,13 0500 PRINT "------------------------" 0510 CURSOR 1,21
0x000…03d Line {l1=0x3b, l2=»0010 // -------------------------- binær_2 ----------------«, l3=0x3b}
0x03d…047 Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x047…074 Line {l1=0x2b, l2=»0025 INTEGER EKSPONENT,J,PIL,POTENS,MAX,SUM«, l3=0x2b}
0x074…087 Line {l1=0x11, l2=»0030 PROC OPSTART«, l3=0x11}
0x087…094 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x094…0a2 Line {l1=0x0c, l2=»0050 REPEAT «, l3=0x0c}
0x0a2…0dc Line {l1=0x38, l2=»0060 INPUT "Indtast toer-eksponent (max 9): ":EKSPONENT«, l3=0x38}
0x0dc…122 Line {l1=0x44, l2=»0070 UNTIL EKSPONENT>0 AND EKSPONENT<10 AND INT(EKSPONENT)=EKSPONENT«, l3=0x44}
0x122…13a Line {l1=0x16, l2=»0080 MAX:=2**EKSPONENT«, l3=0x16}
0x13a…147 Line {l1=0x0b, l2=»0090 CLEAR «, l3=0x0b}
0x147…177 Line {l1=0x2e, l2=»0100 PRINT "Tænk på et tal mellem 0 og ";MAX-1«, l3=0x2e}
0x177…18c Line {l1=0x13, l2=»0110 DIM SVAR$ OF 1«, l3=0x13}
0x18c…1a5 Line {l1=0x17, l2=»0115 INTEGER TAL(MAX/2)«, l3=0x17}
0x1a5…1af Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x1af…1c5 Line {l1=0x14, l2=»0130 ENDPROC OPSTART«, l3=0x14}
0x1c5…1cf Line {l1=0x08, l2=»0140 // «, l3=0x08}
0x1cf…1ea Line {l1=0x19, l2=»0150 PROC UDVÆLGTAL(EKSP)«, l3=0x19}
0x1ea…200 Line {l1=0x14, l2=»0160 POTENS:=2**EKSP«, l3=0x14}
0x200…20d Line {l1=0x0b, l2=»0170 PIL:=1«, l3=0x0b}
0x20d…227 Line {l1=0x18, l2=»0180 FOR J:=1 TO MAX DO «, l3=0x18}
0x227…24d Line {l1=0x24, l2=»0190 IF (J DIV POTENS) MOD 2=1 THEN «, l3=0x24}
0x24d…26a Line {l1=0x1b, l2=»0200 TAL(PIL):=J;PIL:=PIL+1«, l3=0x1b}
0x26a…277 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x277…284 Line {l1=0x0b, l2=»0220 NEXT J«, l3=0x0b}
0x284…29c Line {l1=0x16, l2=»0230 ENDPROC UDVÆLGTAL«, l3=0x16}
0x29c…2a6 Line {l1=0x08, l2=»0240 // «, l3=0x08}
0x2a6…2b9 Line {l1=0x11, l2=»0250 PROC UDSKRIV«, l3=0x11}
0x2b9…2c6 Line {l1=0x0b, l2=»0255 CLEAR «, l3=0x0b}
0x2c6…2d7 Line {l1=0x0f, l2=»0260 CURSOR 1,2«, l3=0x0f}
0x2d7…2f3 Line {l1=0x1a, l2=»0280 FOR K:=1 TO MAX/2 DO «, l3=0x1a}
0x2f3…307 Line {l1=0x12, l2=»0290 PRINT TAL(K);«, l3=0x12}
0x307…314 Line {l1=0x0b, l2=»0300 NEXT K«, l3=0x0b}
0x314…321 Line {l1=0x0b, l2=»0310 PRINT «, l3=0x0b}
0x321…337 Line {l1=0x14, l2=»0320 ENDPROC UDSKRIV«, l3=0x14}
0x337…341 Line {l1=0x08, l2=»0330 // «, l3=0x08}
0x341…354 Line {l1=0x11, l2=»0340 EXEC OPSTART«, l3=0x11}
0x354…35e Line {l1=0x08, l2=»0350 // «, l3=0x08}
0x35e…380 Line {l1=0x20, l2=»0355 FOR I:=1 TO 400 DO // pause«, l3=0x20}
0x380…38d Line {l1=0x0b, l2=»0360 SUM:=0«, l3=0x0b}
0x38d…3af Line {l1=0x20, l2=»0370 FOR I:=0 TO EKSPONENT-1 DO «, l3=0x20}
0x3af…3c7 Line {l1=0x16, l2=»0380 EXEC UDVÆLGTAL(I)«, l3=0x16}
0x3c7…3da Line {l1=0x11, l2=»0390 EXEC UDSKRIV«, l3=0x11}
0x3da…3e8 Line {l1=0x0c, l2=»0400 REPEAT «, l3=0x0c}
0x3e8…3fb Line {l1=0x11, l2=»0410 CURSOR 20,22«, l3=0x11}
0x3fb…411 Line {l1=0x14, l2=»0420 PRINT CHR$(31);«, l3=0x14}
0x411…44f Line {l1=0x3c, l2=»0430 INPUT "Var tallet blandt de udskrevne? (j/n) ":SVAR$«, l3=0x3c}
0x44f…469 Line {l1=0x18, l2=»0440 UNTIL SVAR$ IN "jn"«, l3=0x18}
0x469…48f Line {l1=0x24, l2=»0450 IF SVAR$="j" THEN SUM:=SUM+2**I«, l3=0x24}
0x48f…49c Line {l1=0x0b, l2=»0460 NEXT I«, l3=0x0b}
0x49c…4af Line {l1=0x11, l2=»0470 CURSOR 20,12«, l3=0x11}
0x4af…4d4 Line {l1=0x23, l2=»0480 PRINT "Du tænkte på: ";SUM«, l3=0x23}
0x4d4…4e7 Line {l1=0x11, l2=»0490 CURSOR 20,13«, l3=0x11}
0x4e7…50e Line {l1=0x25, l2=»0500 PRINT "------------------------"«, l3=0x25}
0x50e…520 Line {l1=0x10, l2=»0510 CURSOR 1,21«, l3=0x10}
0x520…540 00 00 20 2f 2f 20 08 2b 30 30 32 35 20 49 4e 54 45 47 45 52 20 45 4b 53 50 4f 4e 45 4e 54 2c 4a ┆ // +0025 INTEGER EKSPONENT,J┆
0x540…560 2c 50 49 4c 2c 50 4f 54 45 4e 53 2c 4d 41 58 2c 53 55 4d 2b 11 30 30 33 30 20 50 52 4f 43 20 4f ┆,PIL,POTENS,MAX,SUM+ 0030 PROC O┆
0x560…580 50 53 54 41 52 54 11 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0c 30 30 35 30 20 52 45 50 45 41 54 ┆PSTART 0040 CLEAR 0050 REPEAT┆
0x580…5a0 20 0c 38 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 6f 65 72 2d 65 6b 73 70 ┆ 80060 INPUT "Indtast toer-eksp┆
0x5a0…5c0 6f 6e 65 6e 74 20 28 6d 61 78 20 39 29 3a 20 20 22 3a 45 4b 53 50 4f 4e 45 4e 54 38 44 30 30 37 ┆onent (max 9): ":EKSPONENT8D007┆
0x5c0…5e0 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┆
[…0x1f…]