Kleinere Zahlen hinzuzählen

[GericasS]

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