! =============================================================
! Η μέθοδος με την οποία μπορούμε να υπολογίσουμε ποια μέρα
! της εβδομάδας πέφτουν τα Χριστούγεννα κάποια συγκεκριμένη
! χρονολογία, έχει ως εξής:
!
! 1. Έστω ΕΤ η χρονολογία που μας ενδιαφέρει.
! Σπάζουμε το ΕΤ σε δύο μέρη:
! 2. Ονομάζουμε Α τις εκατονταετίες της χρονολογίας, δηλαδή
! τα 2 αριστερά ψηφία του ΕΤ.
! 3. Ονομάζουμε Β τα υπόλοιπα χρόνια της χρονολογίας, δηλαδή
! τα 2 δεξιά ψηφία του ΕΤ.
! 4. Διαιρούμε το Α με τον αριθμό 4 και κρατάμε μόνο το ακέραιο
! μέρος. Αυτό το ονομάζουμε Κ.
! 5. Διαιρούμε το Β με τον αριθμό 4 και κρατάμε μόνο το ακέραιο
! μέρος. Αυτό το ονομάζουμε Λ.
! 6. Για να βρούμε την ημέρα της εβδομάδας εφαρμόζουμε τον τύπο:
! Χ = 50 + Β + Κ + Λ - 2Α.
! 7. Διαιρούμε το Χ με το 7 και το υπόλοιπο το ονομάζουμε Μ.
! 8. Αν Μ = 0 σημαίνει ότι τα Χριστούγεννα θα πέσουν Κυριακή,
! αν Μ = 1 θα πέσουν Δευτέρα, ... κ.ο.κ... , αν Μ = 6 θα
! πέσουν Σάββατο.
!
! Παράδειγμα:
! Έστω ότι μας ενδιαφέρει τι μέρα έπεσαν τα Χριστούγεννα το 1985.
! Θα είναι:
! ΕΤ = 1985 , Α = 19 , Β = 85 , Κ = 4 , Λ = 21 , Χ = 122 , Μ = 3
! Άρα το 1985 τα Χριστούγεννα έπεσαν Τετάρτη!
!
! ΝΓΠ το οποίο θα ζητάει μια χρονολογία και θα εμφανίζει το όνομα
! της ημέρας της εβδομάδας που πέφτουν τα Χριστούγεννα αυτήν
! τη χρονολογία.
! ===============================================================
ΠΡΟΓΡΑΜΜΑ Χριστούγεννα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α, Β, ΕΤ, Κ, Λ, Χ, Μ
ΧΑΡΑΚΤΗΡΕΣ: Ν
ΑΡΧΗ
ΓΡΑΨΕ 'Το πρόγραμμα ζητάει μία χρονολογία και βρισκει'
ΓΡΑΨΕ 'τι μέρα θα πέσουν τα Χριστούγεννα'
ΓΡΑΨΕ 'Δώστε χρονολογία'
ΔΙΑΒΑΣΕ ΕΤ
ΑΝ ΕΤ>2005 ΤΟΤΕ
Ν <-- 'θα πέσουν'
ΑΛΛΙΩΣ
Ν <-- 'έπεσαν'
ΤΕΛΟΣ_ΑΝ
Α <-- ΕΤ DIV 100
Β <-- ΕΤ MOD 100
Κ <-- Α DIV 4
Λ <-- Β DIV 4
Χ <-- 50 + Β + Κ + Λ - 2*Α
Μ <-- Χ MOD 7
ΑΝ Μ=0 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Κυριακή'
ΑΛΛΙΩΣ_ΑΝ Μ=1 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Δευτέρα'
ΑΛΛΙΩΣ_ΑΝ Μ=2 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Τρίτη'
ΑΛΛΙΩΣ_ΑΝ Μ=3 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Τετάρτη'
ΑΛΛΙΩΣ_ΑΝ Μ=4 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Πέμπτη'
ΑΛΛΙΩΣ_ΑΝ Μ=5 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Παρασκευή'
ΑΛΛΙΩΣ_ΑΝ Μ=6 ΤΟΤΕ
ΓΡΑΨΕ 'Τα Χριστούγεννα', Ν, 'Σάββατο'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Χριστούγεννα