Hallo ihr
warum gibt diese Function 30 aus, und nicht 35!?
Delphi-Quellcode:
function lies_zahl(z:integer):integer;
begin
if z>1 then
begin lies_zahl:= lies_zahl(z-1)+z*z; end
else lies_zahl:=1;
end;
procdure TForm1.Button1click(sender: TObject);
begin
edit1.text:=inttostr(Lies_zahl(4));
end;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]