Código de Pascal/Turbo Pascal - Cálculo de la fecha del domingo de pascua del N año en Pasca

sin imagen de perfil

Cálculo de la fecha del domingo de pascua del N año en Pascagráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 11 de Julio del 2002 por Victor Manuel Evaristo Salinas (8 códigos)
13.737 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 )

Versión 1

Publicado el 11 de Julio del 2002gráfica de visualizaciones de la versión: Versión 1
13.738 visualizaciones desde el 11 de Julio del 2002
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
33
34
35
36
37
38
{Programa que determina la fecha del domingo de pascua; y esta corresponde
 al primer domingo después de la primera luna llena que sigue al ---------
 equinoccio de primavera; los cálculos que permiten conocer esta fecha son:
   A = anio MOD 19
   B = anio MOD 4
   C = anio MOD 7
   D = (19*A+24) MOD 30
   E = (2*B+4*C+6*D+5) MOD 7
 Dia = (22 + D + E)
 compilado en Borland Pascal para Windows Version 7.0}
Program Pascua;
Uses wincrt;
var
   anio        :integer;
   a,b,c,d,e   :integer;
   dia         :integer;
Begin
   writeln('<====Programa que determina la Fecha del Domingo de Pascua====>');
   writeln; writeln;
   Write('Cuál es el año ? '); readln(anio);
   writeln; writeln;
   a:=anio mod 19;
   b:=anio mod 4;
   c:=anio mod 7;
   d:=(19*a+24) mod 30;
   e:=(2*b+4*c+6*d+5) mod 7;
     dia:= 22+ d +e;
   write('La fecha del Domingo de Pascua es: ');
     if dia <= 31 then
        writeln(dia, ' de Marzo de ', anio)
     else
        writeln(dia - 31, ' de Abril de ',anio);
   WRITELN;
 WRITELN ('Diseñado por: Victor Manuel Evaristo Salinas ');
 WRITELN;
 WRITELN ('E-Mail: [email protected].com  y  [email protected].com.mx');
 WRITELN
end.



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


No hay comentarios
 

Comentar la versión: Versión 1

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

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

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s261