|
e-ΜΑΘΗΜΑΤΑ |
|
Λύσεις ασκήσεων από τον Οδηγό Μελέτης Μαθητών |
ΠΡΟΓΡΑΜΜΑ στατιστικά_ηλικιών
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.1
!
! Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο να διαβάζει τις ηλικίες
! και τα ονόματα 100 ανθρώπων.
! Τα δεδομένα να καταχωρούνται σε πίνακες, κάνοντας έλεγχο εγκυρότητας
! για την ηλικία που πρέπει να είναι θετικός αριθμός.
! Κατόπιν να υπολογίζει και να εμφανίζει:
! 1) Το μέσο όρο των ηλικιών.
! 2) Τη μέγιστη ηλικία καθώς πόσοι και ποιοι την έχουν.
! 3) Το πλήθος και τα ονόματα των ανθρώπων που είναι άνω των 50 ετών.
ΣΤΑΘΕΡΕΣ
Ν = 100
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ηλικία[Ν], i, max, πλήθος
ΧΑΡΑΚΤΗΡΕΣ: όνομα[Ν]
ΑΡΧΗ
! Διάβασμα τιμών
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώστε ', i, 'o όνομα :'
ΔΙΑΒΑΣΕ όνομα[i]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώστε ηλικία : '
ΔΙΑΒΑΣΕ ηλικία[i]
ΑΝ ηλικία[i] <= 0 ΤΟΤΕ
ΓΡΑΨΕ 'Μη αποδεκτή τιμή'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ηλικία[i] > 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! εύρεση μέγιστης ηλικίας
max <- ηλικία[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] > max ΤΟΤΕ
max <- ηλικία[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μέγιστη ηλικία: ', max
ΓΡΑΨΕ 'Τη μέγιστη ηλικία έχουν:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] = max ΤΟΤΕ
ΓΡΑΨΕ όνομα[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
πλήθος <- 0
ΓΡΑΨΕ 'Τα ονόματα των ανθρώπων που είναι άνω των 50 ετών:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] > 50 ΤΟΤΕ
ΓΡΑΨΕ όνομα[i]
πλήθος <- πλήθος + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος άνω των 50 ετών : ', πλήθος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
|
|
|
|
