Schaltjahresberechnung

2 Lösungen

#41

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

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) - 02.08.2016 um 13:37 Uhr

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"}