ΘΕΜΑ Δ2017Δύσκολο20 μονάδες

ΘΕΜΑ Δ - Πανελλαδικές 2017

Απουσίες σε εξάμηνο σεμινάριο

Πρόγραμμα δομημένο αποκλειστικά σε υποπρογράμματα: διαδικασία εισόδου, συνάρτηση αναζήτησης και συνάρτηση αθροίσματος τριμήνου.

Ανάπτυξη Εφαρμογών σε Προγραμματιστικό Περιβάλλον · Δευτέρα 12 Ιουνίου 2017

Εκφώνηση

Σε ένα σεμινάριο διάρκειας 6 μηνών τηρούνται απουσίες ανά μήνα για καθέναν από τους 50 επιμορφούμενους. Ο καθένας έχει έναν μοναδικό αλφαριθμητικό κωδικό στον πίνακα ΚΩΔ[50] και οι απουσίες του ανά μήνα αποθηκεύονται στον πίνακα ΑΠ[50,6].

Η γραμματεία τηρεί το σύνολο των απουσιών για τα δύο τρίμηνα του εξαμήνου σε πίνακα ΑΠΤΡ[50,2].

Ερωτήματα

Πάτησε ένα ερώτημα για να φωτιστούν οι γραμμές της λύσης που το απαντούν.

Μεθοδολογία - πού κρίνεται το θέμα

Η διαδικασία ΕΙΣ διαβάζει πρώτα τον κωδικό ΚΩΔ[Ι] και μετά τις απουσίες ΑΠ[Ι, J] για τους 6 μήνες. Μόνο διαδικασία μπορεί να διαβάζει τιμές και να επιστρέφει ολόκληρους πίνακες.
Η συνάρτηση ΑΝΑΖ επιστρέφει 0 αν ΔΕΝ βρει τον κωδικό· η ΟΣΟ σταματά μόλις τον βρει, χωρίς να διατρέξει άσκοπα τον υπόλοιπο πίνακα.
Ο ΑΠΤΡ είναι πίνακας 50×2: η 1η στήλη είναι το πρώτο τρίμηνο (μήνες 1–3) και η 2η το δεύτερο (μήνες 4–6). Η ΣΥΝΑΠ αθροίζει από τον Μήνας μέχρι τον Μήνας + 2.
Προσοχή στο κριτήριο: ο επιμορφούμενος πρέπει να έχει ΚΑΤΩ από 10 απουσίες σε ΚΑΘΕ τρίμηνο - όχι άθροισμα κάτω από 20. Η επαναληπτική ανάγνωση τερματίζεται με «ΤΕΛΟΣ».

Τι εξασκείς

Διαδικασίες και συναρτήσεις
Πίνακες ως παράμετροι
Σειριακή αναζήτηση
Τμηματικός προγραμματισμός

Η λύση σε ΓΛΩΣΣΑ - τρέξε την εδώ

ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ_17
! Δ4
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], ΑΠΤΡ[50, 2], Ι, J, Κ, Μήνας, Γραμ
   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50], Κωδικ
   ΛΟΓΙΚΕΣ: Πληθ10
ΑΡΧΗ
ΚΑΛΕΣΕ ΕΙΣ(ΚΩΔ, ΑΠ)
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
   Μήνας ← 1
   ΑΠΤΡ[Ι, 1] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
   Μήνας ← 4
   ΑΠΤΡ[Ι, 2] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Κωδικ
ΟΣΟ Κωδικ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
   Πληθ10 ← ΑΛΗΘΗΣ
   Γραμ ← ΑΝΑΖ(ΚΩΔ, Κωδικ)
   ΑΝ Γραμ <> 0 ΤΟΤΕ
      ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 2
         ΑΝ ΑΠΤΡ[Γραμ, Κ] >= 10 ΤΟΤΕ
            Πληθ10 ← ΨΕΥΔΗΣ
         ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ Πληθ10 = ΑΛΗΘΗΣ ΤΟΤΕ
         ΓΡΑΨΕ 'ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
      ΑΛΛΙΩΣ
         ΓΡΑΨΕ 'ΔΕΝ ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΔΕ ΒΡΕΘΗΚΕ Ο Κωδικ'
   ΤΕΛΟΣ_ΑΝ
   ΔΙΑΒΑΣΕ Κωδικ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! Δ1
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣ(ΚΩΔ, ΑΠ)
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], Ι, J
   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
   ΔΙΑΒΑΣΕ ΚΩΔ[Ι]
   ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 6
      ΔΙΑΒΑΣΕ ΑΠ[Ι, J]
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
! Δ2
ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(ΚΩΔ, Κωδικ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠΟΤ, Ι
   ΧΑΡΑΚΤΗΡΕΣ: Κωδικ, ΚΩΔ[50]
ΑΡΧΗ
Ι ← 1
ΑΠΟΤ ← 0
ΟΣΟ Ι <= 50 ΚΑΙ ΑΠΟΤ = 0 ΕΠΑΝΑΛΑΒΕ
   ΑΝ Κωδικ = ΚΩΔ[Ι] ΤΟΤΕ
      ΑΠΟΤ ← Ι
   ΑΛΛΙΩΣ
      Ι ← Ι + 1
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝΑΖ ← ΑΠΟΤ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
! Δ3
ΣΥΝΑΡΤΗΣΗ ΣΥΝΑΠ(Γραμ, ΑΠ, Μήνας): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: Γραμ, ΑΠ[50, 6], J, Μήνας, SUM
ΑΡΧΗ
SUM ← 0
ΓΙΑ J ΑΠΟ Μήνας ΜΕΧΡΙ Μήνας + 2
   SUM ← SUM + ΑΠ[Γραμ, J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΥΝΑΠ ← SUM
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ_17
! Δ4
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], ΑΠΤΡ[50, 2], Ι, J, Κ, Μήνας, Γραμ
   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50], Κωδικ
   ΛΟΓΙΚΕΣ: Πληθ10
ΑΡΧΗ
ΚΑΛΕΣΕ ΕΙΣ(ΚΩΔ, ΑΠ)
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
   Μήνας ← 1
   ΑΠΤΡ[Ι, 1] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
   Μήνας ← 4
   ΑΠΤΡ[Ι, 2] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Κωδικ
ΟΣΟ Κωδικ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
   Πληθ10 ← ΑΛΗΘΗΣ
   Γραμ ← ΑΝΑΖ(ΚΩΔ, Κωδικ)
   ΑΝ Γραμ <> 0 ΤΟΤΕ
      ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 2
         ΑΝ ΑΠΤΡ[Γραμ, Κ] >= 10 ΤΟΤΕ
            Πληθ10 ← ΨΕΥΔΗΣ
         ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ Πληθ10 = ΑΛΗΘΗΣ ΤΟΤΕ
         ΓΡΑΨΕ 'ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
      ΑΛΛΙΩΣ
         ΓΡΑΨΕ 'ΔΕΝ ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
      ΤΕΛΟΣ_ΑΝ
   ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΔΕ ΒΡΕΘΗΚΕ Ο Κωδικ'
   ΤΕΛΟΣ_ΑΝ
   ΔΙΑΒΑΣΕ Κωδικ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

! Δ1
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣ(ΚΩΔ, ΑΠ)
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], Ι, J
   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
   ΔΙΑΒΑΣΕ ΚΩΔ[Ι]
   ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 6
      ΔΙΑΒΑΣΕ ΑΠ[Ι, J]
   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

! Δ2
ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(ΚΩΔ, Κωδικ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: ΑΠΟΤ, Ι
   ΧΑΡΑΚΤΗΡΕΣ: Κωδικ, ΚΩΔ[50]
ΑΡΧΗ
Ι ← 1
ΑΠΟΤ ← 0
ΟΣΟ Ι <= 50 ΚΑΙ ΑΠΟΤ = 0 ΕΠΑΝΑΛΑΒΕ
   ΑΝ Κωδικ = ΚΩΔ[Ι] ΤΟΤΕ
      ΑΠΟΤ ← Ι
   ΑΛΛΙΩΣ
      Ι ← Ι + 1
   ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝΑΖ ← ΑΠΟΤ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

! Δ3
ΣΥΝΑΡΤΗΣΗ ΣΥΝΑΠ(Γραμ, ΑΠ, Μήνας): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
   ΑΚΕΡΑΙΕΣ: Γραμ, ΑΠ[50, 6], J, Μήνας, SUM
ΑΡΧΗ
SUM ← 0
ΓΙΑ J ΑΠΟ Μήνας ΜΕΧΡΙ Μήνας + 2
   SUM ← SUM + ΑΠ[Γραμ, J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΥΝΑΠ ← SUM
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

1ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_Δ_17
2! Δ4
3ΜΕΤΑΒΛΗΤΕΣ
4   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], ΑΠΤΡ[50, 2], Ι, J, Κ, Μήνας, Γραμ
5   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50], Κωδικ
6   ΛΟΓΙΚΕΣ: Πληθ10
7ΑΡΧΗ
8ΚΑΛΕΣΕ ΕΙΣ(ΚΩΔ, ΑΠ)
9ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
10   Μήνας ← 1
11   ΑΠΤΡ[Ι, 1] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
12   Μήνας ← 4
13   ΑΠΤΡ[Ι, 2] ← ΣΥΝΑΠ(Ι, ΑΠ, Μήνας)
14ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
15ΔΙΑΒΑΣΕ Κωδικ
16ΟΣΟ Κωδικ <> 'ΤΕΛΟΣ' ΕΠΑΝΑΛΑΒΕ
17   Πληθ10 ← ΑΛΗΘΗΣ
18   Γραμ ← ΑΝΑΖ(ΚΩΔ, Κωδικ)
19   ΑΝ Γραμ <> 0 ΤΟΤΕ
20      ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 2
21         ΑΝ ΑΠΤΡ[Γραμ, Κ] >= 10 ΤΟΤΕ
22            Πληθ10 ← ΨΕΥΔΗΣ
23         ΤΕΛΟΣ_ΑΝ
24      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
25      ΑΝ Πληθ10 = ΑΛΗΘΗΣ ΤΟΤΕ
26         ΓΡΑΨΕ 'ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
27      ΑΛΛΙΩΣ
28         ΓΡΑΨΕ 'ΔΕΝ ΜΠΟΡΕΙ ΝΑ ΣΥΜΜΕΤΕΧΕΙ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ'
29      ΤΕΛΟΣ_ΑΝ
30   ΑΛΛΙΩΣ
31      ΓΡΑΨΕ 'ΔΕ ΒΡΕΘΗΚΕ Ο Κωδικ'
32   ΤΕΛΟΣ_ΑΝ
33   ΔΙΑΒΑΣΕ Κωδικ
34ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
35ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
36
37! Δ1
38ΔΙΑΔΙΚΑΣΙΑ ΕΙΣ(ΚΩΔ, ΑΠ)
39ΜΕΤΑΒΛΗΤΕΣ
40   ΑΚΕΡΑΙΕΣ: ΑΠ[50, 6], Ι, J
41   ΧΑΡΑΚΤΗΡΕΣ: ΚΩΔ[50]
42ΑΡΧΗ
43ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 50
44   ΔΙΑΒΑΣΕ ΚΩΔ[Ι]
45   ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 6
46      ΔΙΑΒΑΣΕ ΑΠ[Ι, J]
47   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
48ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
49ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
50
51! Δ2
52ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(ΚΩΔ, Κωδικ): ΑΚΕΡΑΙΑ
53ΜΕΤΑΒΛΗΤΕΣ
54   ΑΚΕΡΑΙΕΣ: ΑΠΟΤ, Ι
55   ΧΑΡΑΚΤΗΡΕΣ: Κωδικ, ΚΩΔ[50]
56ΑΡΧΗ
57Ι ← 1
58ΑΠΟΤ ← 0
59ΟΣΟ Ι <= 50 ΚΑΙ ΑΠΟΤ = 0 ΕΠΑΝΑΛΑΒΕ
60   ΑΝ Κωδικ = ΚΩΔ[Ι] ΤΟΤΕ
61      ΑΠΟΤ ← Ι
62   ΑΛΛΙΩΣ
63      Ι ← Ι + 1
64   ΤΕΛΟΣ_ΑΝ
65ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
66ΑΝΑΖ ← ΑΠΟΤ
67ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
68
69! Δ3
70ΣΥΝΑΡΤΗΣΗ ΣΥΝΑΠ(Γραμ, ΑΠ, Μήνας): ΑΚΕΡΑΙΑ
71ΜΕΤΑΒΛΗΤΕΣ
72   ΑΚΕΡΑΙΕΣ: Γραμ, ΑΠ[50, 6], J, Μήνας, SUM
73ΑΡΧΗ
74SUM ← 0
75ΓΙΑ J ΑΠΟ Μήνας ΜΕΧΡΙ Μήνας + 2
76   SUM ← SUM + ΑΠ[Γραμ, J]
77ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
78ΣΥΝΑΠ ← SUM
79ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

Ctrl + Enter

Πάτησε «Εκτέλεση» για να τρέξεις τη λύση, ή «Βήμα-βήμα» για να τη δεις εντολή προς εντολή με τις τιμές των μεταβλητών. Τα δεδομένα εισόδου βρίσκονται έτοιμα στην καρτέλα «Είσοδος».

Έτοιμο. Ο κώδικας τρέχει τοπικά στον browser σου - τίποτα δεν στέλνεται σε server.

Ο κώδικας εκτελείται από διερμηνευτή ΓΛΩΣΣΑΣ γραμμένο ειδικά για τη σελίδα και τρέχει αποκλειστικά στον browser σου. Μπορείς να τον αλλάξεις ελεύθερα - οι αλλαγές σου αποθηκεύονται τοπικά σε αυτή τη συσκευή - να τον δεις να εκτελείται βήμα-βήμα με τις τιμές των μεταβλητών, και να τον κατεβάσεις ως αρχείο .glo για τον «Διερμηνευτή της ΓΛΩΣΣΑΣ». Αν κολλήσεις στη σύνταξη, δες την αναφορά της ΓΛΩΣΣΑΣ.

Θέλεις όλη τη μεθοδολογία, όχι μόνο τη λύση;

Το βιβλίο «Πληροφορική Γ΄ Λυκείου» της σειράς δουλεύει τα θέματα των Πανελλαδικών βήμα προς βήμα: τεχνικές, μοτίβα λύσης, συχνά λάθη και κριτήρια αξιολόγησης.

Δες το βιβλίο Όλα τα λυμένα θέματα