DataMuseum.dk

top - download

    Length: 768 (0x300)
    Types: TextFile
    Names: »SLUTKAP.BAS«

└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
    └─ ⟦this⟧ »SLUTKAP.BAS« 

TextFile

10 PRINT "SLUTKAPITAL"
15 PRINT "==========="
20 PRINT
30 PRINT "         Startkapital ";
40 INPUT P
50 PRINT "    Rentefod (% P.A.) ";
60 INPUT I
70 PRINT "Antal terminer pr. år ";
80 INPUT N
90 PRINT "    Antal år, måneder ";
100 INPUT YO,M
105 Y=(12*YO+M)/12
108 REM beregn rente pr. termin og omregn fra procent til decimal
110 I=(I/N)/100
118 REM beregn fremskrevne værdi v.h.a. formlen:
120 T=P*(1+I)^(N*Y)
129 REM afrund til hele ører og udskriv
130 PRINT "          Slutkapital =";
135 PRINT INT(T*100+.5)/100;" kr."
140 PRINT
150 PRINT "Ny beregning ";
160 INPUT X$
170 IF X$="j" THEN GOTO 20
175 IF X$="J" THEN GOTO 20
180 END
«eof»