Perl :: Aufgabe #19 :: Lösung #1

2 Lösungen Lösungen öffentlich
#19

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.

Konsolenausgabe:

Geben Sie den Gesamtbetrag ein:
2000
Discountpreis: 1800

#1
vote_ok
von NB_perler (1330 Punkte) - 12.09.2016 um 12:48 Uhr
Quellcode ausblenden 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;

Kommentare:

Für diese Lösung gibt es noch keinen Kommentar

Bitte melden Sie sich an um eine Kommentar zu schreiben.
Kommentar schreiben