Lessing-Gymnasium Hoyerswerda/Informatik/Programmierung

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Vergleich von Schleifen:
 ''zählgesteuerte Schleife''
 

Addiere mit Hilfe einer Zählschleife die Zahlen 1 bis 10.

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


<run id="4d36e38863279">
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>