Bisiesto


Durante el siglo XIV, se instauró el calendario gregoriano. Dichosos de aquellos que estaban en cercanías de la capilla, pues otros pueblos de la misma Europa, contabilizaban los años con un desfasaje muy superior o inferior al que corrige la reforma promovida por el Papa Gregorio XIII. Según fuentes, en aquellos pueblos más alejados, algunos agricultores según el calendario, estaban en pleno invierno, pero el clima les decía que estaban en pleno verano y más aún,  no habían levantado la cosecha. Los agricultores hicieron los piquetes correspondientes en la capilla más cercana y batiendo el almanaque gritaban a viva voz: “Este software no funciona”, o “Error semántico”. Con tanta alharaca, dicen que un eclesiástico se asomó y les dijo: “Cuando este mes se termine, lo repetimos de nuevo, y joder hombre, todos a sus casas y en orden, sino volvemos a cobrar el diezmo”…., Como este blog tiene un fuerte contenido de servicio, les acercamos tres códigos, dos en Turbo Pascal 7.0 y uno en Python 2.5 no valla a ser que alguno no esté al tanto de la fecha oficial y se embaucado o hackeado en su más íntimo pecuño.

PROGRAM BISIESTO;
{*EVALUATE IF A GIVEN YEAR IS LEAP YEAR OR NOT*}
USES
CRT;
VAR
Y:INTEGER;
BEGIN
CLRSCR;
WRITELN;
WRITELN;
WRITELN(‘Rutina para determinar si un a¤o es bisiesto o no’);
WRITELN;
WRITE(‘Introduzca un a¤o superior a 1000: ‘);
READLN(Y);
IF (Y MOD 4 = 0) AND (Y MOD 100 <> 0) OR (Y MOD 400 = 0) THEN
BEGIN
WRITELN(‘El a¤o ‘, Y:4, ‘ ES bisiesto’);
READKEY;
END
ELSE
BEGIN
WRITELN(‘El a¤o ‘, Y:4, ‘ NO es bisiesto’);
READKEY;
END
END.
PROGRAM BISIEST2;
{*EVALUATE IF A GIVEN YEAR IS LEAP YEAR OR NOT.NOTE: GREGORIAN CALENDAR IS EFFECTIVE
FROM 1582. SOURCE: WIKIPEDIA. CONCEPT FROM THE SAME SOURCE: 1/4 -1/100 + 1/400*}
USES
CRT;
VAR
Y,X:REAL;
BEGIN
CLRSCR;
WRITELN;
WRITELN;
WRITELN(‘Rutina para determinar si un a¤o es bisiesto o no’);
WRITELN;
WRITE(‘Introduzca un a¤o superior a 1582: ‘);
READLN(Y);
X:=FRAC ((Y/4)-(Y/100)+(Y/400));
IF (FRAC(X) = 0.0) THEN
BEGIN
WRITELN(‘El a¤o ‘, Y:4:0, ‘ ES bisiesto’);
READKEY;
END
ELSE
BEGIN
WRITELN(‘El a¤o ‘, Y:4:0, ‘ NO es bisiesto’);
READKEY;
END
END.
Ejemplo en Python 2.5
BISISESTO.PY
#EVALUATE IF IS A LEAP YEAR OR NOT#
print “Vamos a evaluar si un año es bisiesto o no”
R =  int(input(“Ingrese un año superior a 1000: “))
if (R % 4)==0 and (R % 100)<>0 or (R % 400)==0:
print(“El año ES bisiesto:”), R
else:
print(“El año NO es bisiesto”), R


Historia del calendario – Ewing Duncan, David
Editorial: Emecé
ISBN: 950-04-2063-5
Páginas: 303
Peso estimado: 395 gr.

Blogalaxia Tags:

Anuncios
Esta entrada fue publicada en Turbo Pascal y etiquetada , , , , , , , . Guarda el enlace permanente.

Una respuesta a Bisiesto

  1. Pingback: Validar Fecha | Jamon del Medio

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s