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