Zählschleife

[Xong]

Zitat von foerster7891:

Delphi-Quellcode:

var
Form4: TForm4; Startguthaben, Endguthaben, Zinsen, monatlicherBetrag, Zinssatz, laufvariable: real;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var b, Jahre, a: integer;
begin
  Zinsen := 0;
  Startguthaben := StrToFloat(Edit1.Text);
  zinssatz := StrToFloat(Edit2.Text);
  monatlicherBetrag := StrToFloat(Edit3.Text);
  For b := 1 to Jahre do
  begin; // Was soll das Semikolon? [1]
    For a := 1 to (12 * Jahre) do {  Was soll das denn?
                                     Im ersten Jahr 12, im zweiten 24, im dritten 36 [...]
                                     Durchläufe. Ist das Absicht?
                                     Außerdem ist "Jahre" nicht initialisiert! Wo wird "Jahre"
                                     ein Wert zugewiesen? }
    begin; // Was soll das Semikolon? [2]
      Startguthaben := Startguthaben + monatlicherBetrag;
      Zinsen := 1/12 * Startguthaben/100 * Zinssatz + Zinsen;
      Endguthaben := Zinsen + Startguthaben; // Die Zinsen werden jeden Monat dazu addiert!
    end;
  { Hier wäre das Ende des jeweiligen Jahres erreicht. Führe also deine Jahresendberechnungen hier aus! }
  end;
Label2.Caption := FloatToStr(Endguthaben);
Label1.Caption := FloatToStr(Zinsen);
end;
end.

LG,
Xong