Perl :: Aufgabe #19

2 Lösungen Lösungen öffentlich

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

Lösungen:

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;
vote_ok
von Evolving (50 Punkte) - 31.07.2017 um 11:13 Uhr
Quellcode ausblenden Perl-Code
print "Geben Sie den Gesamtbetrag ein:\n";

chomp(my $gesamtbetrag = <STDIN>);

if ($gesamtbetrag > 10) {
    $gesamtbetrag = ($gesamtbetrag * 90) / 100;
    print "Discountpreis: $gesamtbetrag\n";
}
1808757

Du scheinst einen AdBlocker zu nutzen. Ich würde mich freuen, wenn du ihn auf dieser Seite deaktivierst und dich davon überzeugst, dass die Werbung hier nicht störend ist.