Programación General > Pascal

 Años Bisiestos (#4).

(1/3) > >>

_.B._:
Algo necesitado con frecuencia, es saber si un año es o no bisiesto.
Para ello, diseñé éste sencillo código:


--- Código: Text ---    FUNCTION Bisiesto (Anio:INTEGER):BOOLEAN;      BEGIN        Bisiesto:=FALSE;        IF Anio MOD 400 = 0 THEN          Bisiesto:=TRUE        ELSE          IF Anio MOD 100 = 0 THEN            Bisiesto:=FALSE          ELSE            IF Anio MOD 4 = 0 THEN              Bisiesto:=TRUE      END;  
Bueno, estos 4 por ahora.
Suerte, y espero les sirvan.
A programar!.

Bernardo L. :comp:

Enko:
:o  No habia visto una funcion que identifica un año bisiesto tan corta.
 ¡Me la copio YA!
Gracias por pasarlo a la pagina , mas personbas deberian hacerlo asi se podrian
ver otros ejemplos de la buena programacion B)

CiRRuS:
Estos son de los algoritmos que vale la pena para cualquier lenguaje, no solo para pascal, codigo limpio y a primera vista (y despues de varias pruebas  :comp: ) eficiente.

Pascal no programo casi nada, pero para C y demás viene de maravilla  :D .

Thks. Nos vemos

BlackTigerX:

--- Código: Text --- function Bisiesto(Anio: Integer): Boolean;begin  Bisiesto:= (Anio mod 4 = 0) and ((Anio mod 100 <> 0) or (Anio mod 400 = 0));end;  salu2

Enko:
BlackTiger  :
                   Eso lo que yo llamo  un algoritmo eficaz :comp: !

Navegación

[0] Índice de Mensajes

[#] Página Siguiente