Autor Tema: [PERL] Años bisiestos  (Leído 2485 veces)

Desconectado Erik

  • PHPero Avanzado
  • ****
  • Mensajes: 271
  • Karma: 14
  • Sexo: Masculino
    • Ver Perfil
[PERL] Años bisiestos
« 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";
}
« Última modificación: 05 de Agosto de 2008, 17:48:55 pm por naveda »
Código: [Seleccionar]
<?php
$myset 
"PHPER@ AVANZADO";
echo 
"Yo soy".$myset;
?>

Comunidad PHPeros

[PERL] Años bisiestos
« en: 05 de Agosto de 2008, 16:33:52 pm »

Desconectado x.mara.x

  • PHPero Master
  • ******
  • Mensajes: 1.364
  • Karma: 57
  • Sexo: Femenino
    • Ver Perfil
Re: [PERL] Años bisiestos
« Respuesta #1 en: 20 de Noviembre de 2008, 23:16:24 pm »
em.. muy bueno.. pero que significa bisiesto? XD

Desconectado Erik

  • PHPero Avanzado
  • ****
  • Mensajes: 271
  • Karma: 14
  • Sexo: Masculino
    • Ver Perfil
Re: [PERL] Años bisiestos
« Respuesta #2 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.
Código: [Seleccionar]
<?php
$myset 
"PHPER@ AVANZADO";
echo 
"Yo soy".$myset;
?>

Desconectado x.mara.x

  • PHPero Master
  • ******
  • Mensajes: 1.364
  • Karma: 57
  • Sexo: Femenino
    • Ver Perfil
Re: [PERL] Años bisiestos
« Respuesta #3 en: 21 de Noviembre de 2008, 17:32:07 pm »
cool!