Perl-Aufgaben -- Lösung Aufgabe Nr. 4

Start | Ausarbeitungen | Module | Links | Kontakt | Snippets | Aufgaben | Vorträge | Impressum
Programmieraufgaben für Perl-Anfänger:

Aufgabe 4 - Überprüfung der Bestellung:
Bobs Schrauben Discount verlangt folgende Preise:
  • 5 Cent pro Schraube
  • 3 Cent pro Mutter
  • 1 Cent pro Unterlegscheibe
Schreiben Sie ein Programm, das den Anwender nach der Anzahl der Schrauben, Muttern und Beilegscheiben fragt und dann den Gesamtbetrag berechnet und ausgibt. Zusätzlich überprüft das Programm die Bestellung. Es ist normalerweise ein Fehler, wenn mehr Schrauben als Muttern bestellt werden. In diesem Fall gibt das Programm die Meldung aus "Kontrollieren Sie Ihre Bestellung!". Andernfalls gibt das Programm aus "Die Bestellung ist okay." In jedem Fall wird der Gesamtbetrag ausgegeben. 
Anzahl der Schrauben:
12
Anzahl der Muttern:
8
Anzahl der Unterlegscheiben:
24

Kontrollieren Sie Ihre Bestellung!

Gesamtbetrag: 108


Lösung:

#! /usr/bin/perl

use strict;
use warnings;

my $preis_schrauben = 5;
my $preis_muttern   = 3;
my $preis_unterleg  = 1;

print "Anzahl der Schrauben:\n";
my $schrauben = <STDIN>;
chomp($schrauben);
print "Anzahl der Muttern:\n";
my $muttern = <STDIN>;
chomp($muttern);
print "Anzahl der Unterlegscheiben:\n";
my $unterleg = <STDIN>;
chomp($unterleg);

if($schrauben > $muttern){
  print "\nKontrollieren Sie Ihre Bestellung!\n\n";
}
else{
  print "\nDie Bestellung ist ok!\n\n";
}

my $betrag = $schrauben * $preis_schrauben + $muttern * $preis_muttern + $unterleg * $preis_unterleg;

print "Gesamtbetrag: $betrag\n";