# Zinseszins: Anfangskapital

## Problembeschreibung

*****************************************
Dokumentnummer: D1181
Gebiet: Finanzmathematik
*****************************************

Gegeben sind
a)Endkapital
b)Zinssatz
c)Laufzeit

Gesucht ist das Anfangskapital.

## Problemlösung

EINGABE

Kn:read("Gib das Endkapital ein");

p:read("Gib den Zinssatz dekursiv p.a. ein");

n:read("Gib die Laufzeit in Jahren ein");

VERARBEITUNG

i:p/100.0;

r:1+i;

Ko:Kn/r**n;

Ko:floor(Ko*100+0.5)/100.0;

ergebnis:matrix(
 ["Anfangskapital     =",Ko], 
 ["Zinssatz dek. p.a. =",p], 
 ["Laufzeit in Jahren =",n], 
 ["Endkapital         =",Kn]
)$

AUSGABE

print(ergebnis)$