|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300) Types: TextFile Names: »SLUTKAP.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer └─ ⟦this⟧ »SLUTKAP.BAS«
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»