Programación General > Pascal

 Años Bisiestos (#4).

<< < (2/3) > >>

TempWin:
Vaya, BlackTigerX, yo cree un programa que tiene el mismo código que tú  :P

Gracias por la aportación!

BlackTigerX:
si pues, este codigo ya es viejo, yo no lo cree... me imagino que tendra muchos años en circulacion... solo lo comparto con ustedes

elmango80:
FELICITACIONES

En todos los años que estuve programando en Pascal nunca me encontre con un algoritmo tan corto y tan efectivo....


:devil: ---------------------- :angel:

flog:
Yo tengo una mas corta todavia!!!

function Bisiesto(Anio: Integer): Boolean;
begin
 Bisiesto:= (Anio mod 4 = 0)
end;

Todos los años multiplos de 4 del año 2000 seran bisiestos!!! jejeje

 ;)

Lastent:
BlackTigerX no veo que no usas estructuras de control, entonces una pregunta sabes como cambiar dos filas de un  arreglo sin extructuras de control?????

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior