Delphi-Quellcode:
var a,g,e:double ;
z,l,n:real;
begin
///Eingabe///
n:=1 ;
a:=StrToFloat(Edit1.Text);
z:=StrToFloat(Edit2.Text);
g:=StrToFloat(Edit3.Text);
l:=StrToFloat(Edit4.Text);
FOR n:=1 TO l DO
BEGIN
e:=a*z/100+a;
Memo2.Lines.Add(FloatTOStr(e));
END,
Is aber noch nicht komplett wollt erst ma so probieren aber der zeigt mir nen Fehler in der For TO DO Schleife =/
[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG Matze[/edit]