O φορέας διαχείρισης μιας περιοχής οικολογικού ενδιαφέροντος , προκειμένου
να εκτιμήσει την ποιότητα των υδάτων των ποταμών της περιοχής ,
πραγματοποιεί μία δειγματοληψία τον μήνα σε κάθε ποταμό στη διάρκεια ενός
έτους. Το δείγμα νερού αναλύεται και ανιχνεύονται οι ρύποι. Η επικινδυνότητα
ενός ρύπου εκφράζεται με έναν ακέραιο αριθμό από το 1 έως και το 10. Στην
κλίμακα αυτή η μεγαλύτερη τιμή αντιστοιχεί σε υψηλότερη επικινδυνότητα. Ένας
δείκτης της επικινδυνότητας των υδάτων είναι η επικινδυνότητα εκείνου του
ρύπου που έχει τη μέγιστη τιμή.
Να αναπτύξετε κύριο πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:
Δ1. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. Μονάδες 2
Δ2. α. Να διαβάζει το πλήθος των ποταμών της περιοχής, ελέγχοντας ότι δεν
δίνεται τιμή μεγαλύτερη του 20. (μονάδα 1)
β. Να διαβάζει τα ονόματα των ποταμών αυτών και να τα καταχωρίζει σε
διαδοχικές θέσεις του πίνακα Π[20]. (μονάδες 2)

Μονάδες 3
Δ3. Για κάθε δειγματοληψία: να εμφανίζει το όνομα καθενός ποταμού της
περιοχής και να υπολογίζει την επικινδυνότητά του καλώντας το
υποπρόγραμμα Υ_Ε (που θα κατασκευάσετε στο ερώτημα Δ5). Την

επικινδυνότητα αυτή να την καταχωρίζει κατάλληλα σε πίνακα ΕΠ[20,
12].

Μονάδες 3
Δ4. Να εμφανίζει αλφαβητικά τα ονόματα των ποταμών στους οποίους ο
μέσος όρος επικινδυνότητας στη διάρκεια του έτους, κυμάνθηκε πάνω
από 7. Αν δεν υπάρχει κανένας ποταμός που να ικανοποιεί το κριτήριο
αυτό, να εμφανίζεται κατάλληλο μήνυμα.

Μονάδες 4

Να αναπτύξετε το υποπρόγραμμα Υ_Ε το οποίο:
Δ5. α) Να διαβάζει διαδοχικά τις τιμές της επικινδυνότητας κάθε ρύπου που
βρέθηκε. Η εισαγωγή να τερματίζεται όταν δοθεί η τιμή 0 (που σημαίνει
ότι δεν υπάρχει άλλος ρύπος).
β) Να επιστρέφει τη μέγιστη τιμή επικινδυνότητας από τις τιμές που
διάβασε.

Μονάδες 8

Σημείωση
α) Δεν απαιτούνται επιπλέον έλεγχοι εγκυρότητας τιμών εκτός από αυτόν που
ζητείται στο ερώτημα Δ2.α.
β) Να θεωρήσετε ότι υπάρχει τουλάχιστον ένας ποταμός.
γ) Να θεωρήσετε ότι σε κάθε δειγματοληψία υπάρχει τουλάχιστον ένας ρύπος.

ΠΡΟΓΡΑΜΜΑ Δ_2018
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Π[20], Κ2
  ΑΚΕΡΑΙΕΣ: ΠΟΤΑΜΙΑ, Ι, J
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΠ[20, 12], ΜΑΧ, ΑΘΡΟΙΣΜΑ, ΜΟ[20], Κ1, ΠΛΗΘΟΣ
ΑΡΧΗ
                                                                            !Δ2Α
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ ΠΟΤΑΜΙΑ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΠΟΤΑΜΙΑ <= 20
                                                                            !Δ2Β
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΟΤΑΜΙΑ
    ΔΙΑΒΑΣΕ Π[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                                                                             !Δ3
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΟΤΑΜΙΑ
    ΓΡΑΨΕ Π[Ι] 
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 12
      ΚΑΛΕΣΕ Υ_Ε(ΜΑΧ) 
      ΕΠ[Ι, J] <- ΜΑΧ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                                                                             !Δ4
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΟΤΑΜΙΑ
    ΑΘΡΟΙΣΜΑ <- 0
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 12
      ΑΘΡΟΙΣΜΑ <- ΑΘΡΟΙΣΜΑ + ΕΠ[Ι, J] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΟ[Ι] <- ΑΘΡΟΙΣΜΑ/12
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  !ΑΛΦΑΒΗΤΙΚΗ ΤΑΞΙΝΟΜΗΣΗ
  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ ΠΟΤΑΜΙΑ
    ΓΙΑ J ΑΠΟ ΠΟΤΑΜΙΑ ΜΕΧΡΙ Ι ΜΕ_ΒΗΜΑ 1
      ΑΝ Π[J  1] > Π[J] ΤΟΤΕ
        Κ1 <- ΜΟ[J  1] 
        ΜΟ[J  1] <- ΜΟ[J] 
        ΜΟ[J] <- Κ1
        Κ2 <- Π[J  1] 
        Π[J  1] <- Π[J] 
        Π[J] <- Κ2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΠΛΗΘΟΣ <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΟΤΑΜΙΑ
    ΑΝ ΜΟ[Ι] > 7 ΤΟΤΕ
      ΓΡΑΨΕ Π[Ι] 
      ΠΛΗΘΟΣ <- ΠΛΗΘΟΣ + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΠΛΗΘΟΣ = 0 ΤΟΤΕ
    ΓΡΑΨΕ ‘ΚΑΝΕΝΑΣ ΠΟΤΑΜΟΣ’
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Υ_Ε(ΜΑΧ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΑΧ, ΕΠΙΚ
ΑΡΧΗ
  ΜΑΧ <- 1
  ΔΙΑΒΑΣΕ ΕΠΙΚ
  ΟΣΟ ΕΠΙΚ <> 0 ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΕΠΙΚ > ΜΑΧ ΤΟΤΕ
      ΜΑΧ <- ΕΠΙΚ
    ΤΕΛΟΣ_ΑΝ
    ΔΙΑΒΑΣΕ ΕΠΙΚ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

You cannot copy content of this page

Ασκήσεις ΑΕΠΠ με Λύσεις – Θέματα Γ & Δ για Πανελλήνιες | infoclass.gr