Da sind leider immer noch Fehler drin
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function Power (Base,Exponent:Extended):Extended;
var eintritt,rate,Austritt,
Anzahl,Abzug,Abzug2,gesamtabzug,Beitrag,KApital:real;
hoch:extended;
begin
Edit1.Text:=FloatToStr(eintritt);
Edit2.Text:=FloatToStr(Rate);
Edit3.Text:=FloatToStr(Austritt);
Anzahl:=Austritt-Eintritt;
Abzug:= (Rate*4)/100;
Abzug2:=(Rate*10)/100;
gesamtabzug:=Abzug+Abzug2;
Beitrag:=rate-gesamtabzug;
hoch:=power(1.05,Anzahl);
Kapital:=Beitrag*hoch-1/(hoch*(hoch-1));
Edit4.Text:=FloatToStr(Kapital);
end;
DAs Programm gibt als Fehlermeldung an:
VAriable 'Austritt' might not have been initialized
VAriable 'rate' might not have been initialized
VAriable 'Eintitt' might not have been initialized
Return value of function 'Power'might be undefined
BEgin expected but end found
declaration expected but end of file found
Vielen Dank für eure Hilfe
[edit=FuckRacism]Delphi-Syntax Mfg, FuckRacism[/edit]