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 ετών : ', πλήθος


ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

 

© 2017 - 2ο Γενικό Λύκειο Γέρακα - Βασίλειος Αναστόπουλος