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