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: ' +zahl() +'.');
</run>

Mit Hilfe der fußgesteuerten Schleife die Zahlen 1 bis 10 addieren.

<code id="4d36ed159eebc">
function zahl:integer;
var i,su:integer;
begin
//Ergänze den Quelltext
i:=0;
su:=0;
repeat
 i:=i+1;
 su:=su+i;
until i:=10;
result:=su;
end;
</code>


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


<check>
result:=55;
</check>