wow
ΠΛΗΡΟΦΟΡΙΚΗ
Γ Λυκείου - Κατεύθυνσης
go!
Περιεχόμενα
Κεφάλαιο 10 Υποπρογράμματα
10.1 Τμηματικός προγραμματισμός
10.2 Χαρακτηριστικά των υποπρογραμμάτων
10.3 Πλεονεκτήματα του τμηματικού προγραμματισμού
10.4 Παράμετροι
ΠΑΡΑΔΕΙΓΜΑ
ΔΙΑΔΙΚΑΣΙΑ
όνομα
(λίστα παραμέτρων)
τμήμα δήλωσης
ΑΡΧΗ
εντολές
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ πχΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ, Υ, ΖΑΡΧΗ ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ: Χ: ', Χ, ' Υ: ', Υ ΚΑΛΕΣΕ Άθροισμα(Χ, Υ, Ζ) ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ Χ: ', Χ, ' Υ: ', Υ, ' Ζ: ', ΖΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΔΙΑΔΙΚΑΣΙΑ Άθροισμα(Α, Β, Γ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, ΓΑΡΧΗ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α:', Α, ' Β: ', Β Γ <- Α + Β Α <- Α + 5 Β <- Β + 5 ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α: ', Α, ' Β: ', ΒΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ πχ2ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ, Υ, ΖΑΡΧΗ ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ: Χ: ', Χ, ' Υ: ', Υ ΚΑΛΕΣΕ Άθροισμα(Χ, Υ, Ζ) ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ Χ: ', Χ, ' Υ: ', Υ, ' Ζ: ', ΖΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΔΙΑΔΙΚΑΣΙΑ Άθροισμα(Α, Β, Γ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, Γ, Χ, Υ, ΖΑΡΧΗ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α:', Α, ' Β: ', Β Γ <- Α + Β Α <- Α + 5 Β <- Β + 5 ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α: ', Α, ' Β: ', Β ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Χ: ', Χ, ' Υ: ', Υ Ζ <- Χ + Υ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Ζ: ', ΖΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Τμήμα προγράμματος που μπορεί να εκτελεστεί αυτοτελώς!Μάλιστα επαναλαμβάνεται δύο φορές σε διαφορετικά σημεία.
Διαδικασίες και Πίνακες
ΔΙΑΔΙΚΑΣΙΑ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ(Α) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Α[100], ιΑΡΧΗΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100ΔΙΑΒΑΣΕ Α[ι]ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Έστω το παρακάτω πρόγραμμα το οποίο χρησιμοποιεί δύο διαδικασίες για το γέμισμα και την εκτύπωση δύο πινάκων.
ΠΡΟΓΡΑΜΜΑ γέμισμα_εκτύπωση_πίνακα ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ[100]. Υ[100] ΑΡΧΗ ΓΡΑΨΕ 'Γέμισμα 1ου πίνακα' ΚΑΛΕΣΕ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ (Χ) ΓΡΑΨΕ 'Γέμισμα 2ου πίνακα' ΚΑΛΕΣΕ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ (Υ) ΓΡΑΨΕ 'Εκτύπωση 1ου πίνακα ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Χ) ΓΡΑΨΕ 'Εκτύπωση 2ου πίνακα' ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Υ) ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Στην λίστα των τυπικών παραμέτρων γράφεται μόνο το όνομα του πίνακα!
Στην λίστα των πραγματικών παραμέτρων της εντολής ΚΑΛΕΣΕ γράφεται μόνο το όνομα του πίνακα χωρίς το μέγεθος του!
ΔΙΑΔΙΚΑΣΙΑ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Α) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α[100], ι ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 ΓΡΑΨΕ Α[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΑΣΚΗΣΗ
Να γράψετε διαδικασία που να επιστρέφει τον μικρότερο αριθμό και την θέση του από έναν πίνακα Χ[100] με ακέραιους αριθμούς.
ΔΙΑΔΙΚΑΣΙΑ Μικρότερο (Χ, μιν, μιν_θέση) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Χ[100], ι, μιν, μιν_θέσηΑΡΧΗμιν <- Χ[1]μιν_θέση <- 1ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100ΑΝ Χ[ι]< μιν ΤΟΤΕμιν <- Χ[ι]μιν_θέση <- ιΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ-ΔΙΑΔΙΚΑΣΙΑΣ
2019
9, 4, 17, 13, 25, 30, 33, 55, 41, 88
2021
ΔΙΑΔΙΚΑΣΙΑ Β1 (ΠΛ, Σ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Χ, ΠΛ, Σ, Ι ΑΡΧΗ ΠΛ <- 0 Σ <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 1000ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣΔΙΑΒΑΣΕ ΧΜΕΧΡΙΣ_ΟΤΟΥ Χ > 0 ΑΝ Χ MOD 3 = 0 ΤΟΤΕΠΛ <- ΠΛ + 1ΤΕΛΟΣ_ΑΝ ΑΝ Χ>=100 ΚΑΙ Χ<=999 ΤΟΤΕΣ <- Σ+ΧΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
2022
τύπος συνάρτησης
ΣΥΝΑΡΤΗΣΗ
όνομα
(λίστα παραμέτρων):
Τμήμα δήλωσης
ΑΡΧΗ
εντολές
όνομα <-- έκφραση
εντολές
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΠΡΟΓΡΑΜΜΑ πράξειςΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Α, Β, Αθ, ΑφΑΡΧΗΔΙΑΒΑΣΕ Α, Β Αθ <- Άθροισμα(Α, Β) !Κλήση συνάρτησης ΓΡΑΨΕ Αθ Αφ <- Αφαίρεση(Β, Α) !Κλήση συνλαρτησης ΓΡΑΨΕ ΑφΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΣΥΝΑΡΤΗΣΗ Άθροισμα(Χ, Υ): ΠΡΑΓΜΑΤΙΚΗΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΥΑΡΧΗΆθροισμα <- Χ + ΥΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣΣΥΝΑΡΤΗΣΗ Αφαίρεση(Χ, Υ): ΠΡΑΓΜΑΤΙΚΗΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΥΑΡΧΗΑφαίρεση <- Χ - ΥΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΠΡΟΓΡΑΜΜΑ ΠΧΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, ΠρΑΡΧΗ ΔΙΑΒΑΣΕ Α, Β Πρ <- Πράξεις(Α, Β) ΓΡΑΨΕ Πρ, Α, Β Α <- Α*Πρ Β <- Β*Πρ ΓΡΑΨΕ Πρ, Α, ΒΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ Πράξεις(Α, Β): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, ΒΑΡΧΗ Α <- Α + 2 Β <- Β - Α Πράξεις <- (Α + Β) div 4ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
2018
2025
Μετατροπές
συνάρτηση --> διαδικασία
- Στις τυπικές παραμέτρους της διαδικασίας προσθέτουμε μία ακόμα παράμετρο που θα περιέχει την τιμή που επιστρέφει!
- Εάν στο τμήμα εντολών της συνάρτησης αλλάζουν οι τιμές των τυπικών παραμέτρων θα πρέπει να χρησιμοποιήσουμε νέες μεταβλητές που θα δέχονται τις τροποποιημένες τιμές.Αυτό γίνεται γιατί η διαδικασία, εξ ορισμού, επιστρέφει τις τιμές των τυπικών παραμέτρων στις πραγματικές, ενώ η συνάρτηση όχι.
- Αλλαγές υπάρχουν και κατά την κλήση του υποπρογράμματος τόσο στον τρόπο σύνταξης όσο και στο πλήθος των πραγματικών παραμέτρων. Η μεταβλητή που δεχόταν την επιστρεφόμενη από την συνάρτηση τιμή στο κύριο πρόγραμμα, μπαίνει στη λίστα των πραγματικών παραμέτρων.
ΣΥΝΑΡΤΗΣΗ Πράξεις(Α,Β):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Α,ΒΑΡΧΗΑ <-- Α + 2 Β <-- Β - 3 Πράξεις <-- (Α+Β)DIV2ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ Πράξεις(Α,Β,Γ)
ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:Α, Β, Γ, Α1, Β1ΑΡΧΗΑ1 <- Α Β1 <- Β Α1 <- Α1 + 2 Β1 <- Β1 -3 Γ <- (Α1+Β1) DIV 2ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΒΑΣΕ Χ,Υ Ζ <- Πράξεις(Χ,Υ) ΓΡΑΨΕ Χ,Υ,Ζ
ΔΙΑΒΑΣΕ Χ,Υ ΚΑΛΕΣΕ Πράξεις(Χ,Υ,Ζ) ΓΡΑΨΕ Χ,Υ,Ζ
ΔΙΑΔΙΚΑΣΙΑ Δ_ΠΡΑΞΗ (x,y,z) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: x,y,x1,y1 ΠΡΑΓΜΑΤΙΚΕΣ: zΑΡΧΗx1 <- x y1 <- yΑΝ (x1>=y1) ΤΟΤΕx1 <- x1 + 3ΑΛΛΙΩΣy1 <- y1 - 4ΤΕΛΟΣ_ΑΝ z <- (x1 + y1) / 2ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ ΚΥΡΙΟ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:α,β ΠΡΑΓΜΑΤΙΚΕΣ: γΑΡΧΗΔΙΑΒΑΣΕ α , β ΚΑΛΕΣΕ Δ_ΠΡΑΞΗ(α,β,γ) ΓΡΑΨΕ γΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
2022
2024
ΣΥΝΑΡΤΗΣΗ F (x):ΠΡΑΓΜΑΤΙΚΗ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:x ΠΡΑΓΜΑΤΙΚΕΣ:y, aΑΡΧΗa <- 10.5 y <- x^2 + 4*a F <-yΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΒΑΣΕ a b <- F(a) ΓΡΑΨΕ a,b
!Δ3 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 10 Σ <- 0 μαχ <- Β[1, ξ] μιν <- Β[1, ξ] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 Σ <- Σ + Β[ι, ξ] ΑΝ μαχ < Β[ι, ξ] ΤΟΤΕ μαχ <- Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΑΝ μιν > Β[ι, ξ] ΤΟΤΕ μιν <- Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΟ[ξ] <- (Σ - μαχ - μιν)/8 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ μαχ2 <- ΜΟ[1] μαχ_Ο <- Ο[1] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 ΑΝ ΜΟ[ι] > μαχ2 ΤΟΤΕ μαχ2 <- ΜΟ[ι] μαχ_Ο <- Ο[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ μαχ_Ο
!Δ4 διαφ <- Α_Τ(ΜΟ[1] - Β[1, 1]) μιν2 <- διαφ μιν_Ο <- Ο[1] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 διαφ <- Α_Τ(ΜΟ[ι] - Β[ι, ι]) ΑΝ μιν2 > διαφ ΤΟΤΕ μιν2 <- διαφ μιν_Ο <- Ο[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ μιν_ΟΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ θέμαΔ_επαν_2017ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, Β[10, 10], Σ, μαχ, μιν ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[10], μαχ2, μιν2, διαφ ΧΑΡΑΚΤΗΡΕΣ: Ο[10], μαχ_Ο, μιν_ΟΑΡΧΗ!Δ2 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10 ΔΙΑΒΑΣΕ Ο[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10 ΔΙΑΒΑΣΕ Β[ι, ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 10 ΑΝ ι <> ξ ΤΟΤΕ ΓΡΑΨΕ Ο[ξ] ΔΙΑΒΑΣΕ Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΡΟΓΡΑΜΜΑ θέμαΔ_2016ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, ΘέσηΑ, θέσηΚ ΧΑΡΑΚΤΗΡΕΣ: Φ[150000], ΚΩΔ[150000] ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ[150000, 12], ΣΧ[150000] ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΔΙΑΒΑΣΕ ΚΩΔ[ι], Φ[ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 12 ΔΙΑΒΑΣΕ ΧΡ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΣΧ[ι] <- 0 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 12 ΣΧ[ι] <- ΣΧ[ι] + ΧΡ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΘέσηΑ <- ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, "Α") ΓΡΑΨΕ ΚΩΔ[ΘέσηΑ] θέσηΚ <- ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, "Κ") ΓΡΑΨΕ ΚΩΔ[θέσηΚ] ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, φύλο): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: Φ[150000], φύλο ΑΚΕΡΑΙΕΣ: ι, μαχ_θ ΠΡΑΓΜΑΤΙΚΕΣ: μαχ, ΣΧ[150000] ΑΡΧΗ μαχ <- -1 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΑΝ Φ[ι] = φύλο ΚΑΙ μαχ < ΣΧ[ι] ΤΟΤΕ μαχ <- ΣΧ[ι] μαχ_θ <- ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΘΕΣΗ_ΜΑΧ <- μαχ_θΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΘέμαΔ_επαν_2016ΠΡΟΓΡΑΜΜΑ Θ4 ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: i, j, k, Α[75], max_ποσότητα,θέση_προιόντος_στην_περίοδο, Σ[15] ΧΑΡΑΚΤΗΡΕΣ: Π[75, 12], tmp, max_περίοδος ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕΑΡΧΗ! Δ.1ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 75 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12 ΔΙΑΒΑΣΕ Π[i, j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! Δ.2ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 75 ΓΙΑ j ΑΠΟ 75 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1 ΑΝ Π[j, 11] < Π[j - 1, 11] Η (Π[j, 11] = Π[j - 1, 11] ΚΑΙ Π[j, 1] < Π[j - 1, 1]) ΤΟΤΕ ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 12 tmp <- Π[j - 1, k] Π[j - 1, k] <- Π[j, k] Π[j, k] <- tmp ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Δ.3.βΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15 max_ποσότητα <- Α[i] max_περίοδος <- Π[i, 11] ΓΙΑ j ΑΠΟ i ΜΕΧΡΙ 75 ME_BHMA 15 ΑΝ Α[j] > max_ποσότητα ΤΟΤΕ max_ποσότητα <- Α[j] max_περίοδος <- Π[j, 11] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ Π[i, 1], max_περίοδος ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! Δ.4ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15 Σ[i] <- 0 ΓΙΑ j ΑΠΟ i ΜΕΧΡΙ 75 ME_BHMA 15 Σ[i] <- Σ[i] + Α[j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ Σ[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ θεμαΔ_2017ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, ΑΠ[50, 6], ΑΠΤΡ[50, 2], θ ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50], κλειδίΑΡΧΗ ΚΑΛΕΣΕ ΕΙΣ(ΚΩΔ, ΑΠ) !Γέμισμα πινάκων ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !Δημιουργία πίνακα ΑΠΤΡ ΑΠΤΡ[ι, 1] <- ΣΥΝΑΠ(ι, ΑΠ, 1) ΑΠΤΡ[ι, 2] <- ΣΥΝΑΠ(ι, ΑΠ, 4) ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ κλειδί !Αναζήτηση κωδικού ΟΣΟ κλειδί <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ θ <- ΑΝΑΖ(κλειδί, ΚΩΔ) ΑΝ θ = 0 ΤΟΤΕ ΓΡΑΨΕ 'δεν βρέθηκε' ΑΛΛΙΩΣ ΑΝ ΑΠΤΡ[θ, 1] < 10 ΚΑΙ ΑΠΤΡ[θ, 2] < 10 ΤΟΤΕ ΓΡΑΨΕ 'Επιτρέπεται η συμμετοχή' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Δεν επτρέπεται η συμμετοχή' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΔΙΑΒΑΣΕ κλειδί ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣ(ΚΩΔ, ΑΠ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], ι, ξ ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50] ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 ΔΙΑΒΑΣΕ ΚΩΔ[ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 6 ΔΙΑΒΑΣΕ ΑΠ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣΣΥΝΑΡΤΗΣΗ ΣΥΝΑΠ(ι, ΑΠ, μην): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ΑΠ[50, 6], μην, ξ, ΣΑΡΧΗ Σ <- 0 ΓΙΑ ξ ΑΠΟ μην ΜΕΧΡΙ μην + 2 Σ <- Σ + ΑΠ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΣΥΝΑΠ <- ΣΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(κλειδί, ΚΩΔ): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, θ ΛΟΓΙΚΕΣ: βρέθηκε ΧΑΡΑΚΤΗΡΕΣ: κλειδί, ΚΩΔ[50] ΑΡΧΗ ι <- 1 θ <- 0 βρέθηκε <- ΨΕΥΔΗΣ ΟΣΟ ι <= 50 ΚΑΙ βρέθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ ΚΩΔ[ι] = κλειδί ΤΟΤΕ βρέθηκε <- ΑΛΗΘΗΣ θ <- ι ΑΛΛΙΩΣ ι <- ι + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝΑΖ <- θΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΘΕΜΑΔ_επαν_2019
!Εμφάνιση του προγράμματος των συγκροτημάτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 βρέθηκε <- ΨΕΥΔΗΣ σειρά <- 1 ΟΣΟ σειρά <= 6 ΚΑΙ βρέθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ ΠΡ[σειρά, ημερ] = συγκ ΤΟΤΕ βρέθηκε <- ΑΛΗΘΗΣ ΓΡΑΨΕ ΟΝ[συγκ], ημερ, σειρά ΑΛΛΙΩΣ σειρά <- σειρά + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ!Δημιουργία πίνακα συχνοτήτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΣΥΧΝ[συγκ] <- 0 ΓΙΑ σειρά ΑΠΟ 1 ΜΕΧΡΙ 6 ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 ΑΝ συγκ = ΠΡ[σειρά, ημερ] ΤΟΤΕ ΣΥΧΝ[συγκ] <- ΣΥΧΝ[συγκ] + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑΔ_επαν_2019ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: συγκ, σειρά, ημερ, ΠΡ[6, 5], ΣΥΧΝ[20], μαχ ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[20] ΛΟΓΙΚΕΣ: βρέθηκεΑΡΧΗ!Εισαγωγή ονομάτων συγκροτημάτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΔΙΑΒΑΣΕ ΟΝ[συγκ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ!Εισαγωγή ημερών και σειρά εμφάνισης συγκροτημάτων ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 ΔΙΑΒΑΣΕ ΠΡ[1, ημερ] ΓΙΑ σειρά ΑΠΟ 2 ΜΕΧΡΙ 6 !Έλεγχος εγκυρότητας με κλήση υποπρογράμματος ώστε κάθε συγκότημα να εμφανίζεται μόνο 1 φορά/μέρα ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ ΠΡ[σειρά, ημερ] ΜΕΧΡΙΣ_ΟΤΟΥ ΥΠΑΡΧΕΙ(ΠΡ, ημερ, σειρά) = ΨΕΥΔΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Υπολογισμός των μαχ εμφανίσεων και εμφάνιση των συγκροτημάτων που εμφανίζονται τις περισσότερες φορές μαχ <- ΣΥΧΝ[1] ΓΙΑ συγκ ΑΠΟ 2 ΜΕΧΡΙ 20 ΑΝ μαχ < ΣΥΧΝ[συγκ] ΤΟΤΕ μαχ <- ΣΥΧΝ[συγκ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΑΝ ΣΥΧΝ[συγκ] = μαχ ΤΟΤΕ ΓΡΑΨΕ ΟΝ[συγκ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΣΥΝΑΡΤΗΣΗ ΥΠΑΡΧΕΙ(ΠΡ, ημερ, σειρά): ΛΟΓΙΚΗΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΠΡ[6, 5], ημερ, σειρά, ιΑΡΧΗ ΥΠΑΡΧΕΙ <- ΨΕΥΔΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ σειρά - 1 ΑΝ ΠΡ[σειρά, ημερ] = ΠΡ[ι, ημερ] ΤΟΤΕ ΥΠΑΡΧΕΙ <- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
Don’t forget to publish!
Super!
We love data
ΔΙΑΔΙΚΑΣΙΑ ασκ(πλ, πλα, πλθ, πλ0) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: πλα, πλθ, πλ0, πλ, ι, χ ΑΡΧΗ πλ0 <- 0 πλα <- 0 πλθ <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πλΔΙΑΒΑΣΕ χ ΑΝ χ>0 ΤΟΤΕπλθ <- πλθ+1ΑΛΛΙΩΣ_ΑΝ χ<0 ΤΟΤΕπλα <- πλα+1ΑΛΛΙΩΣπλ0 <- πλ0+1ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ταξινόμηση(Α): ΛΟΓΙΚΗΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Α[100],ι ΛΟΓΙΚΕΣ:είναιΑΡΧΗ είναι <- ΑΛΗΘΗΣ ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100 ΑΝ Α[ι] < Α[ι-1] ΤΟΤΕ είναι <- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ταξινόμηση <- είναιΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ αναζήτηση(α,Χ):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:α, Χ[100], θέση,ιΛΟΓΙΚΕΣ: βρέθηκεΑΡΧΗθέση <- 0ι<-1βρέθηκε <- ΨΕΥΔΗΣΟΣΟ βρέθηκε=ΨΕΥΔΗΣ ΚΑΙ ι <=100 ΕΠΑΝΑΛΑΒΕΑΝ Χ[ι]=α ΤΟΤΕβρέθηκε <- ΑΛΗΘΗΣθέση <- ιΑΛΛΙΩΣι <- ι+1ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣαναζήτηση <- θέσηΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ αναζήτηση(α,Χ):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:Χ[100], α, ι, θέσηΑΡΧΗθέση <- 0ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100ΑΝ Χ[ι]=α ΤΟΤΕθέση <- ιΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣαναζήτηση <- θέσηΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΜΙΚΡΌΤΕΡΑ(Χ, μιν1, μιν2) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ[50], μιν1, μιν2, ιΑΡΧΗ μιν1 <- 10^9 μιν2 <- 10^9 !ΑΝ Χ[1]<Χ[2] ΤΟΤΕ !μιν1 <- Χ[1] !μιν2 <- Χ[2] !ΑΛΛΙΩΣ !μιν1 <- Χ[2] !μιν2 <- Χ[1] !ΤΕΛΟΣ_ΑΝ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 ! ΓΙΑ ι ΑΠΟ 3 ΜΕΧΡΙ 6 ΑΝ μιν1 > Χ[ι] ΤΟΤΕ μιν2 <- μιν1 μιν1 <- Χ[ι] ΑΛΛΙΩΣ_ΑΝ μιν2 > Χ[ι] ΤΟΤΕ μιν2 <- Χ[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ταξινόμηση(χ) ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: χ[100] ΑΚΕΡΑΙΕΣ: ι, ξ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100ΓΙΑ ξ ΑΠΟ 100 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1ΑΝ χ[ξ]<χ[ξ-1] ΤΟΤΕΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ(χ[ξ], χ[ξ-1])ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ(χ,y) ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: χ,y, τεμπ ΑΡΧΗ τεμπ <- χ χ <- y y <- τεμπ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ αριθμός(Χ):ΛΟΓΙΚΗ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:ΧΑΡΧΗΑΝ Χ MOD 2 = 0 ΤΟΤΕαριθμός <- ΑΛΗΘΗΣΑΛΛΙΩΣαριθμός <- ΨΕΥΔΗΣΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ θετικός_αριθμός (α) ΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: αΑΡΧΗΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣΔΙΑΒΑΣΕ αΑΝ α<0 ΤΟΤΕΓΡΑΨΕ 'ΔΩΣΕ ΜΟΝΟ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'ΤΕΛΟΣ_ΑΝΜΕΧΡΙΣ_ΟΤΟΥ α>=0ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Τμηματικός προγραμματισμός-Υποπρογράμματα
eirini silela
Created on February 24, 2026
Start designing with a free template
Discover more than 1500 professional designs like these:
View
Smart Presentation
View
Practical Presentation
View
Essential Presentation
View
Akihabara Presentation
View
Flow Presentation
View
Terrazzo Presentation
View
Dynamic Visual Presentation
Explore all templates
Transcript
wow
ΠΛΗΡΟΦΟΡΙΚΗ
Γ Λυκείου - Κατεύθυνσης
go!
Περιεχόμενα
Κεφάλαιο 10 Υποπρογράμματα
10.1 Τμηματικός προγραμματισμός
10.2 Χαρακτηριστικά των υποπρογραμμάτων
10.3 Πλεονεκτήματα του τμηματικού προγραμματισμού
10.4 Παράμετροι
ΠΑΡΑΔΕΙΓΜΑ
ΔΙΑΔΙΚΑΣΙΑ
όνομα
(λίστα παραμέτρων)
τμήμα δήλωσης
ΑΡΧΗ
εντολές
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ πχΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ, Υ, ΖΑΡΧΗ ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ: Χ: ', Χ, ' Υ: ', Υ ΚΑΛΕΣΕ Άθροισμα(Χ, Υ, Ζ) ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ Χ: ', Χ, ' Υ: ', Υ, ' Ζ: ', ΖΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΔΙΑΔΙΚΑΣΙΑ Άθροισμα(Α, Β, Γ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, ΓΑΡΧΗ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α:', Α, ' Β: ', Β Γ <- Α + Β Α <- Α + 5 Β <- Β + 5 ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α: ', Α, ' Β: ', ΒΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ πχ2ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ, Υ, ΖΑΡΧΗ ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ: Χ: ', Χ, ' Υ: ', Υ ΚΑΛΕΣΕ Άθροισμα(Χ, Υ, Ζ) ΓΡΑΨΕ 'ΠΡΟΓΡΑΜΜΑ Χ: ', Χ, ' Υ: ', Υ, ' Ζ: ', ΖΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΔΙΑΔΙΚΑΣΙΑ Άθροισμα(Α, Β, Γ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, Γ, Χ, Υ, ΖΑΡΧΗ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α:', Α, ' Β: ', Β Γ <- Α + Β Α <- Α + 5 Β <- Β + 5 ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Α: ', Α, ' Β: ', Β ΔΙΑΒΑΣΕ Χ, Υ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Χ: ', Χ, ' Υ: ', Υ Ζ <- Χ + Υ ΓΡΑΨΕ 'ΔΙΑΔΙΚΑΣΙΑ Ζ: ', ΖΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Τμήμα προγράμματος που μπορεί να εκτελεστεί αυτοτελώς!Μάλιστα επαναλαμβάνεται δύο φορές σε διαφορετικά σημεία.
Διαδικασίες και Πίνακες
ΔΙΑΔΙΚΑΣΙΑ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ(Α) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Α[100], ιΑΡΧΗΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100ΔΙΑΒΑΣΕ Α[ι]ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Έστω το παρακάτω πρόγραμμα το οποίο χρησιμοποιεί δύο διαδικασίες για το γέμισμα και την εκτύπωση δύο πινάκων.
ΠΡΟΓΡΑΜΜΑ γέμισμα_εκτύπωση_πίνακα ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ[100]. Υ[100] ΑΡΧΗ ΓΡΑΨΕ 'Γέμισμα 1ου πίνακα' ΚΑΛΕΣΕ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ (Χ) ΓΡΑΨΕ 'Γέμισμα 2ου πίνακα' ΚΑΛΕΣΕ ΓΕΜΙΣΜΑ_ΠΙΝΑΚΑ (Υ) ΓΡΑΨΕ 'Εκτύπωση 1ου πίνακα ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Χ) ΓΡΑΨΕ 'Εκτύπωση 2ου πίνακα' ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Υ) ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Στην λίστα των τυπικών παραμέτρων γράφεται μόνο το όνομα του πίνακα!
Στην λίστα των πραγματικών παραμέτρων της εντολής ΚΑΛΕΣΕ γράφεται μόνο το όνομα του πίνακα χωρίς το μέγεθος του!
ΔΙΑΔΙΚΑΣΙΑ ΕΚΤΥΠΩΣΗ_ΠΙΝΑΚΑ(Α) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α[100], ι ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 ΓΡΑΨΕ Α[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΑΣΚΗΣΗ
Να γράψετε διαδικασία που να επιστρέφει τον μικρότερο αριθμό και την θέση του από έναν πίνακα Χ[100] με ακέραιους αριθμούς.
ΔΙΑΔΙΚΑΣΙΑ Μικρότερο (Χ, μιν, μιν_θέση) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Χ[100], ι, μιν, μιν_θέσηΑΡΧΗμιν <- Χ[1]μιν_θέση <- 1ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100ΑΝ Χ[ι]< μιν ΤΟΤΕμιν <- Χ[ι]μιν_θέση <- ιΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ-ΔΙΑΔΙΚΑΣΙΑΣ
2019
9, 4, 17, 13, 25, 30, 33, 55, 41, 88
2021
ΔΙΑΔΙΚΑΣΙΑ Β1 (ΠΛ, Σ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Χ, ΠΛ, Σ, Ι ΑΡΧΗ ΠΛ <- 0 Σ <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 1000ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣΔΙΑΒΑΣΕ ΧΜΕΧΡΙΣ_ΟΤΟΥ Χ > 0 ΑΝ Χ MOD 3 = 0 ΤΟΤΕΠΛ <- ΠΛ + 1ΤΕΛΟΣ_ΑΝ ΑΝ Χ>=100 ΚΑΙ Χ<=999 ΤΟΤΕΣ <- Σ+ΧΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
2022
τύπος συνάρτησης
ΣΥΝΑΡΤΗΣΗ
όνομα
(λίστα παραμέτρων):
Τμήμα δήλωσης
ΑΡΧΗ
εντολές
όνομα <-- έκφραση
εντολές
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΠΡΟΓΡΑΜΜΑ πράξειςΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Α, Β, Αθ, ΑφΑΡΧΗΔΙΑΒΑΣΕ Α, Β Αθ <- Άθροισμα(Α, Β) !Κλήση συνάρτησης ΓΡΑΨΕ Αθ Αφ <- Αφαίρεση(Β, Α) !Κλήση συνλαρτησης ΓΡΑΨΕ ΑφΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΣΥΝΑΡΤΗΣΗ Άθροισμα(Χ, Υ): ΠΡΑΓΜΑΤΙΚΗΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΥΑΡΧΗΆθροισμα <- Χ + ΥΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣΣΥΝΑΡΤΗΣΗ Αφαίρεση(Χ, Υ): ΠΡΑΓΜΑΤΙΚΗΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΥΑΡΧΗΑφαίρεση <- Χ - ΥΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΠΡΟΓΡΑΜΜΑ ΠΧΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, Β, ΠρΑΡΧΗ ΔΙΑΒΑΣΕ Α, Β Πρ <- Πράξεις(Α, Β) ΓΡΑΨΕ Πρ, Α, Β Α <- Α*Πρ Β <- Β*Πρ ΓΡΑΨΕ Πρ, Α, ΒΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ Πράξεις(Α, Β): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Α, ΒΑΡΧΗ Α <- Α + 2 Β <- Β - Α Πράξεις <- (Α + Β) div 4ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
2018
2025
Μετατροπές
συνάρτηση --> διαδικασία
ΣΥΝΑΡΤΗΣΗ Πράξεις(Α,Β):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: Α,ΒΑΡΧΗΑ <-- Α + 2 Β <-- Β - 3 Πράξεις <-- (Α+Β)DIV2ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ Πράξεις(Α,Β,Γ)
ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:Α, Β, Γ, Α1, Β1ΑΡΧΗΑ1 <- Α Β1 <- Β Α1 <- Α1 + 2 Β1 <- Β1 -3 Γ <- (Α1+Β1) DIV 2ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΒΑΣΕ Χ,Υ Ζ <- Πράξεις(Χ,Υ) ΓΡΑΨΕ Χ,Υ,Ζ
ΔΙΑΒΑΣΕ Χ,Υ ΚΑΛΕΣΕ Πράξεις(Χ,Υ,Ζ) ΓΡΑΨΕ Χ,Υ,Ζ
ΔΙΑΔΙΚΑΣΙΑ Δ_ΠΡΑΞΗ (x,y,z) ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: x,y,x1,y1 ΠΡΑΓΜΑΤΙΚΕΣ: zΑΡΧΗx1 <- x y1 <- yΑΝ (x1>=y1) ΤΟΤΕx1 <- x1 + 3ΑΛΛΙΩΣy1 <- y1 - 4ΤΕΛΟΣ_ΑΝ z <- (x1 + y1) / 2ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΠΡΟΓΡΑΜΜΑ ΚΥΡΙΟ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:α,β ΠΡΑΓΜΑΤΙΚΕΣ: γΑΡΧΗΔΙΑΒΑΣΕ α , β ΚΑΛΕΣΕ Δ_ΠΡΑΞΗ(α,β,γ) ΓΡΑΨΕ γΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
2022
2024
ΣΥΝΑΡΤΗΣΗ F (x):ΠΡΑΓΜΑΤΙΚΗ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:x ΠΡΑΓΜΑΤΙΚΕΣ:y, aΑΡΧΗa <- 10.5 y <- x^2 + 4*a F <-yΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΒΑΣΕ a b <- F(a) ΓΡΑΨΕ a,b
!Δ3 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 10 Σ <- 0 μαχ <- Β[1, ξ] μιν <- Β[1, ξ] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 Σ <- Σ + Β[ι, ξ] ΑΝ μαχ < Β[ι, ξ] ΤΟΤΕ μαχ <- Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΑΝ μιν > Β[ι, ξ] ΤΟΤΕ μιν <- Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΟ[ξ] <- (Σ - μαχ - μιν)/8 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ μαχ2 <- ΜΟ[1] μαχ_Ο <- Ο[1] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 ΑΝ ΜΟ[ι] > μαχ2 ΤΟΤΕ μαχ2 <- ΜΟ[ι] μαχ_Ο <- Ο[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ μαχ_Ο
!Δ4 διαφ <- Α_Τ(ΜΟ[1] - Β[1, 1]) μιν2 <- διαφ μιν_Ο <- Ο[1] ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10 διαφ <- Α_Τ(ΜΟ[ι] - Β[ι, ι]) ΑΝ μιν2 > διαφ ΤΟΤΕ μιν2 <- διαφ μιν_Ο <- Ο[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ μιν_ΟΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ θέμαΔ_επαν_2017ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, Β[10, 10], Σ, μαχ, μιν ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[10], μαχ2, μιν2, διαφ ΧΑΡΑΚΤΗΡΕΣ: Ο[10], μαχ_Ο, μιν_ΟΑΡΧΗ!Δ2 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10 ΔΙΑΒΑΣΕ Ο[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10 ΔΙΑΒΑΣΕ Β[ι, ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 10 ΑΝ ι <> ξ ΤΟΤΕ ΓΡΑΨΕ Ο[ξ] ΔΙΑΒΑΣΕ Β[ι, ξ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΡΟΓΡΑΜΜΑ θέμαΔ_2016ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, ΘέσηΑ, θέσηΚ ΧΑΡΑΚΤΗΡΕΣ: Φ[150000], ΚΩΔ[150000] ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡ[150000, 12], ΣΧ[150000] ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΔΙΑΒΑΣΕ ΚΩΔ[ι], Φ[ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 12 ΔΙΑΒΑΣΕ ΧΡ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΣΧ[ι] <- 0 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 12 ΣΧ[ι] <- ΣΧ[ι] + ΧΡ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΘέσηΑ <- ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, "Α") ΓΡΑΨΕ ΚΩΔ[ΘέσηΑ] θέσηΚ <- ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, "Κ") ΓΡΑΨΕ ΚΩΔ[θέσηΚ] ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΘΕΣΗ_ΜΑΧ(Φ, ΣΧ, φύλο): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: Φ[150000], φύλο ΑΚΕΡΑΙΕΣ: ι, μαχ_θ ΠΡΑΓΜΑΤΙΚΕΣ: μαχ, ΣΧ[150000] ΑΡΧΗ μαχ <- -1 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 150000 ΑΝ Φ[ι] = φύλο ΚΑΙ μαχ < ΣΧ[ι] ΤΟΤΕ μαχ <- ΣΧ[ι] μαχ_θ <- ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΘΕΣΗ_ΜΑΧ <- μαχ_θΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΘέμαΔ_επαν_2016ΠΡΟΓΡΑΜΜΑ Θ4 ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ: i, j, k, Α[75], max_ποσότητα,θέση_προιόντος_στην_περίοδο, Σ[15] ΧΑΡΑΚΤΗΡΕΣ: Π[75, 12], tmp, max_περίοδος ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕΑΡΧΗ! Δ.1ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 75 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12 ΔΙΑΒΑΣΕ Π[i, j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! Δ.2ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 75 ΓΙΑ j ΑΠΟ 75 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1 ΑΝ Π[j, 11] < Π[j - 1, 11] Η (Π[j, 11] = Π[j - 1, 11] ΚΑΙ Π[j, 1] < Π[j - 1, 1]) ΤΟΤΕ ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 12 tmp <- Π[j - 1, k] Π[j - 1, k] <- Π[j, k] Π[j, k] <- tmp ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Δ.3.βΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15 max_ποσότητα <- Α[i] max_περίοδος <- Π[i, 11] ΓΙΑ j ΑΠΟ i ΜΕΧΡΙ 75 ME_BHMA 15 ΑΝ Α[j] > max_ποσότητα ΤΟΤΕ max_ποσότητα <- Α[j] max_περίοδος <- Π[j, 11] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ Π[i, 1], max_περίοδος ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! Δ.4ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15 Σ[i] <- 0 ΓΙΑ j ΑΠΟ i ΜΕΧΡΙ 75 ME_BHMA 15 Σ[i] <- Σ[i] + Α[j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ Σ[i] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ θεμαΔ_2017ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, ΑΠ[50, 6], ΑΠΤΡ[50, 2], θ ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50], κλειδίΑΡΧΗ ΚΑΛΕΣΕ ΕΙΣ(ΚΩΔ, ΑΠ) !Γέμισμα πινάκων ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !Δημιουργία πίνακα ΑΠΤΡ ΑΠΤΡ[ι, 1] <- ΣΥΝΑΠ(ι, ΑΠ, 1) ΑΠΤΡ[ι, 2] <- ΣΥΝΑΠ(ι, ΑΠ, 4) ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ κλειδί !Αναζήτηση κωδικού ΟΣΟ κλειδί <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ θ <- ΑΝΑΖ(κλειδί, ΚΩΔ) ΑΝ θ = 0 ΤΟΤΕ ΓΡΑΨΕ 'δεν βρέθηκε' ΑΛΛΙΩΣ ΑΝ ΑΠΤΡ[θ, 1] < 10 ΚΑΙ ΑΠΤΡ[θ, 2] < 10 ΤΟΤΕ ΓΡΑΨΕ 'Επιτρέπεται η συμμετοχή' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Δεν επτρέπεται η συμμετοχή' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΔΙΑΒΑΣΕ κλειδί ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣ(ΚΩΔ, ΑΠ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], ι, ξ ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50] ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 ΔΙΑΒΑΣΕ ΚΩΔ[ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 6 ΔΙΑΒΑΣΕ ΑΠ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣΣΥΝΑΡΤΗΣΗ ΣΥΝΑΠ(ι, ΑΠ, μην): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ΑΠ[50, 6], μην, ξ, ΣΑΡΧΗ Σ <- 0 ΓΙΑ ξ ΑΠΟ μην ΜΕΧΡΙ μην + 2 Σ <- Σ + ΑΠ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΣΥΝΑΠ <- ΣΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(κλειδί, ΚΩΔ): ΑΚΕΡΑΙΑΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, θ ΛΟΓΙΚΕΣ: βρέθηκε ΧΑΡΑΚΤΗΡΕΣ: κλειδί, ΚΩΔ[50] ΑΡΧΗ ι <- 1 θ <- 0 βρέθηκε <- ΨΕΥΔΗΣ ΟΣΟ ι <= 50 ΚΑΙ βρέθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ ΚΩΔ[ι] = κλειδί ΤΟΤΕ βρέθηκε <- ΑΛΗΘΗΣ θ <- ι ΑΛΛΙΩΣ ι <- ι + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝΑΖ <- θΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΘΕΜΑΔ_επαν_2019
!Εμφάνιση του προγράμματος των συγκροτημάτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 βρέθηκε <- ΨΕΥΔΗΣ σειρά <- 1 ΟΣΟ σειρά <= 6 ΚΑΙ βρέθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ ΑΝ ΠΡ[σειρά, ημερ] = συγκ ΤΟΤΕ βρέθηκε <- ΑΛΗΘΗΣ ΓΡΑΨΕ ΟΝ[συγκ], ημερ, σειρά ΑΛΛΙΩΣ σειρά <- σειρά + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ!Δημιουργία πίνακα συχνοτήτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΣΥΧΝ[συγκ] <- 0 ΓΙΑ σειρά ΑΠΟ 1 ΜΕΧΡΙ 6 ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 ΑΝ συγκ = ΠΡ[σειρά, ημερ] ΤΟΤΕ ΣΥΧΝ[συγκ] <- ΣΥΧΝ[συγκ] + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑΔ_επαν_2019ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: συγκ, σειρά, ημερ, ΠΡ[6, 5], ΣΥΧΝ[20], μαχ ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[20] ΛΟΓΙΚΕΣ: βρέθηκεΑΡΧΗ!Εισαγωγή ονομάτων συγκροτημάτων ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΔΙΑΒΑΣΕ ΟΝ[συγκ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ!Εισαγωγή ημερών και σειρά εμφάνισης συγκροτημάτων ΓΙΑ ημερ ΑΠΟ 1 ΜΕΧΡΙ 5 ΔΙΑΒΑΣΕ ΠΡ[1, ημερ] ΓΙΑ σειρά ΑΠΟ 2 ΜΕΧΡΙ 6 !Έλεγχος εγκυρότητας με κλήση υποπρογράμματος ώστε κάθε συγκότημα να εμφανίζεται μόνο 1 φορά/μέρα ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΔΙΑΒΑΣΕ ΠΡ[σειρά, ημερ] ΜΕΧΡΙΣ_ΟΤΟΥ ΥΠΑΡΧΕΙ(ΠΡ, ημερ, σειρά) = ΨΕΥΔΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Υπολογισμός των μαχ εμφανίσεων και εμφάνιση των συγκροτημάτων που εμφανίζονται τις περισσότερες φορές μαχ <- ΣΥΧΝ[1] ΓΙΑ συγκ ΑΠΟ 2 ΜΕΧΡΙ 20 ΑΝ μαχ < ΣΥΧΝ[συγκ] ΤΟΤΕ μαχ <- ΣΥΧΝ[συγκ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ συγκ ΑΠΟ 1 ΜΕΧΡΙ 20 ΑΝ ΣΥΧΝ[συγκ] = μαχ ΤΟΤΕ ΓΡΑΨΕ ΟΝ[συγκ] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣΣΥΝΑΡΤΗΣΗ ΥΠΑΡΧΕΙ(ΠΡ, ημερ, σειρά): ΛΟΓΙΚΗΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ΠΡ[6, 5], ημερ, σειρά, ιΑΡΧΗ ΥΠΑΡΧΕΙ <- ΨΕΥΔΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ σειρά - 1 ΑΝ ΠΡ[σειρά, ημερ] = ΠΡ[ι, ημερ] ΤΟΤΕ ΥΠΑΡΧΕΙ <- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
Don’t forget to publish!
Super!
We love data
ΔΙΑΔΙΚΑΣΙΑ ασκ(πλ, πλα, πλθ, πλ0) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: πλα, πλθ, πλ0, πλ, ι, χ ΑΡΧΗ πλ0 <- 0 πλα <- 0 πλθ <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πλΔΙΑΒΑΣΕ χ ΑΝ χ>0 ΤΟΤΕπλθ <- πλθ+1ΑΛΛΙΩΣ_ΑΝ χ<0 ΤΟΤΕπλα <- πλα+1ΑΛΛΙΩΣπλ0 <- πλ0+1ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ταξινόμηση(Α): ΛΟΓΙΚΗΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Α[100],ι ΛΟΓΙΚΕΣ:είναιΑΡΧΗ είναι <- ΑΛΗΘΗΣ ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100 ΑΝ Α[ι] < Α[ι-1] ΤΟΤΕ είναι <- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ταξινόμηση <- είναιΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ αναζήτηση(α,Χ):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:α, Χ[100], θέση,ιΛΟΓΙΚΕΣ: βρέθηκεΑΡΧΗθέση <- 0ι<-1βρέθηκε <- ΨΕΥΔΗΣΟΣΟ βρέθηκε=ΨΕΥΔΗΣ ΚΑΙ ι <=100 ΕΠΑΝΑΛΑΒΕΑΝ Χ[ι]=α ΤΟΤΕβρέθηκε <- ΑΛΗΘΗΣθέση <- ιΑΛΛΙΩΣι <- ι+1ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣαναζήτηση <- θέσηΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ αναζήτηση(α,Χ):ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:Χ[100], α, ι, θέσηΑΡΧΗθέση <- 0ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100ΑΝ Χ[ι]=α ΤΟΤΕθέση <- ιΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣαναζήτηση <- θέσηΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΜΙΚΡΌΤΕΡΑ(Χ, μιν1, μιν2) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Χ[50], μιν1, μιν2, ιΑΡΧΗ μιν1 <- 10^9 μιν2 <- 10^9 !ΑΝ Χ[1]<Χ[2] ΤΟΤΕ !μιν1 <- Χ[1] !μιν2 <- Χ[2] !ΑΛΛΙΩΣ !μιν1 <- Χ[2] !μιν2 <- Χ[1] !ΤΕΛΟΣ_ΑΝ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 ! ΓΙΑ ι ΑΠΟ 3 ΜΕΧΡΙ 6 ΑΝ μιν1 > Χ[ι] ΤΟΤΕ μιν2 <- μιν1 μιν1 <- Χ[ι] ΑΛΛΙΩΣ_ΑΝ μιν2 > Χ[ι] ΤΟΤΕ μιν2 <- Χ[ι] ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ταξινόμηση(χ) ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: χ[100] ΑΚΕΡΑΙΕΣ: ι, ξ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100ΓΙΑ ξ ΑΠΟ 100 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1ΑΝ χ[ξ]<χ[ξ-1] ΤΟΤΕΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ(χ[ξ], χ[ξ-1])ΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ(χ,y) ΜΕΤΑΒΛΗΤΕΣ ΧΑΡΑΚΤΗΡΕΣ: χ,y, τεμπ ΑΡΧΗ τεμπ <- χ χ <- y y <- τεμπ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ αριθμός(Χ):ΛΟΓΙΚΗ ΜΕΤΑΒΛΗΤΕΣΑΚΕΡΑΙΕΣ:ΧΑΡΧΗΑΝ Χ MOD 2 = 0 ΤΟΤΕαριθμός <- ΑΛΗΘΗΣΑΛΛΙΩΣαριθμός <- ΨΕΥΔΗΣΤΕΛΟΣ_ΑΝΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ θετικός_αριθμός (α) ΜΕΤΑΒΛΗΤΕΣΠΡΑΓΜΑΤΙΚΕΣ: αΑΡΧΗΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣΔΙΑΒΑΣΕ αΑΝ α<0 ΤΟΤΕΓΡΑΨΕ 'ΔΩΣΕ ΜΟΝΟ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'ΤΕΛΟΣ_ΑΝΜΕΧΡΙΣ_ΟΤΟΥ α>=0ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ