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


ΠΡΟΓΡΑΜΜΑ Θερμοκρασίες
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Θερμοκρασία, Μέση, Σύνολο
  ΑΚΕΡΑΙΕΣ: i
ΑΡΧΗ
  Σύνολο <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
    ΓΡΑΨΕ 'Δώσε τη θερμοκρασία'
    ΔΙΑΒΑΣΕ Θερμοκρασία
    Σύνολο <- Σύνολο + Θερμοκρασία
!β                            
    ΓΡΑΨΕ 'Θερμοκρασία σε F :', Κελσίου_σε_Φαρενάιτ (Θερμοκρασία)
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Μέση <- Σύνολο/30
  ΓΡΑΨΕ 'Μέση Θερμοκρασία:', Μέση
! β
  ΓΡΑΨΕ 'Μέση Θερμοκρασία σε F:', Κελσίου_σε_Φαρενάιτ (Μέση) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

! ************************************************

ΣΥΝΑΡΤΗΣΗ Κελσίου_σε_Φαρενάιτ (Κελσίου): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Κελσίου
ΑΡΧΗ
  Κελσίου_σε_Φαρενάιτ <- 32 + (9*Κελσίου/5) 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ