Μάθημα : ΠΛΗΡΟΦΟΡΙΚΗ Γ ΤΑΞΗ 2025-26

4.6  ΑΣΚΗΣΗ 1

ΠΡΟΓΡΑΜΜΑ στατιστικά_ηλικιών
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 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 ετών : ', πλήθος


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

3.

ΠΡΟΓΡΑΜΜΑ αντιστροφή_πίνακα
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.3
!
!  Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο
!  ... διαβάζει 5 αριθμούς και να ...   (???)
!  τους αποθηκεύει σε μονοδιάστατο πίνακα.
!  Στη συνέχεια να κάνει αντιστροφή των στοιχείων του πίνακα:
!  1) Με τη χρήση 2ου πίνακα
!  2) Χωρίς τη χρήση 2ου πίνακα.


ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[Ν], Β[Ν], i, temp

ΑΡΧΗ

! Διάβασμα τιμών
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώστε ', i, 'o αριθμό : '
    ΔΙΑΒΑΣΕ Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


  ΓΡΑΨΕ 'Αντιγραφή σε δεύτερο πίνακα και μεταφορά με αντίστροφη σειρά'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    Β[i] <- Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    Α[i] <- Β[Ν - i + 1] 
    ΓΡΑΨΕ Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Αντιστροφή του πίνακα χωρίς τη χρήση βοηθητικού πίνακα'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν div 2
    temp <- Α[i] 
    Α[i] <- Α[Ν - i + 1] 
    Α[Ν - i + 1] <- temp
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ