Códigos Fuente de Pascal/Turbo Pascal

Mostrando del 131 al 138 de 138 registros
<<>>
sin imagen de perfil

Cálculo de la fecha del domingo de pascua del N año en Pasca


Pascal/Turbo Pascal

Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)
15.565 visualizaciones desde el 11 de Julio del 2002
Programa que calcula la fecha del domingo de pascua de N año en particular. La Fecha de Pascua corresponde al primer domingo después de la primera Luna Llena que sigue el equinoccio de primavera y se calcula con las siguientes expresiones:
A = AÑO MODULO 19
B = AÑO MODULO 4
C = AÑO MODULO 7
D = ( 19 * A + 24 ) MODULO 30
E = ( 2 * B + 4 * C + 6 * D + 5 ) MODULO 7
N = ( 22 + D + E )
sin imagen de perfil

Cálculo de los años bisiestos


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(3)
Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)
30.050 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
sin imagen de perfil

Codificar Texto


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 12 de Marzo del 2002 por Gonzalo (3 códigos)
10.242 visualizaciones desde el 12 de Marzo del 2002
Coge el texo a codificar y le 'suma' una clave, con lo que tenemos el texto codificado. Si queremos el texto original tendremos que 'restarle' la clave que antes le habiamos sumado.