/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Endwert nachschüssige Rente
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1026
Quelle: Johann Weilharter, 
             Allgemeinwissen Informatik
******************************************

Der Endwert einer nachschüssigen Rente soll mit Hilfe einer
FOR-Schleife ermittelt werden.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
R:read("Gib den Rentenbetrag ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:read("Gib den Zinssatz ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
n:read("Gib die Anzahl der Jahre ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
r:1+p/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
EW:0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru n do ev(EW:EW+R*r**(n-i));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
EW:floor(EW*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Der Endwert ist",EW)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$