Workshop zum Programmingwiki/Summe natürlicher Zahlen (Pascal)

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="5141df59b84ff">
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="5141cfc2f2b3d">
writeln(gausssumme(100));
</run>

Zurück zum [[Workshop zum Programmingwiki]].