|
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: 1984 (0x7c0)
Types: TextFile
Notes: Mikados_K
Names: »FIBONACC.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FIBONACC.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FIBONACC.K«
0010 // ------------------- fibonacci ------------------------- 0020 // Man skal indtast de to første tal samt antal af elementer 0030 // i rækken. 0040 // ----------------------------------------------------------- 0045 INTEGER TAL1,TAL2,NÆSTETAL,FORTAL,SUM,FORRIGETAL,N,MAX 0050 CLEAR 0060 // 0070 CURSOR 22,2 0080 PRINT "F I B O N N A C C I - T A L R Æ K K E ." 0090 CURSOR 22,3 0100 PRINT "----------------------------------------" 0110 CURSOR 6,5 0120 PRINT "Indtast det første tal: "; 0130 INPUT TAL1 0140 CURSOR 6,7 0150 PRINT "Indtast det andet tal: "; 0160 INPUT TAL2 0170 REPEAT 0180 CURSOR 6,9 0190 PRINT "Indtast maximum af elementer (min. 4): "; 0200 INPUT MAX 0210 UNTIL MAX>3 0220 // ----------------------------------------------------------- 0230 CURSOR 1,12 0240 FORRIGETAL:=TAL2 0250 NÆSTETAL:=TAL1+TAL2 0260 PRINT TAL1,TAL2,NÆSTETAL, 0270 SUM:=TAL1+TAL2+NÆSTETAL 0280 N:=3 0290 REPEAT 0300 FORTAL:=NÆSTETAL 0310 NÆSTETAL:=NÆSTETAL+FORRIGETAL 0320 PRINT NÆSTETAL, 0330 SUM:=SUM+NÆSTETAL 0340 FORRIGETAL:=FORTAL 0350 N:=N+1 0360 UNTIL N=MAX 0370 PRINT 0380 PRINT "Summen af disse tal er: ";SUM
0x000…041 Line {l1=0x3f, l2=»0010 // ------------------- fibonacci -------------------------«, l3=0x3f}
0x041…084 Line {l1=0x41, l2=»0020 // Man skal indtast de to første tal samt antal af elementer«, l3=0x41}
0x084…097 Line {l1=0x11, l2=»0030 // i rækken.«, l3=0x11}
0x097…0dc Line {l1=0x43, l2=»0040 // -----------------------------------------------------------«, l3=0x43}
0x0dc…119 Line {l1=0x3b, l2=»0045 INTEGER TAL1,TAL2,NÆSTETAL,FORTAL,SUM,FORRIGETAL,N,MAX«, l3=0x3b}
0x119…126 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x126…130 Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x130…142 Line {l1=0x10, l2=»0070 CURSOR 22,2«, l3=0x10}
0x142…17a Line {l1=0x36, l2=»0080 PRINT "F I B O N N A C C I - T A L R Æ K K E ."«, l3=0x36}
0x17a…18c Line {l1=0x10, l2=»0090 CURSOR 22,3«, l3=0x10}
0x18c…1c3 Line {l1=0x35, l2=»0100 PRINT "----------------------------------------"«, l3=0x35}
0x1c3…1d4 Line {l1=0x0f, l2=»0110 CURSOR 6,5«, l3=0x0f}
0x1d4…211 Line {l1=0x3b, l2=»0120 PRINT "Indtast det første tal: ";«, l3=0x3b}
0x211…222 Line {l1=0x0f, l2=»0130 INPUT TAL1«, l3=0x0f}
0x222…233 Line {l1=0x0f, l2=»0140 CURSOR 6,7«, l3=0x0f}
0x233…270 Line {l1=0x3b, l2=»0150 PRINT "Indtast det andet tal: ";«, l3=0x3b}
0x270…281 Line {l1=0x0f, l2=»0160 INPUT TAL2«, l3=0x0f}
0x281…28f Line {l1=0x0c, l2=»0170 REPEAT «, l3=0x0c}
0x28f…2a0 Line {l1=0x0f, l2=»0180 CURSOR 6,9«, l3=0x0f}
0x2a0…2dd Line {l1=0x3b, l2=»0190 PRINT "Indtast maximum af elementer (min. 4): ";«, l3=0x3b}
0x2dd…2ed Line {l1=0x0e, l2=»0200 INPUT MAX«, l3=0x0e}
0x2ed…2ff Line {l1=0x10, l2=»0210 UNTIL MAX>3«, l3=0x10}
0x2ff…344 Line {l1=0x43, l2=»0220 // -----------------------------------------------------------«, l3=0x43}
0x344…356 Line {l1=0x10, l2=»0230 CURSOR 1,12«, l3=0x10}
0x356…36d Line {l1=0x15, l2=»0240 FORRIGETAL:=TAL2«, l3=0x15}
0x36d…387 Line {l1=0x18, l2=»0250 NÆSTETAL:=TAL1+TAL2«, l3=0x18}
0x387…3a7 Line {l1=0x1e, l2=»0260 PRINT TAL1,TAL2,NÆSTETAL,«, l3=0x1e}
0x3a7…3c5 Line {l1=0x1c, l2=»0270 SUM:=TAL1+TAL2+NÆSTETAL«, l3=0x1c}
0x3c5…3d0 Line {l1=0x09, l2=»0280 N:=3«, l3=0x09}
0x3d0…3de Line {l1=0x0c, l2=»0290 REPEAT «, l3=0x0c}
0x3de…3f5 Line {l1=0x15, l2=»0300 FORTAL:=NÆSTETAL«, l3=0x15}
0x3f5…419 Line {l1=0x22, l2=»0310 NÆSTETAL:=NÆSTETAL+FORRIGETAL«, l3=0x22}
0x419…42f Line {l1=0x14, l2=»0320 PRINT NÆSTETAL,«, l3=0x14}
0x42f…447 Line {l1=0x16, l2=»0330 SUM:=SUM+NÆSTETAL«, l3=0x16}
0x447…460 Line {l1=0x17, l2=»0340 FORRIGETAL:=FORTAL«, l3=0x17}
0x460…46d Line {l1=0x0b, l2=»0350 N:=N+1«, l3=0x0b}
0x46d…47f Line {l1=0x10, l2=»0360 UNTIL N=MAX«, l3=0x10}
0x47f…48c Line {l1=0x0b, l2=»0370 PRINT «, l3=0x0b}
0x48c…4ba Line {l1=0x2c, l2=»0380 PRINT "Summen af disse tal er: ";SUM«, l3=0x2c}
0x4ba…4c0 00 00 0b 30 30 35 ┆ 005┆
0x4c0…4e0 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┆
[…0x17…]