Programmierung

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:11:25+00:00. Aktuelle Version

Bei einer Mathematikolympiade wurde folgende Aufgabe gestellt:

20 m Stoff werden auf einen Stab von 5 cm Durchmesser aufgewickelt.

Der Stoff ist 1 mm dick.
Wie dick wird die Rolle?

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

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;

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

writeln(