Zählschleife

[foerster7892]

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;
    For a := 1 to (12 * Jahre) do
    begin;
      Startguthaben := Startguthaben + monatlicherBetrag;
      Zinsen := 1/12 * Startguthaben/100 * Zinssatz + Zinsen;
      Endguthaben := Zinsen + Startguthaben;
    end;
  end;
Label2.Caption := FloatToStr(Endguthaben);
Label1.Caption := FloatToStr(Zinsen);
end;
end.

Ich möchte mit dem Programm zu einem Startguthaben monatliche konstante Beiträge zahlen und die Zinsen sollen immer am ende des Jahres abgerechnet werden.
Wie kann ich das machen das die Zinsen am Ende des Jahres erst wieder dazu addiert werden das ich dann weiterrechnen kann?

bitte um hilfe

[taaktaak]

Moin, Moin,

vielleicht die Zinsen in der äußeren Schleife addieren?

Delphi-Quellcode:

For b := 1 to Jahre do 
  begin; 
    For a := 1 to (12 * Jahre) do 
    begin; 
      Startguthaben := Startguthaben + monatlicherBetrag; 
      Zinsen := 1/12 * Startguthaben/100 * Zinssatz + Zinsen; 
      //Endguthaben := Zinsen + Startguthaben; 
    end; 
    Endguthaben := Zinsen + Startguthaben; // << hier?!
  end;

[Xong]

Zitat:

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

[taaktaak]

HIHIHI,
das mit den wachsenden Monaten/Jahr war mir gar nicht aufgefallen - bringt aber echt tolle Zinsgewinne, sollte man vielleicht so lassen!

[foerster7892]

Delphi-Quellcode:

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

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var a, b, Jahre: integer;
begin
  Zinsen := 0;
  Startguthaben := StrToFloat(Edit1.Text);
  zinssatz := StrToFloat(Edit2.Text);
  monatlicherBetrag := StrToFloat(Edit3.Text);
  Jahre := StrToInt(Edit4.Text);
  For b := 0 to Jahre do
  begin;
    For a := 1 to 12 do
    begin;
      Startguthaben := Startguthaben + monatlicherBetrag;
      Zinsen := 1/12*Startguthaben/100*Zinssatz+Zinsen;
    end;
  Endguthaben := Zinsen + startguthaben;
  end;
  Label2.Caption := FloatToStr(Endguthaben);
  Label1.Caption := FloatToStr(Zinsen);
end;
end.

So jetzt ist es soweit fertig
ich war doch noch garnicht fertig ich hab doch auch noch überlegt aber ein kleines problem gibt es noch wenn ich 0 Jahre eingebe dann hab ich das Problem das er die Schleife trotzdem einmal durchlaufen lässt
was kann ich tun

und danke schon mal

[DeddyH]

Delphi-Quellcode:

For b := 1 to Jahre do

[foerster7892]

danke
aber kannst du mir noch sagen wieso 0 to 0 nicht geht weil eigentlich dürfte er da ja auch nichts machen?

[DeddyH]

Wieso sollte er nichts machen?

[foerster7892]

es liegt doch kein schritt zwischen 0 und 0 deshalb dürfte die schleife doch auch 0 mal durchgeführt werden? wieso ist das nicht so

[Nikolas]

Du kannst die Anweisung for x=n to m auch so lesen: Für jedes (natürliche) Element in dem Intervall [n,...,m] mache folgendes:...

Damit ist auch klar, dass eine Schleife for i:=3 to 2 nicht ausgeführt wird. Hier geht es um Element im Intervall [3,2] und dieses ist nach Definition Null. (es gibt keine Elemente mit 3<x<2, da "<" als totale Ordnung transitiv ist).

Und dann ist genau die Null in der Menge [0]. Alternativ auch so:
Setzt die Zählvariable auf die untere G, wenn sie dann noch nicht größer als die oberere Schranke ist, führe die Schleife aus, inkrementiere den Zähler, und vergleiche wieder mit der oberen Grenze.