Dátum: 1999. március 4., 9:43
Feladó:
Tárgy: Re: husvet
Ime egy kis program a husvet vasarnap kiszamitasara BASIC
nyelven:
Udv: Szatmary Karoly
10 REM -- HUSVET -- Szatma'ry Ka'roly 1986
REM -- Fizikai Szemle 1988. nov.
pi=3.14159265#
30 CLS:PRINT:PRINT"A Hu'sve't vasa'rnap ido''pontja'nak kisza'mi'ta'sa"
r1=pi/180
50 print:print:input"Melyik e'vben (>1583)";ev
if ev<1583 then 50
e1=ev/19
a=int((e1-int(e1))*19+.001):b1=ev/100:b=int(b1)
c=int((b1-int(b1))*100+.001):d1=b/4:d=int(d1)
e=int((d1-int(d1))*4+.001):f=int(((b+8)/25)+.001):g=int((b-f+1)/3)
h1=(19*a+b-d-g+15)/30:h=int((h1-int(h1))*30+.001)
c1=c/4:i=int(c1):k=int((c1-i)*4+.001)
l1=(32+2*e+2*i-h-k)/7:l=int((l1-int(l1))*7+.001)
n=int((a+11*h+22*l)/451):n1=(h+l-7*m+114)/31:n=int(n1)
p=int((n1-n)*31+.001)
ho$="a'prilis":if n=3 then ho$="ma'rcius"
print:print"A Hu'sve't vasa'rnap"ev". e'vben: ";ho$;p+1"."
80 g$=inkey$:if g$="" then 80
goto 50