Lessing-Gymnasium Hoyerswerda/Informatik/Programmierung

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Vergleich von Schleifen:
 ''zählgesteuerte Schleife''
 
Mit Hilfe einer Zählschleife die Zahlen 1 bis 10 addieren.

<code id="4d36e9b1a7203">
function zahl:integer;
var i,su:integer;
begin
su:=0;
For i:=1 to 10 do
    su:=su+i;
result:=su;
end;
</code>

<run id="4d36e9b1a72f6">
writeln('Die Summe der Zahlen 1 bis 10 beträgt: '+su '.');
</run>