Zinseszinsrechnung mit tabellarischer Ausgabe

Aufgabe:

Eine Anzahl m von Aufgaben zur Zinseszinsrechnung ist zu lösen. Gesucht ist das Endkapital.

Programmcode:

Ko:[1000,1000,2000,3000,4000,5000];
p:[3,2.25,1.875,2.5,3,2.785];
n:[10,10,9,3,7,6];
i:p/100.0;
r:1+i;
m:length(Ko);
Kn:makelist(Ko[i]*r[i]^n[i],i,1,m);
Liste:makelist([Ko[i],p[i],n[i],Kn[i]],i,1,m);
print("");
printf(true,"~{~{~9,2f ~}~%~}",Liste);

Ko : Anfangskapital
p : Zinssatz dek. p.a.
n : Laufzeit in Jahren
i : Zinssatz als Dezimalzahl
Kn : Endkapital

Maxima Online: http://maxima-online.org/?inc=r-862965041

Bessere Version: http://maxima-online.org/?inc=r-239382725

Eine sehr elegante Lösung, allerdings ohne tabellarische Ausgabe:
http://maxima-online.org/?inc=r-995003097

Werbeanzeigen

Einfache Zinsenrechnung mit tabellarischer Ausgabe

Aufgabe:

Für einen Anzahl von Aufgaben sind die Zinsen nach der Tagesformel zu berechnen.

Programmcode:

K:[1000,2000,3000,4000,5000];
p:[2.25,1.875,2.5,3,2.785];
t:[180,90,360,270,360];
Z:K*p*t/36000.0;
n:length(K);
Liste:makelist([K[i],p[i],t[i],Z[i]],i,1,n);
print("");
printf(true,"~{~{~9,2f ~}~%~}",Liste);

Lösung:

Maxima Online: http://maxima-online.org/?inc=r284031028

Listen zu einer Aufgabentabelle zusammenfassen:
http://maxima-online.org/?inc=r-806702196

Berechnung der Zinsen mit einer Funktion: http://maxima-online.org/?inc=r-1092873340

Programmcode dazu:

Aufgabe:[[1000, 2.25, 180], [2000, 1.875, 90], [3000, 2.5, 360],
[4000, 3, 270],[5000, 2.785, 360]];
m:length(Aufgabe);
Zinsen(x):=floor(x[1]*x[2]*x[3]/36000.0*100+0.5)/100.0;
map(Zinsen,Aufgabe);