Απρ 14 2011

Έρχεται το Πάσχα. Μπορείς να βρεις πότε είναι το επόμενο;

ΚΑΛΟ ΠΑΣΧΑ !!Σε λίγες μέρες έρχεται το Πάσχα. Αλήθεια, ξέρεις να υπολογίσεις πότε είναι κάθε χρόνο;

Υπάρχει τρόπος. Τον αλγόριθμο που το υπολογίζει τον σκέφτηκε ο μεγάλος μαθηματικός Gauss (Johann Carl Friedrich Gauss)

Ο αλγόριθμος (εκφρασμένος σε απλή γλώσσα BASIC) είναι ο εξής:


input "ΔΩΣΤΕ ΤΟ ΕΤΟΣ:", e
a = mod (e,19)
b = mod (e,4)
c = mod (e,7)
d1 = 19 * a + 16
d = mod (d1,30)
f1 = 2 * b + 4 * c + 6 * d
f = mod (f1,7)
p = 3 + d + f

m$ = " ΑΠΡΙΛΙΟΥ"

If p > 30 Then
	p = p - 30
	m$ = " ΜΑΪΟΥ"
end if

print "ΤΟ" ; e ; "ΤΟ ΠΑΣΧΑ ΕΙΝΑΙ:" ; p ; m$

ΣΗΜΕΙΩΣΗ 1:

Η συνάρτηση mod (a,b) υπολογίζει το υπόλοιπο της διαίρεσης του αριθμού a με τον b. Δηλ. το mod (e,7) υπολογίζει το υπόλοιπο της διαίρεσης του έτους e με το 7. Στο τέλος κάνουμε την εξής σκέψη: Το Πάσχα είναι ή Απρίλιο ή Μάιο. Οπότε θεωρούμε (αυθαίρετα) ότι είναι τον Απρίλιο και με το If ελέγχουμε αν η ημερομηνία του Πάσχα (το p) είναι πάνω από 30 οπότε τότε αφαιρούμε το 30 και ο μήνας θα είναι Μάιος.

ΣΗΜΕΙΩΣΗ 2:

Αν επιχειρήσεις να κάνεις το παραπάνω πρόγραμμα στη LOGO (Microworlds Pro) η συνάρτηση mod (a,b) είναι η: υπόλοιπο a b

ΣΗΜΕΙΩΣΗ 3:

Δείτε μερικές παρατηρήσεις σχετικά με τον παραπάνω αλγόριθμο εδώ.

ΚΑΛΟ ΠΑΣΧΑ !!

ΒΑΓΓΕΛΗΣ ΖΑΜΑΝΗΣ

Είμαι καθηγητής πληροφορικής. Σπούδασα μαθηματικά στο Πανεπιστήμιο Πατρών και στη συνέχεια πληροφορική στο ΤΕΙ Αθήνας.
Από το 1997 υπηρετώ (σ)την Δευτεροβάθμια εκπαίδευση.

Περισσότερες πληροφορίες

Μόνιμος σύνδεσμος σε αυτό το άρθρο: https://blogs.sch.gr/ezavag/2011/04/14/%ce%ad%cf%81%cf%87%ce%b5%cf%84%ce%b1%ce%b9-%cf%84%ce%bf-%cf%80%ce%ac%cf%83%cf%87%ce%b1-%cf%80%cf%8c%cf%84%ce%b5-%ce%b5%ce%af%ce%bd%ce%b1%ce%b9-%cf%84%ce%bf-%ce%b5%cf%80%ce%bf%ce%bc%ce%b5%ce%bd%ce%bf/

1 σχόλιο

2 pings

  1. Kαλά που μου το θύμισες, “ζήλεψα”, και θα βάλω και στο δικό μου, αλλά με excel (basic έκανα κάποτε λίγο, και logo καθόλου)…
    Και το “εδώ” για τις παρατηρήσεις…
    Ευχαριστώ, καλό Πάσχα…

  1. […] ΚΑΛΟ ΠΑΣΧΑ […]

  2. […] ΚΑΛΟ ΠΑΣΧΑ […]

Αφήστε μια απάντηση

Για μένα

Δείτε το προφίλ μου

Ονομάζομαι Ζαμάνης Βαγγέλης.

Είμαι καθηγητής πληροφορικής.


Σπούδασα μαθηματικά στο Πανεπιστήμιο Πατρών και στη συνέχεια πληροφορική στο ΤΕΙ Αθήνας.


Από το 1997 υπηρετώ (σ)την Δευτεροβάθμια εκπαίδευση.

Αλλαγή μεγέθους γραμματοσειράς
Αντίθεση
Accessibility by WAH