|
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: 2496 (0x9c0)
Notes: Mikados TextFile, Mikados_K
Names: »BINÆR_2«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_2«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BINÆR_2«
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