das ist jetzt so ohne programm entstanden, ich hoffe es hilft. fehler dürften keine drin sein! an der anpassung kannst du noch arbeiten, es sind nur die oldx, oldy, newx, newy interessant!!
Delphi-Quellcode:
var zinsen: real;
geldbetrag: array[0..11] of real;
i,oldx,oldy,newx,newy : integer;
begin
//übernahme der variablen von den edit-feldern
geldbetrag[0] := strtofloat(edit_start.Text);
zinsen := 1 + (strtofloat(edit_zins.Text)/100);
//berechnung der erhaltenen zinsen für jeden monat
for i:=1 to 11 do
begin
geldbetrag[i] := geldbetrag[i-1]*zinsen;
end;
//zeichnen in das image
for i:=0 to 11 do
begin
//koordinate des startpunktes bzw. des vorrangegangenen punktes
oldx := i*10;
oldy := image1.height-trunc(geldbetrag[i]/20);//durch 20 ist nur zur skalierung
//berechneten koordinaten eintragen
image1.Canvas.MoveTo(oldx,oldy);
//koordinaten des folgenden punktes
newx := i*10+10;
newy := image1.height-trunc((geldbetrag[i]*zinsen)/20);//durch 20 ur zur skalierung
//linie zu diesem folgenden punkt ziehen
image1.Canvas.lineto(newx,newy);
end;
end;