Programmier-Basics: Rabattaktion

2 Lösungen

#19

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

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von NB_perler (1330 Punkte) - 12.09.2016 um 12:48 Uhr

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;