! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΜΑΙΟΣ 2006 - ΘΕΜΑ 4
! ===============================================================================================
! Για την παρακολούθηση των θερμοκρασιών της επικράτειας κατά το μήνα Μάιο καταγράφεται κάθε μέρα
! η θερμοκρασία στις 12:00 το μεσημέρι για 20 πόλεις.
! Να σχεδιάσετε αλγόριθμο που:
! α. θα διαβάζει τα ονόματα των 20 πόλεων και τις αντίστοιχες θερμοκρασίες για κάθε μία από τις
! ημέρες του μήνα και θα καταχωρεί τα στοιχεία σε πίνακες.
! β. θα διαβάζει το όνομα μίας πόλης και θα εμφανίζει τη μέγιστη θερμοκρασία της στη διάρκεια του
! μήνα. Αν δεν υπάρχει η πόλη στον πίνακα, θα εμφανίζει κατάλληλα διαμορφωμένο μήνυμα.
! γ. θα εμφανίζει το πλήθος των ημερών που η μέση θερμοκρασία των 20 πόλεων ξεπέρασε τους 20 C,
! αλλά όχι τους 30 C.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2005_05_4
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : temp[20,31] , s , mo , max
ΑΚΕΡΑΙΕΣ : i , j , Ν
ΧΑΡΑΚΤΗΡΕΣ : name[20] , ονομα
ΛΟΓΙΚΕΣ : flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Δώσε το όνομα της πόλης',i
ΔΙΑΒΑΣΕ name[i]
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 31
ΓΡΑΨΕ 'Δώσε τη θερμοκρασία για την ',j,'του μηνός.'
ΔΙΑΒΑΣΕ temp[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το όνομα της πόλης που σε ενδιαφέρει.'
ΔΙΑΒΑΣΕ ονομα
i <-- 1
flag <-- ΨΕΥΔΗΣ
ΟΣΟ flag = ΨΕΥΔΗΣ ΚΑΙ i <= 20 ΕΠΑΝΑΛΑΒΕ
ΑΝ ονομα = name[i] ΤΟΤΕ
flag <-- ΑΛΗΘΗΣ
max <-- temp[i,1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 31
ΑΝ temp[i,j] > max ΤΟΤΕ
max <-- temp[i,j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μέγιστη θερμοκρασία =',max
ΑΛΛΙΩΣ
i <-- i + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ flag = ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Δεν υπάρχει πόλη με τέτοιο όνομα'
ΤΕΛΟΣ_ΑΝ
Ν <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 31
s <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
s <-- s + temp[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
mo <-- s / 20
ΑΝ mo > 20 ΚΑΙ mo <= 30 ΤΟΤΕ
Ν <-- Ν + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Κατά τη διάρκεια του μήνα είχαμε',Ν,'μέρες με θερμοκρασία πάνω από 20 και μέχρι 30.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ