Hallo,
ich schreibe am Donnerstag eine Kursarbeit in Informatik. Leider fehlt mein Lehrer meistens bzw. erklärt uns nichts, weshalb ich nun nicht weiß, was an folgenden Programmen falsch ist. Vielen Dank, sollte sich einer erbarmen und die Fehler korrigieren.
Aufgabe war: "Schreibe ein Programm, das bei Eingabe von Startkapital, Zinssatz, Zielkapital die Laufzeit einer Anlage (von Geld) ausgibt. Formuliere das Programm mit While und Repeat."
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
x := StrToFloat(Edit1.Text);
Zinssatz := StrToFloat(Edit2.Text);
Zielkapital := StrToFloat(Edit3.text);
repeat
X := X * (Zinssatz/100*1);
Memo1.Lines.Add(FloatToStr(x));
until X >= Zielkapital;
Laufzeit := Memo1.Lines.Count;
end;