! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2005 - ΘΕΜΑ 2Β
! ===============================================================================================
! Δίνεται το παρακάτω πρόγραμμα το οποίο διαβάζει τις θερμοκρασίες διαφόρων ημερών του μήνα,
! έστω 30, και υπολογίζει τη μέση θερμοκρασία του μήνα.
!
! ΠΡΟΓΡΑΜΜΑ Θερμοκρασίες
! ΜΕΤΑΒΛΗΤΕΣ
! ΠΡΑΓΜΑΤΙΚΕΣ : Θερμοκρασία[30], Μέση, Σύνολο
! ΑΚΕΡΑΙΕΣ : i
! ΑΡΧΗ
! Σύνολο <-- 0
! ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
! ΓΡΑΨΕ 'Δώσε τη θερμοκρασία'
! ΔΙΑΒΑΣΕ Θερμοκρασία[i]
! Σύνολο <-- Σύνολο + Θερμοκρασία[i]
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Μέση <-- Σύνολο/30
! ΓΡΑΨΕ 'Μέση Θερμοκρασία',Μέση
! ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ
!
! β) Έστω ότι οι τιμές των θερμοκρασιών έχουν δοθεί στην κλίμακα Κελσίου.
! Να τροποποιηθεί το πρόγραμμα που δόθηκε έτσι, ώστε κάνοντας χρήση συνάρτησης
! να μετατρέπονται οι θερμοκρασίες από την κλίμακα Κελσίου σε κλίμακα Φαρενάιτ.
! Ο τύπος μετατροπής από Κελσίου σε Φαρενάιτ είναι :
! Φαρενάιτ = 32 + 5*Κελσίου/9
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ Θερμοκρασίες_Β
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Θερμοκρασία , Μέση, Σύνολο
ΑΚΕΡΑΙΕΣ : i
ΑΡΧΗ
Σύνολο <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΡΑΨΕ 'Δώσε τη θερμοκρασία'
ΔΙΑΒΑΣΕ Θερμοκρασία
Σύνολο <-- Σύνολο + Θερμοκρασία
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Μέση <-- Σύνολο/30
ΜΕΣΗ <-- Far(Μέση)
ΓΡΑΨΕ 'Μέση Θερμοκρασία:', Μέση ,'Βαθμοί Φαρενάιτ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ Far(Cel): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Cel
ΑΡΧΗ
Far <-- 32 + Cel*5/9
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ