Lessing-Gymnasium Hoyerswerda/Informatik/Programmierung

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Bei einer Mathematikolympiade wurde folgende Aufgabe gestellt:

 ''20 m Stoff werden auf einen Stab von 5 cm Durchmesser aufgewickelt.''<br>
 ''Der Stoff ist 1 mm dick.''
 ''Wie dick wird die Rolle?''

Eine Realisierung des Sachverhalts als Programm könnte folgendermaßen aussehen:

<code id="4d2b736674088">
function dick:real;
var d, l:real;
begin
l:=0;
d:=0.05;
repeat
      l:=l+pi*d;
      d:=d+0.002;
until l>=20;
result:=d
end;
</code>


<run id="4d36e38863279">
writeln('Die Rolle ist: '+dick()+'m dick.');
</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>