Bergervei/Pascal-Summe ganzer Zahlen

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="5123fe108ab14">
function gausssumme(n: integer): double;
 var i    : integer;
     summe: double;
 begin
  summe:=0;
  for i:=1 to n do
   summe:=summe+i;
  result:=summe;
 end;
</code>

<check>
result:=(gausssumme(0)=0) and (gausssumme(100)=5050)
</check>

<run id="5123ff316786b">
writeln(gausssumme(100));
</run>