Casio FX-850P Barwert

Barwert

Ein Programm zur Berechnung des heutigen Wert zukünftiger Zahlungen.

Barwert (683 Bytes)

10 CLEAR:CLS:LOCATE 2,0:PRINT "*** Barwertberechnung ***       von M.Schaarschmidt 2007"
20 BEEP:INPUT "Masseinheit der Laufzeit festl. (1)Tage (2)Monate (3)Jahre: ",L
30 ON L GOSUB 40,50,60
40 L=1/365:GOTO 70
50 L=1/12:GOTO 70
60 L=1
70 INPUT "Anzahl der Zahlungen (Cash Flow)eingeben: ",N
80 REM
90 FOR i=1 TO N
100 CLS
110 PRINT "Daten der ";i;". Zahlung eingeben"
120 CLS
130 INPUT "Zeitraum bis zur Zahlung:";H
140 T=H*L
150 INPUT "Betrag:";K
160 INPUT "Zinssatz (laufzeitbezogener Diskontzins):";Z
170 Z=Z/100
180 B=K*(1/(1+Z)^T)
190 REM
200 PRINT "Barwert der";i;". Zahlung heute = ";B
210 G=G+B
220 NEXT i
230 PRINT "Summe der Barwerte heute =     ";G

Generated by (c) Casio FX-850P/FX-880P Notepad 2.00

(c) 2007 by M.Schaarschmidt - bon13@gmx.de - http://blog.manib.bplaced.net