Thread Geldautomat von Perl 6 zu Perl 5 (7 answers)
Opened by Tobi at 2016-02-19 13:58

guest Tobi
 2016-02-19 13:58
#183935 #183935
Hallo zusammen,
hab einen Skript für einen Geldautomaten in Perl 6 und bekomm es nicht hin ihn auf 5 umzuschreiben. (bin Anfänger)
Über Hilfe wäre ich sehr dankbar
LG

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $pin = 1234;
my $guthaben = 655.36;

say "Geben Sie ihre PIN ein:";
my $pin_eingabe = $*IN.get;

if $pin == $pin_eingabe {
say "Geben Sie den Betrag ein, den Sie abheben wollen:";
my $auszahlung = $*IN.get;
if ($auszahlung <= $guthaben) {
say "Nehmen Sie die $auszahlung Euro mit...";
$guthaben = $guthaben - $auszahlung;
} else {
say "So viel haben Sie nicht auf dem Konto";
}
} else {
say "PIN falsch, Karte wird einbehalten";
}

Last edited: 2016-02-19 14:24:08 +0100 (CET)

View full thread Geldautomat von Perl 6 zu Perl 5