! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2005 - ΘΕΜΑ 3
! ===============================================================================================
! Εκατό (100) υποψήφιοι του ΑΣΕΠ διαγωνίζονται σε τρία μαθήματα για την κάλυψη θέσεων στο Δημόσιο.
! Να γραφεί κύριο πρόγραμμα σε ΓΛΩΣΣΑ που να κάνει τα παρακάτω :
! α) Διαβάζει τα ονόματα των 100 υποψηφίων του ΑΣΕΠ και τη βαθμολογία καθενός υποψηφίου σε τρία
! διαφορετικά μαθήματα. (Θεωρήστε ότι η βαθμολογία κάθε μαθήματος είναι από 1 έως 20).
! β) Βρίσκει και τυπώνει τον ελάχιστο και το μέγιστο βαθμό καθενός υποψηφίου στα τρία μαθήματα
! που εξετάστηκε.
! γ) Να γραφεί υποπρόγραμμα, το οποίο να καλείται από το κύριο πρόγραμμα, για τον υπολογισμό και
! την εκτύπωση του μέσου όρου κάθε υποψηφίου στα τρία μαθήματα που διαγωνίστηκε.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2005_07_3
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : i , j
ΠΡΑΓΜΑΤΙΚΕΣ : b[100,3] , mo , max , min
ΧΑΡΑΚΤΗΡΕΣ : name[100]
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ 'Δώσε το όνομα του υποψηφίου Νο :', i
ΔΙΑΒΑΣΕ name[i]
ΓΡΑΨΕ 'Δώσε τους βαθμούς του στα τρία μαθήματα που εξετάστηκε.'
ΔΙΑΒΑΣΕ b[i,1] , b[i,2] , b[i,3]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
max <-- 0
min <-- 21
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΑΝ b[i,j] > max ΤΟΤΕ
max <-- b[i,j]
ΤΕΛΟΣ_ΑΝ
ΑΝ b[i,j] < min ΤΟΤΕ
min <-- b[i,j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '==========================='
ΓΡΑΨΕ name[i]
ΓΡΑΨΕ '==========================='
ΓΡΑΨΕ 'Μικρότερος βαθμός =', min
ΓΡΑΨΕ 'Μεγαλύτερος βαθμός =', max
ΓΡΑΨΕ '==========================='
ΓΡΑΨΕ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ DIAD(name , b)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! ===== ΔΙΑΔΙΚΑΣΙΑ =============
ΔΙΑΔΙΚΑΣΙΑ DIAD(table1 , table2)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : x, i
ΠΡΑΓΜΑΤΙΚΕΣ : table2[100,3] , s , mo
ΧΑΡΑΚΤΗΡΕΣ : table1[100]
ΑΡΧΗ
ΓΙΑ x ΑΠΟ 1 ΜΕΧΡΙ 100
mo <-- (table2[x,1] + table2[x,1] + table2[x,1])/3
ΓΡΑΨΕ table1[i] , 'Mέσος όρος βαθμολογίας =', mo
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ