! -----------------------------------------------------------------
! Να δημιουργήσετε ένα πρόγραμμα το οποίο θα ζητάει από το χρήστη να
! εισάγει από το πληκτρολόγιο τη θερμοκρασία σε κάποιο συγκεκριμένη
! κλίμακα και θα την μετατρέπει στις άλλες 2 κλίμακες μέτρησης.
! Για παράδειγμα, ο χρήστης θα μπορούσε να δώσει 34 και C, οπότε
! το πρόγραμμα θα πρέπει να εκτυπώνει στην οθόνη την τιμή των 34οC
! στις άλλες 2 κλίμακες (F και K). Το ίδιο θα πρέπει να συμβαίνει και
! όταν δίνουμε τιμή για κάθε μία από τις άλλες 2 κλίμακες.
! Υπενθυμίζεται ότι, οι μετατροπές στις διάφορες κλίμακες μέτρησης είναι οι ακόλουθες:
! 1. K=C+273.16 και F=(C*9/5)+32
! 2. K=(F+459.67)*5/9 και C=(F-32)*5/9
! 3. C=K-273.16 και F=K*9/5-459.67
! Σχόλια:
! Στην άσκηση θεωρείται υποχρεωτική η χρήση της ¨συνάρτησης¨
! ------------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ Farenheit_Celcius_Kelvin
!Τμήμα δηλώσεων
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: F,C,K,Θ
ΑΚΕΡΑΙΕΣ: choice
ΧΑΡΑΚΤΗΡΕΣ: flag2
! Κυρίως μέρος προγράμματος
ΑΡΧΗ
ΓΡΑΨΕ ' '
ΓΡΑΨΕ ' Ν Ι Κ Ο Σ Γ Ε Ω Ρ Γ Ι Τ Σ Ο Π Ο Υ Λ Ο Σ '
ΓΡΑΨΕ ' 2 0 0 7- 2 0 0 8 '
ΓΡΑΨΕ ' Α΄ Γ Ε Ν. Λ Υ Κ Ε Ι Ο Σ Ι Ν Δ Ο Υ '
ΓΡΑΨΕ ' '
ΓΡΑΨΕ ' '
ΓΡΑΨΕ 'Το πρόγραμμα δέχεται μια θερμοκρασία σε μια κλίμακα μετρησης της'
ΓΡΑΨΕ 'και υπολογίζει τις αλλές δυο θερμοκρασίες στην κλίμακα τους.'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ''
ΓΡΑΨΕ_'Δώσε την θερμοκρασία:'
ΔΙΑΒΑΣΕ θ
ΓΡΑΨΕ'Η θερμοκρασία που έδωσες είναι στην Κλίμακα:'
ΓΡΑΨΕ '1. Celsius (C)'
ΓΡΑΨΕ '2. Farenheit (F)'
ΓΡΑΨΕ '3. Kelvin (K)'
ΓΡΑΨΕ_ 'Γραψε τον αριθμό που βρίσκεται μπροστά από την επιλογή σου:'
! Ελέγχος εγκυρότητας για την επιλογή choice
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ choice
ΑΝ choice>3 Η choice<1 ΤΟΤΕ
ΓΡΑΨΕ 'Λαθος επιλογή! Επέλεξε ανάμεσα σε 1 και 3.'
ΓΡΑΨΕ_ 'Η ΕΠΙΛΟΓΗ ΣΟΥ ΕΙΝΑΙ:'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ choice=2 Η choice=1 Η choice=3
! Μετατροπή των Θερμοκρασίων
ΓΡΑΨΕ'Μετατροπή στις υπολοίπες κλίμακες...'
ΕΠΙΛΕΞΕ choice
ΠΕΡΙΠΤΩΣΗ 1
K <-- Θ+273.16
F <-- (Θ*9/5)+32
ΓΡΑΨΕ Θ,'Βαθμοί Celsius (C)'
ΓΡΑΨΕ F,'Βάθμοί Farenheit (F)'
ΓΡΑΨΕ K,'Βαθμοί Kelvin (K)'
ΠΕΡΙΠΤΩΣΗ 2
K <-- (Θ+459.67)*5/9
C <-- (Θ-32)*5/9
ΓΡΑΨΕ C,'Βαθμοί Celsius (C)'
ΓΡΑΨΕ Θ,'Βάθμοί Farenheit (F)'
ΓΡΑΨΕ K,'Βαθμοί Kelvin (K)'
ΠΕΡΙΠΤΩΣΗ 3
C <-- Θ-273.16
F <-- Θ*9/5-459.67
ΓΡΑΨΕ C,'Βαθμοί Celsius (C)'
ΓΡΑΨΕ F,'Βάθμοί Farenheit (F)'
ΓΡΑΨΕ Θ,'Βαθμοί Kelvin (K)'
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
! Επανεκτέλεση προγράμματος
ΓΡΑΨΕ ''
ΓΡΑΨΕ 'ΘΕΛΕΙΣ ΝΑ ΞΑΝΑΥΠΟΛΟΓΙΣΩ;'
ΓΡΑΨΕ 'ΕΠΕΛΕΞΕ (Α) ΝΑΙ Ή (Β) ΟΧΙ'
ΓΡΑΨΕ 'Παρακαλώ τα γράμματα να είναι ΚΕΦΑΛΑΙΑ!'
ΓΡΑΨΕ_ 'Η ΕΠΙΛΟΓΗ ΣΟΥ ΕΙΝΑΙ:'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ flag2
ΑΝ (flag2<>'Α') Και (flag2<>'Β') και (flag2<>'B') και (flag2<>'A') ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος τιμή πρέπει Α ή Β ή τα γράμματα να είναι ΚΕΦΑΛΑΙΑ (Έλενξε το Caps Lock)!'
ΓΡΑΨΕ_ 'Η ΕΠΙΛΟΓΗ ΣΟΥ ΕΙΝΑΙ:'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ (flag2='Α') Ή (flag2='Β') Ή (flag2='B') Ή (flag2='A')
ΜΕΧΡΙΣ_ΟΤΟΥ (flag2='Β') Ή (flag2='B')
ΑΝ (flag2='B') Ή (flag2='Β') ΤΟΤΕ
ΓΡΑΨΕ''
ΓΡΑΨΕ ' ΤΕΛΟΣ ΠΡΟΓΡΑΜΜΑΤΟΣ '
ΓΡΑΨΕ ' Ελπίζω να Βοήθησα!! '
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ ''
ΓΡΑΨΕ '|','*******************************','|'
ΓΡΑΨΕ '|',' ','|'
ΓΡΑΨΕ '|',' ','|'
ΓΡΑΨΕ '|','-------------------------------','|'
ΓΡΑΨΕ '|',' Made By "ProskoposEthnoy$" ','|'
ΓΡΑΨΕ '|','Email:proskoposethnoys@yahoo.gr','|'
ΓΡΑΨΕ '|','-------------------------------','|'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ