Hilfe Zinseszins

[foerster7892]

Hallo ich habe da ein Problem und dachte mir das jemand mir vielleicht helfen kann ich brauche zu morgen für die Schule (10. Klasse) ein Zinsrechner und wollte euch fragen ob ihr wisst wie man diese Gleichung (http://de.wikipedia.org/wiki/Zinseszins) die auch für Zinsiszins ist hier einbaut (ich hoffe ihr könnt mir helfen)

Danke im vorraus

Delphi-Quellcode:

unit Zinsen1;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form3: TForm3;
Guthaben, ZinsenInProzent, Laufzeit: real;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Label1.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100 + Guthaben);
Label5.Caption := FloatToStr ((Guthaben * ZinsenInProzent *Laufzeit)/100);
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
Guthaben := StrToFloat(Edit1.Text);
end;

procedure TForm3.Edit2Change(Sender: TObject);
begin
ZinsenInProzent := StrToFloat(Edit2.Text);
end;

procedure TForm3.Edit3Change(Sender: TObject);
begin
Laufzeit := StrToFloat(Edit3.Text)
end;

end.

[edit=Matze][delphi]-Tags gesetzt. Zukünftig bitte selbst machen. MfG, Matze[/edit]