Μια επιχείρηση έχει 10 πωλητές. Θέλοντας να τους δώσει κίνητρο καθιέρωσε
βραβείο για τον καλύτερο πωλητή κάθε μήνα.
Να κατασκευάσετε πρόγραμμα σε ΓΛΩΣΣΑ, το οποίο:
Δ1. α) Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. (μονάδες 2)
β) Να καταχωρίζει τα ονόματα των πωλητών σε πίνακα ON[10] και τις
μηνιαίες πωλήσεις κάθε πωλητή σε πίνακα ακεραίων Π[10,12] (δεν
απαιτείται έλεγχος εγκυρότητας). (μονάδες 2)
Μονάδες 4
Δ2. Να βρίσκει και να εμφανίζει, για κάθε μήνα, το όνομα του πωλητή που
πήρε το βραβείο (είχε τις μεγαλύτερες πωλήσεις). Να θεωρήσετε ότι για
κάθε μήνα ο βραβευμένος πωλητής είναι μοναδικός.
Μονάδες 5
Δ3. Να υπολογίζει τις συνολικές πωλήσεις της επιχείρησης στο 1ο και στο 2ο
εξάμηνο και να εμφανίζει ανάλογα με την περίπτωση ένα από τα
παρακάτω μηνύματα:
- «Οι πωλήσεις του 1ου εξαμήνου είναι μεγαλύτερες από τις πωλήσεις
του 2ου εξαμήνου». - «Οι πωλήσεις του 2ου εξαμήνου είναι μεγαλύτερες από τις πωλήσεις
του 1ου εξαμήνου». - «Οι πωλήσεις του 1ου και του 2ου εξαμήνου είναι ίσες».
Μονάδες 6
Δ4. Να διαβάζει το όνομα πωλητή και αν υπάρχει στον πίνακα ON[10] να
υπολογίζει και να εμφανίζει τις συνολικές ετήσιες πωλήσεις του. Σε
περίπτωση που δεν υπάρχει να εμφανίζει το μήνυμα «Ανύπαρκτος
πωλητής». Για την αναζήτηση να καλείται το υποπρόγραμμα ΑΝΑΖ που
περιγράφεται στο ερώτημα Δ5.
Μονάδες 4
Δ5. Να κατασκευάσετε το υποπρόγραμμα ΑΝΑΖ, το οποίο θα δέχεται ως
είσοδο τον πίνακα ON[10] και ένα όνομα, θα αναζητά το όνομα στον
πίνακα ON[10] και θα επιστρέφει τη θέση του ή την τιμή 0 στην περίπτωση
που αυτό δεν υπάρχει.
Μονάδες 6
!ΘΕΜΑ Δ 2024
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ2024
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,J,Π[10,12],ΜΑΧ,ΘΕΣΗ_ΜΑΧ,Α_ΕΞ,Β_ΕΞ,ΑΘΡ
ΧΑΡΑΚΤΗΡΕΣ:ΟΝ[10],ΚΕΥ
ΑΡΧΗ
!Δ1Β
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ ΟΝ[Ι]
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ Π[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ2
!ΘΑ ΚΑΝΩ ΜΕΓΙΣΤΟ ΚΑΙ ΘΕΣΗ
ΜΕΓΙΣΤΟΥ ΚΑΤΑ ΣΤΗΛΗ
!ΚΑΙ ΘΑ ΕΜΦΑΝΙΖΩ ΤΟ ΟΝΟΜΑ
ΠΩΛΗΤΗ ΠΟΥ ΒΡΙΣΚΕΤΑΙ ΣΤΗ ΘΕΣΗ ΜΕΓΙΣΤΟΥ
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 12
ΜΑΧ<-Π[1,J]
ΘΕΣΗ_ΜΑΧ<-1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 10
ΑΝ Π[Ι,J]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<-Π[Ι,J]
ΘΕΣΗ_ΜΑΧ<-Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΟΝ[ΘΕΣΗ_ΜΑΧ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ3
!ΔΥΟ ΑΘΡΟΙΣΜΑΤΑ (ΤΟ ΕΝΑ
ΤΟΥ ΜΙΣΟΥ ΠΙΝΑΚΑ ΚΑΙ ΤΟ ΑΛΛΟ ΤΟΥ ΑΛΛΟΥ ΜΙΣΟΥ)
Α_ΕΞ<-0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 6
Α_ΕΞ<-Α_ΕΞ+Π[I,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Β_ΕΞ<-0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ J ΑΠΟ 7 ΜΕΧΡΙ 12
Β_ΕΞ<-Β_ΕΞ+Π[I,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Α_ΕΞ>Β_ΕΞ ΤΟΤΕ
ΓΡΑΨΕ ‘ΟΙ ΠΩΛΗΣΕΙΣ ΤΟΥ 1ου ΕΞΑΜΗΝΟΥ ΕΙΝΑΙ
ΜΕΓΑΛΥΤΕΡΕΣ ΑΠΟ ΤΙΣ ΠΩΛΗΣΕΙΣ ΤΟΥ 2ου ΕΞΑΜΗΝΟΥ’
ΑΛΛΙΩΣ_ΑΝ Α_ΕΞ<Β_ΕΞ ΤΟΤΕ
ΓΡΑΨΕ ‘ΟΙ ΠΩΛΗΣΕΙΣ ΤΟΥ 2ου ΕΞΑΜΗΝΟΥ ΕΙΝΑΙ
ΜΕΓΑΛΥΤΕΡΕΣ ΑΠΟ ΤΙΣ ΠΩΛΗΣΕΙΣ ΤΟΥ 1ου ΕΞΑΜΗΝΟΥ’
ΑΛΛΙΩΣ
ΓΡΑΨΕ ‘ΟΙ ΠΩΛΗΣΕΙΣ ΤΟΥ 1ου ΚΑΙ ΤΟΥ 2ου
ΕΞΑΜΗΝΟΥ ΕΙΝΑΙ ΙΣΕΣ’
ΤΕΛΟΣ_ΑΝ
!Δ4
ΔΙΑΒΑΣΕ ΚΕΥ
Ψ<-ΑΝΑΖ(ΟΝ,ΚΕΥ)
ΑΝ Ψ<>0 ΤΟΤΕ
!ΠΡΕΠΕΙ
ΝΑ ΑΘΡΟΙΣΩ ΤΗ ΓΡΑΜΜΗ ΠΟΥ ΤΟΥ ΑΝΤΙΣΤΟΙΧΕΙ
ΑΘΡ<-0
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΘΡ<-ΑΘΡ+Π[Ψ,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΑΘΡ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ‘ΑΝΥΠΑΡΚΤΟΣ ΠΩΛΗΤΗΣ’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΑΝΑΖ(ΟΝ,ΚΕΥ):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι
ΧΑΡΑΚΤΗΡΕΣ:ΚΕΥ,ΟΝ[10]
ΑΡΧΗ
Ι<-1
ΟΣΟ Ι<=10 ΚΑΙ ΟΝ[Ι]<>ΚΕΥ ΕΠΑΝΑΛΑΒΕ
Ι<-Ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΟΝ[Ι]=ΚΕΥ ΤΟΤΕ
ΑΝΑΖ<-Ι
ΑΛΛΙΩΣ
ΑΝΑΖ<-0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
