Programmieraufgaben für Perl-Anfänger:
Aufgabe 3 - Discountpreise: Während einer Sonderaktion wird ein Rabatt von 10% auf alle Einkäufe mit einem Gesamtbetrag von mehr als $10.00 gewährt. Schreiben Sie ein Programm, das nach dem Gesamtbetrag fragt und den Discountpreis berechnet. Der Gesamtbetrag wird in Cent (als Ganzzahl) eingegeben. Geben Sie den Gesamtbetrag ein: 2000 Discountpreis: 1800 Lösung:
#! /usr/bin/perl
use strict;
use warnings;
print "Geben Sie den Gesamtbetrag ein:\n";
my $betrag = <STDIN>;
chomp($betrag);
if($betrag > 10){
$betrag = $betrag * 0.9;
}
print "Discountpreis: $betrag\n";
|