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

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
10.740 visualizaciones desde el 11 de Julio del 2002. Una media de 21 por semana
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
10.741 visualizaciones desde el 11 de Julio del 2002. Una media de 21 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
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: victor_mes@hotmail.com  y  vmanuel_es@yahoo.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

http://lwp-l.com/s261