
Cálculo de los años bisiestos
Pascal/Turbo Pascal
Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)
30.386 visualizaciones desde el 11 de Julio del 2002
Programa que determina si un año es Bisiesto. Un año es bisiesto si es múltiplo de 4 (1988), excepto los múltiplos de 100 que no son bisiestos salvo que a su vez también sean múltiplos de 400
(1800 no es bisiesto, 2000 si es bisiesto)...compilado en Borland Pascal para Windows Version 7.0
(1800 no es bisiesto, 2000 si es bisiesto)...compilado en Borland Pascal para Windows Version 7.0
Comentarios sobre la versión: Versión 1 (3)
Para que un año sea bisiesto, tiene que ser divisible por 400 o tiene que ser divisible por 4 y no por 100.
Aca va un ejemplo de la sentencia if de año bisiesto:
If ((anio mod 400=0) or ((anio mod 4=0) and (anio mod 100<>0))) then bisiesto:=true;
else
bisiesto:=false;
cuando pase al segundo IF saldra falso (porque 2012 no es multiplo de 100) y tu respuesta se quedará con el FALSE ... y todos sabemos que 2012 es bisiesto.
=/