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