% J.-B. ROUX, 3S, 1990
%
% Ce programme détermine le jour de Pâques dans l’intervalle
% 1900 r 2099 inclus.
%
Y=input(‘Donner l »année : ‘);
N=Y-1900;
A=rem(N,19);
B=floor((7*A+1)/19);
M=rem(11*A+4-B,29);
Q=floor(N/4);
W=rem(N+Q+31-M,7);
dateP=25-M-W;
if dateP>0
disp([‘Pâques en ‘,int2str(Y),’ est le ‘,int2str(dateP),’ avril’])
else
disp([‘Pâques en ‘,int2str(Y),’ est le ‘,int2str(31+dateP),’ mars’])
end