Comunidad PHPeros

Lenguajes => C / C++ => Mensaje iniciado por: Erik en 05 de Agosto de 2008, 16:33:52 pm

Título: [PERL] Años bisiestos
Publicado por: Erik en 05 de Agosto de 2008, 16:33:52 pm
En la programación, no se sabe cuando es un año bisiesto, no te viene una funcion que se llame aniobisiesto();, por eso tenemos que usar if, y aqui en este código hecho por mi en perl, podemos ver como se consigue.

Código: [Seleccionar]
#!/usr/bin/perl
print "              |-----------------------------------|\n";
print "              |       Años bisiestos en perl      |\n";
print "              |        www.code-makers.es         |\n";
print "              |      youareowned@.hotmail.es      |\n";
print "              |-----------------------------------|\n";   
print "Introduce el año que deseas averiguar:";
$anio = <STDIN>;
if ((($anio%4 ==0) && ($anio%100!=0)) || ($anio%400==0))
{
print("Este anio es bisiesto\n");
}
else {
print "Este anio no es bisiesto";
}
Título: Re: [PERL] Años bisiestos
Publicado por: x.mara.x en 20 de Noviembre de 2008, 23:16:24 pm
em.. muy bueno.. pero que significa bisiesto? XD
Título: Re: [PERL] Años bisiestos
Publicado por: Erik en 21 de Noviembre de 2008, 13:52:28 pm
Los años bisiestos son los que tienen 1 dia más en febrero: 29/02/xxxx
Con este por ejemplo, pones: 2004 y te dice si es bisiesto o no.
Título: Re: [PERL] Años bisiestos
Publicado por: x.mara.x en 21 de Noviembre de 2008, 17:32:07 pm
cool!