so ist das Rechenergebnis eine Fließkommazahl und kein Integer:
also müßte man es noch umwandeln
[add]ohhh und Vergleich statt Zuweisung ... kein ":"
[/add]
Delphi-Quellcode:
function Summ(n: integer): Integer;
begin
result := Round(n * (n + 1) / 2.0);
end;
oder besser glich bei Integer bleiben:
Delphi-Quellcode:
function Summ(n: integer): Integer;
begin
result = n * (n + 1) div 2;
end;
aber ich hab noch'n paar Löungen mit Schleifchen
Delphi-Quellcode:
// Result=0 wenn n negativ
function Summ(n: integer): Integer;
begin
Result := 0;
while n >= 1
do
begin
Inc(Result, n);
//Result := Result + n;
Dec(n);
end;
end;
Delphi-Quellcode:
// Result=n wenn n negativ
function Summ(n: integer): Integer;
begin
Result := 0;
repeat
Inc(Result, n);
//Result := Result + n;
Dec(n);
until n < 1;
end;