{ -
Programm : RATENSP1
Autor : Marc Schneider
Compiler : VP 2.1
-}
PROGRAM RATENSP1_pas;
USES
sysutils;
CONST
Zaehler : Integer = 0;
VAR
Rate,
Zinsen,
ZinsFaktor,
Kapital : REAL;
Laufzeit,
ZahlgPJ,
Jahre,
Perioden : INTEGER;
Lang : BYTE;
BEGIN
WRITELN('Entwicklung des Guthabens beim Ratensparen als Übersichtstabelle.');
WRITELN;
WRITELN;
WRITE ('Rate (EUR) : ');
READLN (Rate);
WRITE ('Zahlungen je Jahr : ');
READLN (ZahlgPJ);
WRITE ('Vertragslaufzeit (Jahre) : ');
READLN (Laufzeit);
WRITE ('Zinssatz in % p.a. : ');
READLN (Zinsen);
WRITELN;
WRITELN('Jahr Periode Rate Eingezahlt Guthaben Zinsen');
WRITELN('
---');
WRITELN;
Kapital:=0;
ZinsFaktor:=1+Zinsen/ZahlgPJ/100;
FOR Jahre :=1 TO Laufzeit DO
FOR Perioden :=1 TO ZahlgPJ DO
BEGIN
Inc(Zaehler);
Kapital:=(Kapital+Rate)*ZinsFaktor;
WRITELN(Format('%3d %5d %6d %13.2n %13.2n %11.2n',
[Jahre, Perioden, Zaehler,
Rate * Zaehler,
Kapital,
Kapital-(Rate * Zaehler)]));
IF (Zaehler MOD 18 = 0)
THEN BEGIN
WRITE ('Weiter mit RETURN');
READLN;
WRITELN('Entwicklung des Guthabens beim Ratensparen als Übersichtstabelle.');
WRITELN
END
END;
WRITELN('Beenden mit der << ANYKEY-TASTE >> !');
READLN;
END.