Zitat von
nailor:
das kann man aber auch mit hilfe der mathematik umformen und muss dann nicht iterativ/rekursiv rechnen.
Stimmt:
Delphi-Quellcode:
uses math;
//...
function AlternierendeSumme(von: integer): integer;
begin
SetRoundMode(rmUp);
result := (ord(not odd(von)) * 2 - 1) * round(von / 2) + 2;
SetRoundMode(rmNearest);
end;