Die Webseiten der Fachschaft Informatik am ERG Saalfeld

Bierschaum

Vom Schaum in einem Bierglas zerfällt pro Minute 15%. Nach welcher Zeit hat sich der Schaum auf 1% der Ausgangsmenge reduziert?
 

Programm

#!/usr/bin/perl
use strict;
use warnings;

my $zeit   = 0;
my $schaum = 1;

# solange wie der Schaum mehr als 1 %
while ($schaum > 0.01) {
  $zeit   = $zeit + 1;
  $schaum = $schaum * 0.85;
}

print "Wenn von einem Bier pro Minute 15% zerfallen\n";
print "ist nach $zeit Minuten hoechstens noch ein Prozent vorhanden.\n";

__END__

Der Aufruf sah bei mir so aus:

Aufgaben

1. Bringen Sie das Programm zum Laufen.
2. Kommentieren Sie das Programm (jede Zeile)!
3. Zeichnen Sie zu diesem Programm ein Struktogramm.
4. Lassen Sie ausgeben, wieviel Schaum (in Prozent) zu dieser Zeit noch genau vorhanden ist.
5. Ändern Sie das Programm so, dass die Wertbelegungstabelle ausgegeben wird. siehe Screenshot unten!
6. Ändern Sie das gegebene Programm so ab, dass der Zerfall pro Minute als Parameter übergeben werden kann.
7. Ändern Sie das gegebene Programm zusätzlich so ab, dass auch die Größe, wie weit der Schaum zerfallen soll, auch noch als Parameter übergeben werden kann.

zurück