Aufgabengenerator Endkapital

Aufgabe: Einen Aufgabengenerator für den Mathematikunterricht erstellen.

Code:

kill(all);
s1: make_random_state (true)/* Initialsierung mit Systemzeit */$
set_random_state (s1);
n:random(20)+1;
Ko:random(5000)+500;
p:random(8)+random(4)*0.125;
r:1+p/100;
Kn:Ko*r**n,numer;
Kn:round(Kn*100)/100.0;
print(" ")$
print("Aufgabe")$
print("--------- ")$
print("Für ein Kapital, das zu einem Jahreszinssatz p angelegt wird,")$
print("erhält man nach n Jahr(en) Kn = Ko*(1+p/100)**n")$
print("Welchen Betrag erhält man nach ",n," Jahr(en) fuer ",Ko,
" € bei p = ",p,"% ?")$
print("------------------------------------")$
print("Loesung: Endkapital = ",Kn)$

Unter wxMaxima,Xmaxima und Telemaxima (Telegram) erfolgreich getestet.