Zinsberechnung mit For Do Schleife

[leddl]

Zitat von JuPi2904:

so nächste problem ist das for schleifenvariable eine einfache lokale variable sein muss, was ist das und was muss ich da machen?

Na wenn euer Thema zur Zeit Schleifen sind, werdet ihr die doch bestimmt auch besprochen haben, oder?
Dass die For-Schleife eigentlich anders aussieht als in deinem Codebeispiel, sollte dir dann doch sofort auffallen.

[JuPi2904]

Na wir mussten uns alles selber erarbeiten. Unsre Lehrerin hat uns nichts erklärt. Ich habe nur ganz kurze Quelltexte dazu...nur das grundgerüst, deswegen blick ich da noch nicht ganz so durch.

[JuPi2904]

ok..gut habe ein paar fehler gefunden..noch nicht alle bitte um hilfe..

Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zins, kapital, endbetrag: Real;
    i, jahre: Integer;
begin
  zins:=StrToFloat(Edit2.Text);
  jahre:=StrToInt(Edit3.Text);
  kapital:=StrToFloat(Edit1.Text);

 i:=0;
 for i:= 1 to jahre do
 begin endbetrag:= kapital*(zins/1000)+kapital;
 Edit4.Text:=FloatToStr(Endbetrag);

end;

end;

es müssen irgendwelche kleinigkeiten sein..

[Luckie]

Bitte fasse deinen Code in Delphi-Tags:

Code:

[delphi]Dein Code;[/delphi]

Und welche Kleinigkeiten? Zeigt der Compiler Fehler an oder macht das Programm nicht das, was es soll? Sorry, aber meine Glaskugel ist noch in der Werkstatt.

[JuPi2904]

meine fehler codes:

• [Hinweis] Unit1.pas(46): Auf 'i' zugewiesener Wert wird niemals benutzt
• [Fehler] Unit1.pas(55): Deklaration erwartet, aber Dateiende gefunden
• [Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

[JuPi2904]

was verändern eigentlich die delphi tags???

[Luckie]

Kann es sein, dass auch die Formel nicht stimmt?

Weil das ist ja Unsinn:

Delphi-Quellcode:

var
  i: Integer;
  EndKapital: Double;
begin
  EndKapital := 0.0;
  for i := 1 to Jahre do
    EndKapital := StartKapital*(Zins/1000)+StartKapital;
  Result := EndKapital;

end;

Dann hätte ich in fünf Jahren bei 2,3 Prozent Zinsen und einen Startkapital von 100 Euro nur 23 Cent Zinsen bekommen. Und wo Fließen bei dir da die Jahre ein?

[JuPi2904]

möglich, das problem ist ja aber mehr das er das programm gar nicht startet, auch wenn die formel nicht stimmt müsste das programm gestartet werden...das werde ich dann später noch mal überprüfen.

Ich wüsste zur zeithalt nurgern wie ich die fehler behebn kann???