! =============================================================================================== ! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 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 ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ