! =============================================================================================== ! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 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 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ