Perl :: Aufgabe #19
2 Lösungen
Programmier-Basics: Rabattaktion
Anfänger - Perl
von Freki
- 27.12.2012 um 14:53 Uhr
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 Rabatt berechnet.
Der Gesamtbetrag wird in Cent (als Ganzzahl) eingegeben.
Einkäufe mit einem Gesamtbetrag von mehr als $10.00 gewährt.
Schreiben Sie ein Programm, das nach dem Gesamtbetrag fragt
und den Rabatt berechnet.
Der Gesamtbetrag wird in Cent (als Ganzzahl) eingegeben.
Konsolenausgabe:
Geben Sie den Gesamtbetrag ein:
2000
Discountpreis: 1800
Lösungen:
Perl-Code#!C\Strawberry\perl # 10% Rabatt use strict; use warnings; print "Gib einen Gesamtbetrag ein, von dem 10 % abgezogen werden sollen."; print "\nBetrag: "; chomp(my $betrag=<STDIN>); my $preis=0.9*$betrag; print "Discountpreis: ".$preis;
Perl-Code
print "Geben Sie den Gesamtbetrag ein:\n";
chomp(my $gesamtbetrag = <STDIN>);
if ($gesamtbetrag > 10) {
$gesamtbetrag = ($gesamtbetrag * 90) / 100;
print "Discountpreis: $gesamtbetrag\n";
}