! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΛΙΟΣ 2004 - ΘΕΜΑ 4
! ===============================================================================================
! Σε ένα διαγωνισμό συμμετέχουν 5000 διαγωνιζόμενοι και εξετάζονται σε δυο μαθήματα.
! Να γράψετε αλγόριθμο που
! 1. να διαβάζει και να καταχωρίζει σε κατάλληλους πίνακες για κάθε διαγωνιζόμενο τον αριθμό
! μητρώου, το ονοματεπώνυμο και τους βαθμούς που πήρε στα δυο μαθήματα.
! Οι αριθμοί μητρώου θεωρούνται μοναδικοί.
! Η βαθμολογική κλίμακα είναι από 0 έως και 100.
! 2. να εμφανίζει κατάσταση επιτυχόντων με την εξής μορφή :
! Αριθ. Μητρώου :
! Ονοματεπώνυμο :
! Μέσος Όρος :
! Επιτυχών θεωρείται ότι είναι αυτός που έχει μέσο όρο βαθμολογίας μεγαλύτερο ή ίσο του 60.
! 3. να διαβάζει έναν αριθμό μητρώου και
! α. σε περίπτωση που ο αριθμός μητρώου είναι καταχωρισμένος στον πίνακα, να εμφανίζεται
! ο αριθμός μητρώου, το ονοματεπώνυμο, ο μέσος όρος βαθμολογίας και η ένδειξη
! "ΕΠΙΤΥΧΩΝ" ή "ΑΠΟΤΥΧΩΝ", ανάλογα με τον μέσο όρο.
! β. σε περίπτωση που ο αριθμός μητρώου δεν είναι καταχωρισμένος στον πίνακα, να εμφανίζεται
! το μήνυμα "Ο αριθμός μητρώου δεν αντιστοιχεί σε διαγωνιζόμενο".
!
! Σημείωση: Δεν απαιτείται έλεγχος εγκυρότητας καταχώρισης δεδομένων.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΕΣ_2004_07_4
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : i , k , index[500]
ΠΡΑΓΜΑΤΙΚΕΣ: grade[500,2 ], mo
ΧΑΡΑΚΤΗΡΕΣ: name[500]
ΛΟΓΙΚΕΣ: flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
ΓΡΑΨΕ 'Δώσε τον αριθμό μητρώου του' , i , 'ου διαγωνιζομένου.'
ΔΙΑΒΑΣΕ index[i]
ΓΡΑΨΕ 'Δώσε το ονομά του.'
ΔΙΑΒΑΣΕ name[i]
ΓΡΑΨΕ 'Δώσε τους βαθμούς του στα δύο μαθήματα.'
ΔΙΑΒΑΣΕ grade[i,1] , grade[i,2]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Επιτυχόντες'
ΓΡΑΨΕ '======================='
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
mo <-- (grade[i,1] + grade[i,2])/2
ΑΝ mo >= 60 ΤΟΤΕ
ΓΡΑΨΕ 'Αριθ. Μητρώου : ' , index[i]
ΓΡΑΨΕ 'Ονοματεπώνυμο : ' , name[i]
ΓΡΑΨΕ 'Μέσος όρος : ' , mo
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε τον αριθμό μητρώου του διαγωνιζομένου που σε ενδιαφέρει.'
ΔΙΑΒΑΣΕ k
i <-- 1
flag <-- ΨΕΥΔΗΣ
ΟΣΟ flag = ΨΕΥΔΗΣ ΚΑΙ i <= 500 ΕΠΑΝΑΛΑΒΕ
ΑΝ k = index[i] ΤΟΤΕ
flag <-- ΑΛΗΘΗΣ
mo <-- (grade[i,1] + grade[i,2])/2
ΑΝ mo >= 60 ΤΟΤΕ
ΓΡΑΨΕ 'ΕΠΙΤΥΧΩΝ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΑΠΟΤΥΧΩΝ'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
i <-- i + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ flag = ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο αριθμός μητρώου δεν αντιστοιχεί σε διαγωνιζόμενο.'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ