! ===============================================================================================
! ΕΣΠΕΡΙΝΟ - ΙΟΥΛΙΟΣ 2004 - ΘΕΜΑ 3
! ===============================================================================================
! Μια εταιρεία δημοσκοπήσεων θέτει σε ένα δείγμα 2000 πολιτών ένα ερώτημα. Για την επεξεργασία
! των δεδομένων να αναπτύξετε αλγόριθμο που:
!  1. να διαβάζει το φύλο του πολίτη (Α = Άνδρας, Γ = Γυναίκα) και να ελέγχει την ορθή εισαγωγή
!  2. να διαβάζει την απάντηση στο ερώτημα, η οποία μπορεί να είναι "ΝΑΙ", "ΟΧΙ", "ΔΕΝ ΞΕΡΩ" και
!     να ελέγχει την ορθή εισαγωγή
!  3. να υπολογίζει και να εμφανίζει το πλήθος των ατόμων που απάντησαν "ΝΑΙ"
!  4. στο σύνολο των ατόμων που απάντησαν "ΝΑΙ" να υπολογίζει και να εμφανίζει το ποσοστό των
!     ανδρών και το ποσοστό των γυναικών.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ ΕΣ_2004_07_3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ : i , n , a
  ΠΡΑΓΜΑΤΙΚΕΣ: pa , pg
  ΧΑΡΑΚΤΗΡΕΣ: f[2000] , απάντηση[2000]
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 2000
    ΓΡΑΨΕ 'Δώσε το φύλλο (A για άνδρα ή Γ για γυναίκα) του/της :',i
    ΔΙΑΒΑΣΕ f[i]
    ΟΣΟ f[i] <> 'Α' ΚΑΙ f[i] <> 'Γ' ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'                                                                                                
      ΔΙΑΒΑΣΕ f[i]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Τί απαντάτε στο ερώτημα ; (ΝΑΙ , ΟΧΙ , ΔΕΝ ΞΕΡΩ με κεφαλαία ελληνικά)'
    ΔΙΑΒΑΣΕ απάντηση[i]
    ΟΣΟ απάντηση[i] <> 'NΑI' ΚΑΙ απάντηση[i] <> 'OXI' ΚΑΙ απάντηση[i] <> 'ΔΕΝ ΞΕΡΩ' ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Λάθος. Ξαναδώσε'
      ΔΙΑΒΑΣΕ απάντηση[i]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  n <-- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 2000
    ΑΝ απάντηση[i] = 'NAI' ΤΟΤΕ
      n <-- n + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Στην έρευνα απάντησαν ΝΑΙ', n ,'άτομα.'
  a <-- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 2000
    ΑΝ απάντηση[i] = 'NAI' ΚΑΙ f[i] = 'A' ΤΟΤΕ
      a <-- a + 1
    ΤΕΛΟΣ_ΑΝ
    pa <-- A*100/n
    pg <-- 100 - pa
    ΓΡΑΨΕ pa,'% είναι άνδρες και'
    ΓΡΑΨΕ pg,'% είναι γυναίκες.'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
 

Αλγοριθμος Ασκηση
 για ι απο 1 μέχρι 2000
    αρχή_επανάληψης
      διάβασε χ
    μέχρις_ότου χ=α η χ=γ
    αρχή_επανάληψης
      διάβασε χ1
    μέχρις_ότου χ1='ναι' η χ2='οχι' η χ3='δεν ξερω'
    μ <-- 0
    αν χ1=ναι τότε
      μ <-- μ+1
    τέλος_αν
    γράψε μ
    μ1 <-- 0
    μ2 <-- 0
    αν χ1=ναι και χ=α τότε
      μ1 <-- μ1+1
    αλλιώς
      μ2 <-- μ2+1
    τέλος_αν
    γράψε μ1,μ2
  τελος_επαναληψης
Τελος Ασκηση