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

Cálculo de los años bisiestosgráfica de visualizaciones


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(3)
Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas
25.543 visualizaciones desde el 11 de Julio del 2002. Una media de 35 por semana
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
estrellaestrellaestrellaestrellaestrella(3)

Publicado el 11 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
25.544 visualizaciones desde el 11 de Julio del 2002. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
{ 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
estrellaestrellaestrellaestrellaestrella
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é
01 de Julio del 2011
estrellaestrellaestrellaestrellaestrella
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
estrellaestrellaestrellaestrellaestrella
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

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s262