ΠΡΟΓΡΑΜΜΑ Πάσχα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: α,β,γ,δ,ζ,ΕΤ,Π, min,max, min_ET[30,2],max_ET[30,2],i,j,k
ΧΑΡΑΚΤΗΡΕΣ: μήνας
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε τη χρονολογία:'
ΔΙΑΒΑΣΕ ΕΤ
max <-- 1
min <-- 61
i <-- 1
j <-- 1
k <-- 1
ΟΣΟ ΕΤ < 2501 ΕΠΑΝΑΛΑΒΕ
α <-- ΕΤ MOD 19
β <-- ΕΤ MOD 4
γ <-- ΕΤ MOD 7
δ <-- (19*α+16) MOD 30
ζ <-- (2*β+4*γ+6*δ) MOD 7
Π <-- δ+ζ+3
ΑΝ max<= Π ΤΟΤΕ
max <-- Π
max_ET[i,1] <-- ΕΤ
max_ET[i,2] <-- max
i <-- i+1
ΤΕΛΟΣ_ΑΝ
ΑΝ min>= Π ΤΟΤΕ
min <-- Π
min_ET[j,1] <-- ΕΤ
min_ET[j,2] <-- min
j <-- j+1
ΤΕΛΟΣ_ΑΝ
ΑΝ Π<=30 ΤΟΤΕ
μήνας <-- ' Απριλίου'
ΑΛΛΙΩΣ
μήνας <-- ' Μαΐου'
Π <-- Π-30
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Ημερομηνία του Πάσχα: ', Π, μήνας, ΕΤ
ΕΤ <-- ΕΤ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΟΣΟ k<j ΕΠΑΝΑΛΑΒΕ
ΑΝ min_ET[k,2]=min ΤΟΤΕ
ΓΡΑΨΕ 'Το πιο πρώιμο Πάσχα πέφτει το έτος : ', min_ET[k,1], ' στις :', min, ' Απριλίου'
ΤΕΛΟΣ_ΑΝ
k <-- k+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
k <-- 1
ΟΣΟ k<i ΕΠΑΝΑΛΑΒΕ
ΑΝ max_ET[k,2]=max ΤΟΤΕ
ΑΝ max<=30 ΤΟΤΕ
ΓΡΑΨΕ 'Το πιο όψιμο Πάσχα πέφτει το έτος : ', max_ET[k,1], ' στις :', max, ' Απριλίου'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Το πιο όψιμο Πάσχα πέφτει το έτος : ', max_ET[k,1], ' στις :', max-30, ' Μαΐου'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
k <-- k+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Πάσχα