Hallo,
das sollte etwa so gehen:
Delphi-Quellcode:
while gut <= EndKaptital do
begin
gut:=gut*(1+(zins/100));
zaehler:=zaehler+1;
end;
oder die Monate zaehlen:
Delphi-Quellcode:
while gut <= EndKaptital do
begin
gut:=gut*(1+(zins/100)/12);
monate:=monate+1;
end;
Du mußt dann allerdings noch eine Fallunterscheidung machen.
d.h. wenn das Endkapital eingegeben wurde (EndKapital > 0)
und die Laufzeit keine Angabe erhält dann die obige Schleife ausführen.
Wenn die Laufzeit gegeben ist und das Endkaptial = 0 ist dann die andere Schleife ausführen.
Grüße
Klaus