Código de Pascal/Turbo Pascal - Cálculo de los años bisiestos

Cálculo de los años bisiestos

Pascal/Turbo Pascal

(3)

Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)

30.044 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

Versión 1
(3)

Publicado el 11 de Julio del 2002

gráfica de visualizaciones de la versión: Versión 1

30.045 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

  en Borland Pascal para Windows Version 7.0}

Program Bisiesto;

uses wincrt;

var

   anio:integer;

   esbisiesto:boolean;

Begin

    WRITELN('<====Programa que Determina si un Año es Bisiesto====>');

    WRITELN; WRITELN;

    Write(' Cuál es el año? '); readln(anio);

    WRITELN; WRITELN;

    Esbisiesto:=false;

      if anio mod 4 = 0  then

            esbisiesto:=true;

      if (anio mod 100=0) and (anio mod 400 <> 0) then

           esbisiesto:=false;

   write('El año ',anio);

     if esbisiesto then

          write(' Es bisiesto...')

     else

          write(' No Es bisiesto...');

 WRITELN;  WRITELN;

 WRITELN('Diseñado por: Victor Manuel Evaristo Salinas');

 WRITELN;

 WRITELN;

 WRITELN('E-mail: victor_mes@hotmail.com y vmanuel_es@yahoo.com.mx');

 WRITELN

end.

Comentarios sobre la versión: Versión 1 (3)

Nicolas

26 de Octubre del 2004

El codigo esta mal, en realidad esta mal planteado logicamente.
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;

Responder

Carlos Cuyé

1 de Julio del 2011

Así como lo planteás, no es necesario especificar la condición de múltiplo de 100, ya que todos los múltilplos de 400 también son múltiplos de 100. Es decir que con verificar que sea múltiplo de 400 es suficiente (si lo es de 400, también lo será de 100). Este comentario está referido exclusivamente al código. No conozco la manera en que se determinan los años bisiestos.

Responder

Mario

16 de Abril del 2012

Esta mal!!!... si el año es 2012 el primer IF te saldrá verdadero(es bisiesto)
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.
=/

Responder

Comentar la versión: Versión 1

http://lwp-l.com/s262

Tags:
Borland Pascal

Convertidor de base 2 a 16 a base 10

Juego del Simon

Código de Pascal/Turbo Pascal - Cálculo de los años bisiestos

Versión 1(3)

Comentarios sobre la versión: Versión 1 (3)

Comentar la versión: Versión 1

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Versión 1
(3)