Zitat von
sirius:
Habt ihr in der Schule grad Einführung in Rekursionen?
Nein ich will in Delphi ein Beispiel für digitale Abschreibung erstellen
Zitat von
inherited:
Zwei ansätze: Iterativ:
Delphi-Quellcode:
function Summ(a: integer): Integer;
var i: integer;
begin
result:=0;
for i := 1 to a do
result:=result+i;
end;
Rekursiv:
Delphi-Quellcode:
function Summ(a: Integer): Integer;
begin
if a <=1 then
begin
result:=a;
exit;
end;
result:=Summ(a-1)+a;
end;
Ungetestet
danke werds gleich mal versuchen