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>



Wandle die Repeat until-Schleife in eine While Do-Schleife um.

<code id="4d36e4c90131f">
function dick:real;
var d, l:real;
begin
//hier vervollständigen
end;
</code>

<run id="4d36e4c90139e">
writeln('Die Rolle ist: '+dick()+'m dick.');
</run>