Difference between revisions of "Perl check program oplæg"
From Teknologisk videncenter
m (New page: #Lav subrutine der kan udskrive en teksten på en check. ##Først mellem 0,00 kr og 99,50 kroner #Hvis du kan nå det op til 999,50 kroner <source lang=perl> my $tal; my @Enere = qw/nul...) |
(No difference)
|
Revision as of 14:42, 9 November 2009
- Lav subrutine der kan udskrive en teksten på en check.
- Først mellem 0,00 kr og 99,50 kroner
- Hvis du kan nå det op til 999,50 kroner
my $tal;
my @Enere = qw/nul en to tre fire fem seks syv otte ni/;
my @TiTilNitten = qw/ti elve tolv tretten fjorten femten seksten sytten atten nitten/;
my @Tiere = qw /tyve tredive fyrre halvtreds tres halvfjerds firs halvfems/;
do {
print "\nIndtast et tal mellem 0 og 99: ";
$tal = <STDIN>;
if ( $tal < 10 ) {
print $Enere[$tal];
} elsif ( $tal < 20 ) {
print $TiTilNitten[$tal-10];
} elsif ( $tal < 100 ) {
if ( ($tal%10) == 0 ) {
print $Tiere[($tal/10)-2];
} else {
print $Enere[$tal%10], "og”, $Tiere[(($tal-$tal%10)/10)-2];
}
}
} while ($tal < 100);