Τώρα είναι Παρ 29 Μαρ 2024 01:04 am

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 12 Απρ 2007 03:55 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 12 Οκτ 2003 01:52 am
Δημοσιεύσεις: 189
Τοποθεσία: ΝΙΚΑΙΑ - ΠΕΙΡΑΙΑΣ
Syntax: [ Download ] [ Hide ]
! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 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
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
 


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 3 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: