Kleinere Zahlen hinzuzählen

[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