08.09.01

Einfaches Programm, in dem ein paar eindimensionale Arrays verwendet werden.
Berechnet werden Rentenendwerte.

program rente;

uses crt;

const prozent = 0.05;
      max = 3;

var  i, j, k, max:              integer;
     name:                      array[1..max] of string [20];
     mtlzahlung:                array[1..max] of real;
     laufzeit:                  array[1..max] of byte;
     summe:                     array[1..max] of real;
     rnt:                       array[1..max] of real;

procedure eingabe;
begin
     write ('Eingabe der Stammdaten (p=5%)');
     for i:=1 to max do
     begin
     write ('Geben Sie Ihren Namen ein            ');
     readln (name[i]);
     write ('Wie viele Jahre wollen Sie einzahlen ');
     readln (laufzeit[i]);
     write ('Welchen Betrag wollen Sie einzahlen  ');
     readln (mtlzahlung[i]);
     rnt[i]:=mtlzahlung[i];
     writeln;
     end;
end;

procedure berechnung;
begin

     for i:=1 to max do
     begin
          for j:=1 to laufzeit[i] do
          begin
               summe[i] := summe[i] + mtlzahlung[i];
               mtlzahlung[i] := mtlzahlung[i]*(1+prozent);
          end;
     end;
end;


procedure ausgabe;
begin
     clrscr;
     writeln ('  A u s g a b e  ');
     writeln;
     delay(500);
     for i:=1 to max do
     begin
          writeln;
          write ('Sehr geehrte/r Frau/Herr ');
          highvideo;
          writeln (name[i]);
          normvideo;
          delay(1200);
          writeln ('Sie haben ',laufzeit[i],' Jahre lang ',rnt[i]:0:0,' DM ');
          writeln ('   am Ende eines jeden Jahres bei ',
                    (prozent*100):0:2,' % eingezahlt.');
          delay(1200);
          write ('Und jetzt erhalten Sie ');
          highvideo;
          write (summe[i]:0:2);
          normvideo;
          writeln (' DM ausgezahlt!');
          readln;
     end;
end;

begin
     clrscr;
     window (3,3,70,20);
     eingabe;
     berechnung;
     ausgabe;
     readln;
end.