|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »ANNUITET.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANNUITET.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »ANNUITET.K«
0010 // ------------------------- annuitet -------------------------- 0020 // Programmet finder værdien af en række lige store indbetalinger. 0025 INTEGER I,Å 0030 DIM FORM$ OF 80 0040 CLEAR 0045 PRINT 0050 INPUT "Indtast det årlige BELØB, RENTEN i % samt antal ÅR: ":BELØB,PCT,Å 0060 CLEAR 0065 PRINT 0070 FORM$:=" ########.## ########.## ######" 0080 PRINT " INDBETALING PR. ÅR............: ";CHR$(BELØB,8,2) 0090 PRINT " RENTEN........................: ";CHR$(PCT,8,2);"%" 0100 PRINT " ANTAL ÅR......................: ";Å 0110 PRINT 0120 PRINT 0130 PRINT " TOTALBELØB HERAF INDBETALING ANTAL ÅR" 0140 PRINT 0150 INDBETALING:=BELØB 0160 TOTAL:=BELØB 0170 PCT:=1+PCT/100 0180 FOR I:=1 TO Å DO 0190 TOTAL:=TOTAL*PCT 0200 PRINT USING FORM$:TOTAL,INDBETALING,I 0210 TOTAL:=TOTAL+BELØB 0220 INDBETALING:=INDBETALING+BELØB 0230 NEXT I
0x000…047 Line {l1=0x45, l2=»0010 // ------------------------- annuitet --------------------------«, l3=0x45}
0x047…090 Line {l1=0x47, l2=»0020 // Programmet finder værdien af en række lige store indbetalinger.«, l3=0x47}
0x090…0a2 Line {l1=0x10, l2=»0025 INTEGER I,Å«, l3=0x10}
0x0a2…0b8 Line {l1=0x14, l2=»0030 DIM FORM$ OF 80«, l3=0x14}
0x0b8…0c5 Line {l1=0x0b, l2=»0040 CLEAR «, l3=0x0b}
0x0c5…0d2 Line {l1=0x0b, l2=»0045 PRINT «, l3=0x0b}
0x0d2…121 Line {l1=0x4d, l2=»0050 INPUT "Indtast det årlige BELØB, RENTEN i % samt antal ÅR: ":BELØB,PCT,Å«, l3=0x4d}
0x121…12e Line {l1=0x0b, l2=»0060 CLEAR «, l3=0x0b}
0x12e…13b Line {l1=0x0b, l2=»0065 PRINT «, l3=0x0b}
0x13b…18a Line {l1=0x4d, l2=»0070 FORM$:=" ########.## ########.## ######"«, l3=0x4d}
0x18a…1d7 Line {l1=0x4b, l2=»0080 PRINT " INDBETALING PR. ÅR............: ";CHR$(BELØB,8,2)«, l3=0x4b}
0x1d7…226 Line {l1=0x4d, l2=»0090 PRINT " RENTEN........................: ";CHR$(PCT,8,2);"%"«, l3=0x4d}
0x226…26b Line {l1=0x43, l2=»0100 PRINT " ANTAL ÅR......................: ";Å«, l3=0x43}
0x26b…278 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x278…285 Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x285…2d3 Line {l1=0x4c, l2=»0130 PRINT " TOTALBELØB HERAF INDBETALING ANTAL ÅR"«, l3=0x4c}
0x2d3…2e0 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x2e0…2f9 Line {l1=0x17, l2=»0150 INDBETALING:=BELØB«, l3=0x17}
0x2f9…30c Line {l1=0x11, l2=»0160 TOTAL:=BELØB«, l3=0x11}
0x30c…321 Line {l1=0x13, l2=»0170 PCT:=1+PCT/100«, l3=0x13}
0x321…339 Line {l1=0x16, l2=»0180 FOR I:=1 TO Å DO «, l3=0x16}
0x339…350 Line {l1=0x15, l2=»0190 TOTAL:=TOTAL*PCT«, l3=0x15}
0x350…37c Line {l1=0x2a, l2=»0200 PRINT USING FORM$:TOTAL,INDBETALING,I«, l3=0x2a}
0x37c…395 Line {l1=0x17, l2=»0210 TOTAL:=TOTAL+BELØB«, l3=0x17}
0x395…3ba Line {l1=0x23, l2=»0220 INDBETALING:=INDBETALING+BELØB«, l3=0x23}
0x3ba…3c7 Line {l1=0x0b, l2=»0230 NEXT I«, l3=0x0b}
0x3c7…3e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccc┆