Perl :: Aufgabe #41
2 Lösungen
Schaltjahresberechnung
Anfänger - Perl
von Process1
- 10.01.2013 um 06:52 Uhr
Es soll eine jahreszahl übergeben werden und es soll überprüft werden ob es sich um ein Schaltjahr handelt oder nicht.
Es gilt:
- Wenn ein Jahr durch 4 teilbar ist, ist es ein Schaltjahr, aber
- wenn es durch 100 teilbar ist, ist es kein schaltjahr, außer
- es ist durch 400 teilbar, dann ist es ein schaltjahr
z.b. 1664, 1600, 2000, 2004 sind schaltjahre
1003, 2006, 1700 sind keine schaltjahre
Es gilt:
- Wenn ein Jahr durch 4 teilbar ist, ist es ein Schaltjahr, aber
- wenn es durch 100 teilbar ist, ist es kein schaltjahr, außer
- es ist durch 400 teilbar, dann ist es ein schaltjahr
z.b. 1664, 1600, 2000, 2004 sind schaltjahre
1003, 2006, 1700 sind keine schaltjahre
Lösungen:
Perl-Codeprint "Bitte Jahreszahl eingeben\n\n";
chomp($jahr=<STDIN>);
if($jahr%4 eq 0 and $jahr%100 ne 0 or $jahr%400 eq 0)
{
print "Es handelt sich um ein Schaltjahr";
}else{
print "Es handelt sich um kein Schaltjahr";
} Perl-Code
#!C\Strawberry\perl
use strict;
use warnings;
use DateTime;
print "Gib eine Jahr ein: ";
chomp(my $yr=<STDIN>);
my $dt = DateTime->new(year=> $yr);
my $is_leap=$dt->is_leap_year();
if ($dt->is_leap_year()) {print "$yr ist ein Schaltjahr"}
else {print "$yr ist kein Schaltjahr"}