31343
|
e-ΜΑΘΗΜΑΤΑ |
|
Λύσεις ασκήσεων Τράπεζας Θεμάτων |
31343
ΠΡΟΓΡΑΜΜΑ Ρυποι_ΤΘ_31343
!ΘΕΜΑ 4
!Σύμφωνα με την κείμενη νομοθεσία η μέγιστη επιτρεπόμενη τιμή της περιεκτικότητας
!κατ' όγκο των καυσαερίων σε οξείδια του αζώτου μετρούμενη σε ppm είναι 150.
!Σε περίπτωση που ο ρύπος ξεπεράσει τα 150 ppm πρέπει να ληφθούν άμεσα μέτρα.
!Τα Υπουργείο Περιβάλλοντος έχει εγκαταστήσει 120 σταθμούς μέτρησης του ρύπου
!σε διάφορα σημεία της χώρας.
!Να αναπτύξετε πρόγραμμα στην γλώσσα προγραμματισμού ΓΛΩΣΣΑ το οποίο
!4.1. Να διαβάζει την αριθμητική τιμή του ρύπου για κάθε σταθμό μέτρησης.
!Η αριθμητική τιμή αυτή να είναι θετικός αριθμός. Στην περίπτωση εισαγωγής
!αρνητικής τιμής ή μηδέν για την τιμή του ρύπου, το πρόγραμμα πρέπει να ζητάει
!νέα τιμή μέχρι να δοθεί έγκυρη.
!Μονάδες 7
!4.2. Να υπολογίζει και να εμφανίζει το πλήθος των σταθμών με ένδειξη
!μεγαλύτερη από 150.
!Μονάδες 8
!4.3. Να υπολογίζει και να εμφανίζει τη μέση τιμή του ρύπου στους 120 σταθμούς,
!καθώς και πόσοι σταθμοί είχαν τιμή ρύπου μεγαλύτερη της μέσης τιμής.
!Μονάδες 10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, πλήθοςΥψηλοί, πλήθοςΠάνωΑπόΜέση
ΠΡΑΓΜΑΤΙΚΕΣ: Ρύπος[120], άθροισμα, μέση
ΑΡΧΗ
! 4.1 Εισαγωγή τιμών με έλεγχο
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 120
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε τιμή ρύπου ', i, ' σταθμού ( > 0): '
ΔΙΑΒΑΣΕ Ρύπος[i]
ΜΕΧΡΙΣ_ΟΤΟΥ Ρύπος[i] > 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.2 Πλήθος με τιμή > 150
πλήθοςΥψηλοί <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 120
ΑΝ Ρύπος[i] > 150 ΤΟΤΕ
πλήθοςΥψηλοί <- πλήθοςΥψηλοί + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Σταθμοί με ένδειξη > 150: ', πλήθοςΥψηλοί
! 4.3 Μέση τιμή και πόσοι πάνω από αυτή
άθροισμα <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 120
άθροισμα <- άθροισμα + Ρύπος[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
μέση <- άθροισμα/ 120
πλήθοςΠάνωΑπόΜέση <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 120
ΑΝ Ρύπος[i] > μέση ΤΟΤΕ
πλήθοςΠάνωΑπόΜέση <- πλήθοςΠάνωΑπόΜέση + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μέση τιμή ρύπου: ', μέση
ΓΡΑΨΕ 'Σταθμοί με τιμή πάνω από τη μέση: ', πλήθοςΠάνωΑπόΜέση
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
