zinseszinsrechnung

[maltegp]

procedure TForm1.Button1Click(Sender: TObject);
var Zeit1: integer;
Ausgabe,Kapital,Zinssatz: Real;
var result: integer;

begin
Zeit1:= strtoint(Zeit.Name);
Ausgabe :=Kapital * (1+9/100);
For Zeit1:=1 to Zeit1-1 do
Result:= Kapital * Zinssatz * Zeit;

So weit bin ich gekommen! Ich habe folgenden Fehler:
[Fehler] Unit2.pas(42): Operator ist auf diesen Operandentyp nicht anwendbar
[Fataler Fehler] Project2.dpr(5): Verwendete Unit 'Unit2.pas' kann nicht compiliert werden

Was muss ich nun tun? Helft mir bitte!

[runger]

Hallo,

1.) result ist ein reservierte Wort unter Delphi ( also ändern )
2.) result muss real sein

Rainer

[Kroko1999]

Delphi-Quellcode:

uses
  Math;

function ZinsesZins (const Kapital,Zinssatz: real; const Jahre: Word): real;
begin
  Result := Kapital*Power(1+ZinsSatz/100,Jahre);
end;

[pszopp]

Result kann in Prozeduren benutzt werden!
Aber Result is vom Typ Integer.
Einem Integer kann keine Zahl vom Typ Real zugewiesen werden.

Entweder sollte es so aussehen:
 Result:= Round(Kapital * Zinssatz * Zeit); Das könnte aber ungenau sein, da gerundet wird.

Oder wie runger sagt, Result als Real deklarieren.
  Result : Real;

[Luckie]

Zeit1:= strtoint(Zeit.Name); Ich werfe mal eine Glaskugel an:
Zeit ist ein TEdit. TEdit.Name ist nicht der Inhalt des Edits, sondern dessen Name, wen wunderts? Willst du auf den Inhalt zugreifen, dann nutz die Eigenschaft Text.

Ansonsten was ist Zeile 42 hier in deinem Codeschnippsel?

[angos]

Zitat von maltegp:

For Zeit1:=1 to Zeit1-1 do
Result:= Kapital * Zinssatz * Zeit;

Neben den schon angesprochenen Problemen:

Wenn ich das richtig sehe wird diese Schleife nie ausgeführt, da sie immer von 1 nach 0 läuft. DU musst für den Zähler ne andere Variable nehmen, also:

Delphi-Quellcode:

 For i:=1 to Zeit1-1 do
   Result:= Kapital * Zinssatz * Zeit;

[ichbins]

Zitat:

Result:= Kapital * Zinssatz * Zeit;

neiiiin, der Zins wird NIE mit der Zeit multipliziert. Wenn ihr z.B. euer Geld 36,5 Tage auf der Bank liegen habt bei 5 % Zins, dann wird das so berechnet:
result:=geld*power(1+5/100,0.1); also die 10. Wurzel aus dem Zinssatz.

[Khabarakh]

Zitat von angos:

Zitat von maltegp:

For Zeit1:=1 to Zeit1-1 do
Result:= Kapital * Zinssatz * Zeit;

Neben den schon angesprochenen Problemen:

Wenn ich das richtig sehe wird diese Schleife nie ausgeführt, da sie immer von 1 nach 0 läuft.

Nope, das geht auch so (auch wenn es nicht sehr schön ist), da die Abbruchbedingung nur einmal vom Compiler ausgewertet wird.