Τώρα είναι Πέμ 28 Μαρ 2024 10:47 pm

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Δευτ 28 Ιούλ 2008 12:49 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 12 Οκτ 2003 01:52 am
Δημοσιεύσεις: 189
Τοποθεσία: ΝΙΚΑΙΑ - ΠΕΙΡΑΙΑΣ
Syntax: [ Download ] [ Hide ]
! ==================================================================================
! ΕΣΠΕΡΙΝΟ - ΙOYΛIΟΣ 2008 - ΘΕΜΑ 3
! ==================================================================================
! Μία Νομαρχία διοργάνωσε το 2008 σεμινάριο εθελοντικής δασοπυρόσβεσης, το οποίο
! παρακολούθησαν 500 άτομα. Η Πυροσβεστική Υπηρεσία ζήτησε στοιχεία σχετικά με την
! ηλικία, το φύλο και το μορφωτικό επίπεδο εκπαίδευσης κάθε εθελοντή, προκειμένου
! να εξαγάγει στατιστικά στοιχεία.
! Να γραφεί αλγόριθμος, ο οποίος:
!  α. διαβάζει για κάθε άτομο
!     - το ονοματεπώνυμο,
!     - το έτος γέννησης (χωρίς να απαιτείται έλεγχος εγκυρότητας),
!     - το φύλο, με αποδεκτές τιμές το "Α" για τους άνδρες και
!       το "Γ" για τις γυναίκες,
!     - το μορφωτικό επίπεδο εκπαίδευσης, με αποδεκτές τιμές "Π", "Δ" ή "Τ",
!       που αντιστοιχούν σε Πρωτοβάθμια, Δευτεροβάθμια ή Τριτοβάθμια Εκπαίδευση,
!       και τα καταχωρίζει σε κατάλληλους μονοδιάστατους πίνακες.
!  β. υπολογίζει και εμφανίζει το πλήθος των ατόμων με ηλικία μικρότερη των 30 ετών.
!  γ. υπολογίζει και εμφανίζει το ποσοστό των γυναικών με επίπεδο Τριτοβάθμιας
!     Εκπαίδευσης στο σύνολο των εθελοντριών.
!  δ. εμφανίζει τα ονόματα των ατόμων με τη μεγαλύτερη ηλικία.
! ==================================================================================

ΠΡΟΓΡΑΜΜΑ  ESP_2008_07_3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : year[500] , i , n1 , n2 , n3 , min
  ΠΡΑΓΜΑΤΙΚΕΣ : p
  ΧΑΡΑΚΤΗΡΕΣ : name[500] , gender[500] , ed[500]
ΑΡΧΗ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΓΡΑΨΕ 'Δώσε το όνομα του εθελοντή ή της εθελόντριας Νο :' , i
    ΔΙΑΒΑΣΕ name[i]

    ΓΡΑΨΕ 'Δώσε το έτος γέννησης'
    ΔΙΑΒΑΣΕ year[i]

    ΓΡΑΨΕ 'Δώσε το φύλο'
    ΔΙΑΒΑΣΕ gender[i]                                                      
    ΟΣΟ gender[i] <> 'Α' ΚΑΙ gender[i] <> 'Γ' ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
      ΔΙΑΒΑΣΕ gender[i]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'Δώσε το επίπεδο εκπαίδευσης'
    ΔΙΑΒΑΣΕ ed[i]
    ΟΣΟ ed[i] <> 'Π' ΚΑΙ ed[i] <> 'Δ' ΚΑΙ ed[i] <> 'Τ' ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
      ΔΙΑΒΑΣΕ ed[i]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  n1 <-- 0            ! Πλήθος ατόμων με ηλικία < 30
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΑΝ 2008 - year[500] < 30 ΤΟΤΕ
      n1 <-- n1 + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Πλήθος ατόμων με ηλικία μικρότερη των 30 ετών =' , n1

  n2 <-- 0            ! Πλήθος γυναικών
  n3 <-- 0            ! Γυναίκες τριτοβάθμιας εκπαίδευσης
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΑΝ gender[i] = 'Γ' ΤΟΤΕ
      n2 <-- n2 + 1
      ΑΝ ed[i] = 'Τ' ΤΟΤΕ
        n3 <-- n3 + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  p <-- 100*n3/n2
  ΓΡΑΨΕ 'Ποσοστό των γυναικών με επίπεδο Τριτοβάθμιας Εκπαίδευσης στο σύνολο των εθελοντριών =' , p

  min <-- year[1]      ! Τα άτομα με τη μεγαλύτερη ηλικία έχουν το μικρότερο έτος γέννησης.
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 500
    ΑΝ year[i] < min ΤΟΤΕ
      min <-- year[i]
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Τα μεγαλύτερα σε ηλικία άτομα είναι τα εξής:'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 500
    ΑΝ year[i] = min ΤΟΤΕ
      ΓΡΑΨΕ name[i]
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 6 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: