! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΜΑΙΟΣ 2008 - ΘΕΜΑ 3
! ===============================================================================================
! Για την ανάδειξη του επταμελούς (7) Διοικητικού Συμβουλίου ενός Πολιτιστικού Συλλόγου υπάρχουν
! 20 υποψήφιοι.
! Να γράψετε αλγόριθμο ο οποίος
! α. διαβάζει τα ονόματα των υποψηφίων και τα αποθηκεύει σε πίνακα.
! β. διαβάζει για κάθε υποψήφιο τον αριθμό των ψήφων που έλαβε και τον αποθηκεύει σε πίνακα.
! γ. εμφανίζει τα ονόματα των εκλεγέντων μελών του Διοικητικού Συμβουλίου κατά φθίνουσα σειρά
! ψήφων (να θεωρηθεί ότι δεν υπάρχουν περιπτώσεις ισοψηφίας).
! δ. διαβάζει το όνομα ενός υποψηφίου και ελέγχει αν ο συγκεκριμένος εκλέγεται ή όχι,
! εμφανίζοντας κατάλληλο μήνυμα.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ESP_2008_05_3b
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : x[20] , i , j , temp1
ΧΑΡΑΚΤΗΡΕΣ : name[20] , temp2 , y
ΛΟΓΙΚΕΣ : flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Δώσε το όνομα του', i , 'ου υποψηφίου.'
ΔΙΑΒΑΣΕ name[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Πόσες ψήφους πήρε ο' , name[i]
ΔΙΑΒΑΣΕ x[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 20 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
ΑΝ x[j-1] < x[j] ΤΟΤΕ
temp1 <-- x[j-1]
x[j-1] <-- x[j]
x[j] <-- temp1
temp2 <-- name[j-1]
name[j-1] <-- name[j]
name[j] <-- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Για το διοικητικό συμβούλιο εκλέγονται κατά σειρά οι εξής'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 7
ΓΡΑΨΕ name[i] , 'με' , x[i] , 'ψήφους.'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Για ποιον υποψήφιο ενδιαφέρεσαι;'
ΔΙΑΒΑΣΕ y
flag <-- ΨΕΥΔΗΣ
i <-- 1
i <-- 1
ΟΣΟ i <= 20 ΚΑΙ flag = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ y = name[i] ΤΟΤΕ
flag <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
i <-- i + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ flag = ΑΛΗΘΗΣ ΤΟΤΕ
ΑΝ i <= 7 ΤΟΤΕ
ΓΡΑΨΕ 'O' , y , 'εκλέγεται στη θέση' , i , 'με' , x[i] , 'ψήφους.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'O' , y , 'δεν εκλέγεται. Πήρε' , x[i] , 'ψήφους και ήρθε.' , i ,'ος'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δέν υπάρχει υποψήφιος με τέτοιο όνομα.'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ