! =====================================================================================================
! Να γίνει πρόγραμμα το οποίο να δέχεται τους βαθμούς μιας τάξης 15 μαθητών στο μάθημα της φυσικής
! και στη συνέχεια να εμφανίζει το βαθμό που παρατηρήθηκε τις περισσότερες φορές (επικρατούσα τιμή),
! όπως και πόσες φορές εμφανίστηκε. Θεωρήστε ότι οι βαθμοί είναι ακέραιοι και ανήκουν στο διάστημα 1-20.
! Στο τέλος να παρουσιάζει μονο τους διαφορετικούς βαθμούς που εμφανίστηκαν στην τάξη κατά αύξουσα σειρά.
! =====================================================================================================
ΠΡΟΓΡΑΜΜΑ Επικρατέστερος_Βαθμός
ΣΤΑΘΕΡΕΣ
N=15
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,Β[N],βαθμός,ΣΥΧΝ[20],ΜΑΧ
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το βαθμό του ',i,'ου μαθητή'
ΔΙΑΒΑΣΕ Β[i]
ΜΕΧΡΙΣ_ΟΤΟΥ (Β[i]>=1) ΚΑΙ (Β[i]<=20)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΣΥΧΝ[i] <-- 0 ! χρειαζόμαστε έναν πίνακα 20 θέσεων, όπου πχ στη θέση 7,
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! θα έχει την πληροφορία πόσες φορές εμφανίστηκε ο βαθμός 7
! ******** υπολογισμός συχνότητας εμφάνισης βαθμών *** 1ος τρόπος ***********************
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N ! ο αλγόριθμος αυτός είναι αρκετά αργός
ΓΙΑ βαθμός ΑΠΟ 1 ΜΕΧΡΙ 20 ! αλλά σχετικά εύκολος για να τον υλοποιήσει κάποιος
ΑΝ Β[i]=βαθμός ΤΟΤΕ ! ακόμη και αν δεν τον έχει δει ποτε !
ΣΥΧΝ[βαθμός] <-- ΣΥΧΝ[βαθμός] + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! συνολικά απαιτούνται Ν*20 επαναλήψεις
! ****************************************************************************************
ΓΡΑΨΕ 'Οι βαθμοί που εμφανίστηκαν είναι οι παρακάτω'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
ΓΡΑΨΕ_ Β[i],' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Οι διαφορετικοί βαθμοί που εμφανίστηκαν είναι οι παρακάτω κατά αύξουσα σειρα'
ΜΑΧ <-- ΣΥΧΝ[1]
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ ΣΥΧΝ[i]>ΜΑΧ ΤΟΤΕ
ΜΑΧ <-- ΣΥΧΝ[i]
ΤΕΛΟΣ_ΑΝ
ΑΝ ΣΥΧΝ[i]<>0 ΤΟΤΕ
ΓΡΑΨΕ_ i,' '
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ ΣΥΧΝ[i]=ΜΑΧ ΤΟΤΕ
ΓΡΑΨΕ 'Ο βαθμός που παρατηρήθηκε περισσότερες φορές ήταν ο ',i,' με συχνότητα ', ΜΑΧ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ