Σε λίγο, πώς θα δουλεύετε με τον Η/Υ;

Τώρα το [λίγο] δεν θα είναι στα μέσα Σεπτέμβρη 2010 που αρχίζει η νέα σχολική χρονιά. Μάλλον είναι σε πέντε χρόνια. Αλλά είναι πολύ ενδιαφέρον να παρακολουθήσετε την επίδειξη του John Underkoffler για τις νέες δυνατότητες χειρισμού των υπολογιστών.

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

Στην ταινία επιστημονικής φαντασίας [Minority Report] πήρατε μια ιδέα. Τώρα δουλεύουν για να μη χρειάζονται τα γάντια και να προσαρμόσουν τα λογισμικά σε νέους χωροχρονικούς υπολογισμούς.
Δείτε πώς θα δουλεύετε με τον Η/Υ σε λίγα χρόνια.

Δωρεάν βιβλία και μαθήματα

Η προσφορά βιβλίων (και άλλων καλλιτεχνικών δημιουργιών) στο διαδίκτυο είναι ήδη συνηθισμένη. Μπορεί να είναι δωρεάν ή με μικρό κόστος. Πρόσφατα δημοσίευσε [Το Βήμα] σχετικό άρθρο (27-05-2010, Έλλη Ισμαηλίδου), όπου παρατίθεται μια σειρά συνδέσμων προς δωρεάν βιβλιοθήκες. Γνωρίζουμε ακόμη ότι μεγάλες εταιρείες (όπως η Google) σαρώνουν ηλεκτρονικά τις σελίδες πολλών χιλιάδων βιβλίων από πολλές βιβλιοθήκες, προσφέροντας μεταξύ άλλων άνετη πρόσβαση σε σπάνια ή εύθρυπτα βιβλία.

Αυτά δεν γίνονται μόνο στο εξωτερικό! Διατίθεται στο διαδίκτυο σε μορφή ηλεκτρονικού βιβλίου (e-book) το μυθιστόρημα [Johnnie Society] του Έλληνα συγγραφέα Γιάννη Φαρσάρη. Αναζητήστε το στην διεύθυνση http://www.johnnie-society.org, όπου διατίθεται με άδεια Creative Commons, που επιτρέπει την ελεύθερη διανομή, αναπαραγωγή και διασκευή του έργου για μη εμπορική χρήση. (Να μη παραλείψουμε τον μοναδικό Νίκο Δήμου που ανέβασε τρία βιβλία στο διαδίκτυο το 1996).

Αυτό που βρίσκω επίσης πολύ ενδιαφέρον είναι η προσφορά δωρεάν μαθημάτων. Φανταστείτε ότι πρέπει να διδαχθεί ένα θέμα, για παράδειγμα [Το Πυθαγόρειο Θεώρημα]. Κάθε χρόνο, χιλιάδες καθηγητές το διδάσκουν, ο καθένας με τον τρόπο του, ανάλογα με τις ικανότητές του γενικά είτε με την διάθεσή του την συγκεκριμένη ημέρα ειδικά.
Είναι όλες αυτές οι διδασκαλίες το ίδιο καλές; Παρακολούθησαν οι μαθητές με την ίδια προσοχή; Αφομοιώθηκε το αντικείμενο στο μέγιστο ποσοστό και δεν χρειάζονται επαναλήψεις της παράδοσης σε ορισμένους μαθητές; Πιστεύω ότι οι απαντήσεις είναι αρνητικές αλλά ...

... αλλά η σημερινή τεχνολογική εξέλιξη επιτρέπει μια νέα μέθοδο που θα έπρεπε να εφαρμοσθεί και να γενικευθεί. (α) Γίνεται από καθηγητή με ευφράδεια και ωραίο παρουσιαστικό μια υποδειγματική διδασκαλία του θέματος, με βάση σενάριο ώστε να είναι ενδιαφέρον - να μη λείψει κάτι - να έχει συγκεκριμένη διάρκεια. (β) Γράφεται σε βίντεο η παράδοση αυτή και γίνεται ψηφιακή επεξεργασία για μενού - τίτλους - υπότιτλους - μετάφραση σε άλλες υποστηριζόμενες γλώσσες - σχήματα - παραπομπές κλπ. (γ) Εντάσσεται η παράδοση στην σειρά μαθημάτων που προβλέπει το αναλυτικό πρόγραμμα, με ανάρτησή της στο διαδίκτυο.

Από την στιγμή αυτή και μετά
(Α) οι καθηγητές μπορούν να προβάλλουν αυτό το βίντεο και να σχολιάζουν ή να απαντούν σε απορίες μαθητών και
(Β) οι μαθητές μπορούν να κάνουν όσες επαναλήψεις θέλουν για να εμπεδώσουν το θέμα, πιθανώς σε άλλη γλώσσα. Τώρα οι απαντήσεις δεν είναι αρνητικές.
Η διδασκαλία είναι πολύ καλή και με βελτιώσεις μπορεί να γίνει άριστη - μόνιμα άριστη.
Οι μαθητές μπορούν να παρακολουθήσουν όποτε η προσοχή τους είναι μέγιστη - ας πούμε το απόβραδο, ή μετά τα μεσάνυχτα, ή κατά τα ξημερώματα - αφού είναι γνωστό ότι διαφέρει από άνθρωπο σε άνθρωπο η ώρα της μέγιστης απόδοσης.
Μπορούν να γίνουν πολλές επαναλήψεις της ίδιας υποδειγματικής διδασκαλίας.
Μπορεί να γίνει άψογη μόρφωση στο σπίτι για όλους τους μαθητές, όχι μόνο για όσους έχουν πρόβλημα υγείας.
Αν γενικευθεί η διδασκαλία από απόσταση, τότε θα αποφευχθούν χρονοβόρες μετακινήσεις, που έχουν έξοδα και ενίοτε δυστυχήματα, και επίσης θα συμμετέχουν στην διαδικασία της δια βίου μόρφωσης περισσότεροι εργαζόμενοι.

Μπορούν να παρακολουθήσουν πλήρως την εκπαίδευση στα Ελληνικά και κάτοικοι άλλων χωρών που θα επιθυμούσαν να γνωρίζουν καλύτερα αυτή την γλώσσα, ομογενείς ή όχι. (Πάρα πολύ σημαντικό!)

Σχετικό άρθρο για μαθήματα στα Αγγλικά έχει δημοσιευτεί στο ιστολόγιο Terra Computerata (δες εδώ) όπου θα βρείτε σύνδεσμο προς την ιστοσελίδα http://www.openculture.com/freeonlinecourses με πληθώρα μαθημάτων.

Τι είδους παρακίνηση φέρνει αποτέλεσμα;

Σε ένα από τα ιστολόγια που παρακολουθώ (metablogging.gr) είδα το παρακάτω βιντεάκι. Είναι υπέροχη δουλειά με κείμενο γραπτό / προφορικό και εικόνα που εξελίσσονται παράλληλα με ταχύτητα (όπως μου αρέσει).
Ίσως βρείτε μέσα στην αφήγηση πειστικές εξηγήσεις γιατί διαθέτουν οι άνθρωποι τον χρόνο τους για να γράψουν σε διαδικτυακές εγκυκλοπαίδειες (παράδειγμα : η Βικιπαίδεια / Wikipedia), για να φτιάξουν συλλογικά λογισμικά (παράδειγμα : Linux), για να παρουσιάσουν σε ένα ιστολόγιο - όχι σε ένα βιβλίο - αναλύσεις εξειδικευμένων θεμάτων (παράδειγμα : Καλλιτεχνικό Σκάκι), για να προσφέρουν εθελοντικές υπηρεσίες, όλα δωρεάν!

Δείτε το!

Απλό πρόγραμμα μετατροπής

Συχνά θέλουμε να μετατρέψουμε μιά ποσότητα, εκφρασμένη σε μιά μονάδα μέτρησης, σε μια σειρά ποσών, εκφρασμένων σε πολλές σχετιζόμενες μονάδες μέτρησης.
Για παράδειγμα, μας δίνουνε μια ποσότητα σε ευρώ και μας ζητούν βρούμε από πόσα πεντακοσάρικα, διακοσάρικα, εκατοστάρικα, πενηντάρικα, εικοσάρικα, δεκάρικα, πεντάευρα, δίευρα και ευρώ απαρτίζεται.

Στο πρόγραμμα που εμφανίζεται παρακάτω, μας δίνουν μια ποσότητα σε δευτερόλεπτα χρόνου και μας ζητούν να βρούμε από πόσες ημέρες, ώρες, λεπτά, δευτερόλεπτα απαρτίζεται. Στο πρόγραμμα φαίνονται δύο μέθοδοι, που βρίσκουν τις επί μέρους ποσότητες με αντίστροφη πορεία.

ΠΡΟΓΡΑΜΜΑ μετατροπή

!Μετατρέπει δεδομένο πλήθος Α δευτερολέπτων ...
! ...σε ημέρες, ώρες, λεπτά, δευτερόλεπτα

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: Α, ημε, ωρε, λεπ, δευ, ημε1, ωρε1, λεπ1

ΑΡΧΗ

ΓΡΑΨΕ 'Δώσε πλήθος δευτερολέπτων ='

ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

ΔΙΑΒΑΣΕ Α

ΜΕΧΡΙΣ_ΟΤΟΥ Α > 0

!
!Μέθοδος πρώτη (το Α μένει αναλλοίωτο)
!Το Α γίνεται λεπτά και βρίσκουμε πόσα δευτερόλεπτα απομένουν

λεπ1 <- Α DIV 60

δευ <- Α - λεπ1*60

!Το λεπ1 γίνεται ώρες και βρίσκουμε πόσα λεπτά απομένουν

ωρε1 <- λεπ1 DIV 60

λεπ <- λεπ1 - ωρε1*60

!Το ωρε1 γίνεται ημέρες και βρίσκουμε πόσες ώρες απομένουν

ημε1 <- ωρε1 DIV 24

ωρε <- ωρε1 - ημε1*24

!Αν θέλουμε, συνεχίζουμε παρόμοια σε μήνες, χρόνια κλπ

ημε <- ημε1

ΓΡΑΨΕ ημε, ' ημέρες ', ωρε, ' ώρες ', λεπ, ' λεπτά ', δευ, ' δευτερόλεπτα'

!
!Μέθοδος δεύτερη (το Α μεταβάλλεται)
!24 * 60 * 60 = 86400 δευτερόλεπτα στην ημέρα

ημε <- Α DIV 86400

Α <- Α - ημε*86400

!60 * 60 = 3600 δευτερόλεπτα στην ώρα

ωρε <- Α DIV 3600

Α <- Α - ωρε*3600

!60 δευτερόλεπτα στο λεπτό

λεπ <- Α DIV 60

Α <- Α - λεπ*60

!και απομένουν...

δευ <- Α

ΓΡΑΨΕ ημε, ' ημέρες ', ωρε, ' ώρες ', λεπ, ' λεπτά ', δευ, ' δευτερόλεπτα'

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Οι πρώτοι 100 [πρώτοι αριθμοί]

Πρώτος, καλείται ένας φυσικός μεγαλύτερος του 1, που διαιρείται ακριβώς μόνο με την μονάδα και τον εαυτό του. Θα γνωρίζετε, υποθέτω, την μέθοδο εντοπισμού τους από τον Ερατοσθένη - το κόσκινο του Ερατοσθένη.

Παραδείγματα πρώτων αριθμών : 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41 ...

Ο αριθμός 2 είναι ο μόνος άρτιος (ζυγός) πρώτος αριθμός. Οι υπόλοιποι πρώτοι αριθμοί είναι περιττοί (μονοί).

Θέλουμε να φτιάξουμε ένα πρόγραμμα που θα υπολογίζει τους πρώτους 100 πρώτους αριθμούς. Ο έλεγχος για το αν κάποιος αριθμός είναι πρώτος θα γίνεται με μια λογική συνάρτηση.

Μέσα στην συνάρτηση θα προσπαθούμε να βρούμε αν ο δοθείς αριθμός Ξ διαιρείται με διαδοχικούς περιττούς αριθμούς, από 3 μέχρι Τετραγωνική_Ρίζα(Ξ). Δεν υπάρχει λόγος να ψάξουμε για μεγαλύτερους διαιρέτες, γιατί θα τους έχουμε ήδη συναντήσει ως πηλίκα, και θα έχουμε μάθει αν ο αριθμός Ξ διαιρείται.

Παραδείγματα :

16=2*8=4*4=8*2. Δεν ψάχνουμε για διαιρέτη πέρα από το 4.

60=2*30=3*20=4*15=5*12=6*10=10*6=12*5=15*4=20*3=30*2. Δεν ψάχνουμε για διαιρέτη πέρα από το Τ_Ρ(64)=7 κόμμα κάτι.

Η δική μου πρόταση φαίνεται παρακάτω. (Συμβουλή για ερευνητές : Αν η ταχύτητα υπολογισμού είναι σημαντική, για πολύ μεγάλα Ξ, δεν διαιρούμε με περιττούς από 3 μέχρι την ρίζα Ξ, αλλά διαιρούμε με πρώτους μέχρι την ρίζα Ξ).

ΠΡΟΓΡΑΜΜΑ πρωτοι

! πρώτος καλείται ο φυσικός αριθμός που διαιρείται ακριβώς
! μόνο με την μονάδα και τον εαυτό του.
! Εδώ θα βρούμε και θα γράψουμε τους πρώτους 100 πρώτους αριθμούς

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: ΠΡ[100], i, imax, Ξ

ΑΡΧΗ

imax <- 100

ΠΡ[1] <- 2

i <- 1 ! το i μετράει πόσους πρώτους έχουμε βρεί

Ξ <- 3 ! ελέγχουμε μόνο τους περιττούς από το 3 και μετά

ΟΣΟ i < imax ΕΠΑΝΑΛΑΒΕ

ΑΝ einaiprotos(Ξ) ΤΟΤΕ

i <- i + 1

ΠΡ[i] <- Ξ

ΤΕΛΟΣ_ΑΝ

Ξ <- Ξ + 2

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ imax ΜΕ_ΒΗΜΑ 10

ΓΡΑΨΕ ΠΡ[i], ΠΡ[i + 1], ΠΡ[i + 2], ΠΡ[i + 3], ΠΡ[i + 4], ΠΡ[i + 5], ΠΡ[i + 6], ΠΡ[i + 7], ΠΡ[i + 8], ΠΡ[i + 9]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

!

ΣΥΝΑΡΤΗΣΗ einaiprotos(Ξ): ΛΟΓΙΚΗ

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: Ξ, Σ

ΠΡΑΓΜΑΤΙΚΕΣ: ΡΙΖΑΞ

ΛΟΓΙΚΕΣ: διαιρείται

ΑΡΧΗ

ΡΙΖΑΞ <- Α_Μ(Τ_Ρ(Ξ))

Σ <- 3 ! οι διαιρέτες θα είναι περιττοί, από το 3 και μετά

διαιρείται <- ΨΕΥΔΗΣ

ΟΣΟ (Σ <= ΡΙΖΑΞ) ΚΑΙ (διαιρείται = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ

ΑΝ Ξ MOD Σ = 0 ΤΟΤΕ

διαιρείται <- ΑΛΗΘΗΣ

ΤΕΛΟΣ_ΑΝ

Σ <- Σ + 2

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

einaiprotos <- ΑΛΗΘΗΣ

ΑΝ διαιρείται ΤΟΤΕ

einaiprotos <- ΨΕΥΔΗΣ

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

Το εξαγόμενο είναι το ακόλουθο :

  2   3   5   7  11  13  17  19  23  29

 31  37  41  43  47  53  59  61  67  71

 73  79  83  89  97 101 103 107 109 113

127 131 137 139 149 151 157 163 167 173

179 181 191 193 197 199 211 223 227 229

233 239 241 251 257 263 269 271 277 281

283 293 307 311 313 317 331 337 347 349

353 359 367 373 379 383 389 397 401 409

419 421 431 433 439 443 449 457 461 463

467 479 487 491 499 503 509 521 523 541

Γρίφος Kasparov

Σε ένα ιστολόγιο για γρίφους έγινε μια ανάρτηση που ζητούσε να αποδείξουμε ότι

 YUSUPOV +

 SOKOLOV +

 2KARPOV =

KASPAROV

παίζοντας με τα ονόματα διάσημων παικτών σκακιού.

Σε γρίφους αυτού του είδους κάθε γράμμα αντιστοιχεί σε έναν αριθμό.
Συνήθως δεν είναι 0 το πρώτο γράμμα της λέξης, άρα υποθέτουμε ότι τα Y S K δεν είναι μηδενικά.
Στο ψηφίο των μονάδων V + V + V δίνει αριθμό που λήγει σε V, άρα μπορεί να είναι 0 ή 5. Άν είναι V=0, τότε στο ψηφίο των δεκάδων O + O + O δίνει O, άρα O=5.
Το K στο άθροισμα μπορεί να είναι 1 ή 2.

Μπορείτε να γράψετε ένα πρόγραμμα που να λύνει τον γρίφο;

Η δική μου προσπάθεια ακολουθεί παρακάτω :

ΠΡΟΓΡΑΜΜΑ KASPAROV

! YUSUPOV + SOKOLOV + 2KARPOV = KASPAROV

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: Y, U, S, P, O, V, K, L, A, R, X1, X2, X3, X4, MANY

ΑΡΧΗ

MANY <- 0

ΓΙΑ Y ΑΠΟ 1 ΜΕΧΡΙ 9

_ΓΙΑ U ΑΠΟ 0 ΜΕΧΡΙ 9

__ΑΝ U<>Y ΤΟΤΕ

___ΓΙΑ S ΑΠΟ 1 ΜΕΧΡΙ 9

____ΑΝ S<>Y ΚΑΙ S<>U ΤΟΤΕ

_____ΓΙΑ P ΑΠΟ 0 ΜΕΧΡΙ 9

______ΑΝ P<>Y ΚΑΙ P<>U ΚΑΙ P<>S ΤΟΤΕ

_______ΓΙΑ O ΑΠΟ 0 ΜΕΧΡΙ 9

________ΑΝ O<>Y ΚΑΙ O<>U ΚΑΙ O<>S ΚΑΙ O<>P ΤΟΤΕ

_________ΓΙΑ V ΑΠΟ 0 ΜΕΧΡΙ 5 ΜΕ ΒΗΜΑ 5

__________ΑΝ V<>Y ΚΑΙ V<>U ΚΑΙ V<>S ΚΑΙ V<>P ΚΑΙ V<>O ΤΟΤΕ

___________ΓΙΑ K ΑΠΟ 1 ΜΕΧΡΙ 2

____________ΑΝ K<>Y ΚΑΙ K<>U ΚΑΙ K<>S ΚΑΙ K<>P ΚΑΙ K<>O ΤΟΤΕ

____________ΑΝ K<>V ΤΟΤΕ

_____________ΓΙΑ L ΑΠΟ 0 ΜΕΧΡΙ 9

______________ΑΝ L<>Y ΚΑΙ L<>U ΚΑΙ L<>S ΚΑΙ L<>P ΚΑΙ L<>O ΤΟΤΕ

______________ΑΝ L<>V ΚΑΙ L<>K ΤΟΤΕ

_______________ΓΙΑ A ΑΠΟ 0 ΜΕΧΡΙ 9

________________ΑΝ A<>Y ΚΑΙ A<>U ΚΑΙ A<>S ΚΑΙ A<>P ΚΑΙ A<>O ΤΟΤΕ

________________ΑΝ A<>V ΚΑΙ A<>K ΚΑΙ A<>L ΤΟΤΕ

_________________ΓΙΑ R ΑΠΟ 0 ΜΕΧΡΙ 9

__________________ΑΝ R<>Y ΚΑΙ R<>U ΚΑΙ R<>S ΚΑΙ R<>P ΚΑΙ R<>O ΤΟΤΕ

__________________ΑΝ R<>V ΚΑΙ R<>K ΚΑΙ R<>L ΚΑΙ R<>A ΤΟΤΕ

_________X1 <- (((((Y*10 + U)*10 + S)*10 + U)*10 + P)*10 + O)*10 + V

_________X2 <- (((((S*10 + O)*10 + K)*10 + O)*10 + L)*10 + O)*10 + V

_________X3 <- (((((20 + K)*10 + A)*10 + R)*10 + P)*10 + O)*10 + V

_________X4 <- ((((((K*10 + A)*10 + S)*10 + P)*10 + A)*10 + R)*10 + O)*10 + V

___________________MANY <- MANY + 1

___________________ΑΝ X1 + X2 + X3 = X4 ΤΟΤΕ

____________________ΓΡΑΨΕ MANY, ' RESULT ', Y, U, S, P, O, V, K, L, A, R

___________________ΤΕΛΟΣ_ΑΝ

__________________ΤΕΛΟΣ_ΑΝ

__________________ΤΕΛΟΣ_ΑΝ

_________________ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

________________ΤΕΛΟΣ_ΑΝ

________________ΤΕΛΟΣ_ΑΝ

_______________ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

______________ΤΕΛΟΣ_ΑΝ

______________ΤΕΛΟΣ_ΑΝ

_____________ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

____________ΤΕΛΟΣ_ΑΝ

____________ΤΕΛΟΣ_ΑΝ

___________ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

__________ΤΕΛΟΣ_ΑΝ

_________ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

________ΤΕΛΟΣ_ΑΝ

_______ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

______ΤΕΛΟΣ_ΑΝ

_____ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

____ΤΕΛΟΣ_ΑΝ

___ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

__ΤΕΛΟΣ_ΑΝ

_ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Η εντολή

ΓΡΑΨΕ MANY, ' RESULT ', Y, U, S, P, O, V, K, L, A, R

δίνει αποτέλεσμα

136920 RESULT 9 7 4 2 5 0 1 8 6 3

άρα η πρόσθεση είναι

 9747250+

 4515850+

 2163250=

16426350

Ημερομηνία του Πάσχα

Πλησιάζει το Πάσχα (των Ορθοδόξων) και θέλουμε να μάθουμε πότε ακριβώς "πέφτει".
Θα χρησιμοποιήσουμε την μέθοδο Gauss.
Στο σημερινό πρόγραμμα διαβάζουμε το τετραψήφιο έτος και με ένα υποπρόγραμμα βρίσκουμε την ημερομηνία του Πάσχα και ένα λεκτικό για τον μήνα (στην γενική πτώση).
Το υποπρόγραμμα Βρες_Πάσχα θα παίρνει μία παράμετρο εισόδου [έτος] και θα επιστρέφει δύο παραμέτρους εξόδου [ημερομηνία, μηνός], άρα θα είναι διαδικασία. (Για μία παράμετρο εξόδου, αρκούσε ένα υποπρόγραμμα συνάρτηση).

ΠΡΟΓΡΑΜΜΑ πασχα

! υπολογίζουμε την ημερομηνία του Πάσχα για δεδομένο έτος

__ΜΕΤΑΒΛΗΤΕΣ

____ΑΚΕΡΑΙΕΣ: έτος, ημερομηνία

____ΧΑΡΑΚΤΗΡΕΣ: μηνός

ΑΡΧΗ

__ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

____ΓΡΑΨΕ 'Δώσε έτος τετραψήφιο : '

____ΔΙΑΒΑΣΕ έτος

__ΜΕΧΡΙΣ_ΟΤΟΥ έτος > 1900

__ΚΑΛΕΣΕ ΒρεςΠάσχα(έτος, ημερομηνία, μηνός)

__ΓΡΑΨΕ 'Το έτος ', έτος, ' έχει το πάσχα στις ', ημερομηνία, μηνός

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

!

ΔΙΑΔΙΚΑΣΙΑ ΒρεςΠάσχα(ετο, ημε, μην)

__ΜΕΤΑΒΛΗΤΕΣ

____ΑΚΕΡΑΙΕΣ: αα, ββ, γγ, δδ, ετο, ζζ, ημε

____ΧΑΡΑΚΤΗΡΕΣ: μην

ΑΡΧΗ

__αα <- ετο MOD 19

__ββ <- ετο MOD 4

__γγ <- ετο MOD 7

__δδ <- (19*αα + 16) MOD 30

__ζζ <- (2*ββ + 4*γγ + 6*δδ) MOD 7

__ημε <- 3 + δδ + ζζ

__μην <- ' Απριλίου'

__ΑΝ ημε > 30 ΤΟΤΕ

____ημε <- ημε - 30

____μην <- ' Μαΐου'

__ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

Η εκτέλεση του προγράμματος είναι κάπως έτσι :

Δώσε έτος τετραψήφιο:
2010
Το έτος 2010 έχει το πάσχα στις 4 Απριλίου