Projektaufgabe

[Sir Rufo]

Also was alle hier meinen ist, dass du das ungefähr so aufbauen solltest:

Delphi-Quellcode:

type
  TJahreswert = record
    Jahr : Integer;
    Guthaben : Currency;
    Zinsen : Currency;
  end;

  TJahreswerte = array of TJahreswert;

function BerechneJahreswerte( Anlage : Currency; Zins : Double; Laufzeit : Integer ) : TJahreswerte;
var
  LIdx: Integer;
begin
  SetLength( Result, Laufzeit );
  for LIdx := Low( Result ) to High( Result ) do
  begin
    // hier muss jetzt die Berechnung für die einzelnen Jahre erfolgen ...
  end;
end;

procedure TForm1.BerechnenButtonClick( Sender : TObject );
var
  LAnlage : Currency;
  LZins : Double;
  LLaufzeit : Integer;
  LJahreswerte : TJahreswerte;
  LIdx : Integer;
begin
  // Eingabe
  LAnlage := StrToFloat( AnlageEdit.Text );
  LZins := StrToFloat( ZinsEdit.Text );
  LLaufzeit := StrToInt( Laufzeit.Edit.Text );
  
  // Verarbeitung
  LJahreswerte := BerechneJahreswerte( LAnlage, LZins, LLaufzeit );

  // Ausgabe
  for LIdx := Low( LJahreswerte ) to High( LJahreswert ) do
  begin
    // Ja, wohin auch immer hinschreiben 
    // LJahreswerte[LIdx].Jahr
  end;
end;

[p80286]

@Sir Rufo
Du hast EVA nicht vergessen

Gruß
K-H

[Sir Rufo]

Zitat von p80286:

@Sir Rufo
Du hast EVA nicht vergessen

Gruß
K-H

Türlich nicht, eine der wenigen Frauen im Programmiererleben:

• Edith Or
• EVA
• Ruth
• Fr. Anne Esse (die ist immer überall dabei)

[Caps]

OT: Wer ist Fr. Anne Esse?
Ich steh auf'm Schlauch.

[Sir Rufo]

Zitat von Caps:

OT: Wer ist Fr. Anne Esse?
Ich steh auf'm Schlauch.

Das ist ein Wort-Schiebe-Rätsel ... vertausche die Worte solange untereinander, bis die zusammengesprochen einen Sinn für dich ergeben.

"Gibt es hier jemanden der Rumsch heißt?"

[Caps]

Ich komm nicht drauf. Anne Fresse ?

Code:

fr://je_ne_comprends.pas

[Sir Rufo]

Zitat von Caps:

Ich komm nicht drauf. Anne Fresse ?

Code:

fr://je_ne_comprends.pas

Die hat auch noch eine Cousine: Anne Schnauze

[champ100]

hey jo, ich bin jetzt ein bisschen vorran gekommen... nur habe ich gerade das problem das meine zinsen nicht richtig berechnet werden seht ihr den fehler??

Delphi-Quellcode:

function zinsen(anl,zins:real;zeit:integer):real;
begin
 if zeit=0 then zinsen:=anl
           else zinsen:=zinsen(anl,zins,zeit-1)*(1+zins);
end;

procedure TForm1.Button1Click(Sender: TObject);
var anl,zins:real;
    zeit,i:integer;
begin
memo1.Clear;
memo2.Clear;
memo3.Clear;
for i:= 1 to strtoint(edit2.Text) do
begin
anl:=strtofloat(edit1.text);
zins:=strtofloat(edit2.text)/100;
Memo1.Lines.Add(inttostr(i));
Memo2.Lines.Add(floattostrf(zinsen(anl,zins,i),fffixed,10,2));
Memo3.Lines.Add(floattostrf(zinsen(anl,zins,i)-zinsen(anl,zins,i-1),fffixed,10,2));
end;
end;

[Sir Rufo]

Ja, und du siehst den auch, wenn du deinen Code mal einrücken würdest.

Ein Beispiel, wie das geht findest du in diesem Thread weiter oben

[champ100]

ohh maaan wie blöd..... hab ihn gefunden danke