ΠΡΟΓΡΑΜΜΑ ΘΕΡΜΟΚΡΑΣΙΕΣ
ΣΤΑΘΕΡΕΣ
Ν = 50
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι, ΜΕΤΡΗΤΗΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΘΕΡΜ, ΜΕΓΘ, ΑΘΡΟΙΣΜΑ, ΜΟ, ΠΟΣ
ΧΑΡΑΚΤΗΡΕΣ: ΠΟΛ, ΜΕΓΠ
ΑΡΧΗ
ΜΕΤΡΗΤΗΣ <-- 0
ΜΕΓΘ <-- -50
ΑΘΡΟΙΣΜΑ <-- 0
ΜΕΓΠ <-- ' '
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΤΟ ΟΝΟΜΑ ΤΗΣ ΠΟΛΗΣ:'
ΔΙΑΒΑΣΕ ΠΟΛ
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΤΗΝ ΘΕΡΜΟΚΡΑΣΙΑ ΤΗΣ ΠΟΛΗΣ:'
ΔΙΑΒΑΣΕ ΘΕΡΜ
ΑΝ ΘΕΡΜ< -40 Ή ΘΕΡΜ > 45 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Η ΘΕΡΜΟΚΡΑΣΙΑ ΠΡΕΠΕΙ ΝΑ ΕΙΝΑΙ ΜΕΤΑΞΥ -40 ΚΑΙ 45'
ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΞΑΝΑ ΔΩΣΤΕ ΤΗΝ ΘΕΡΜΟΚΡΑΣΙΑ:'
ΔΙΑΒΑΣΕ ΘΕΡΜ
ΜΕΧΡΙΣ_ΟΤΟΥ ΘΕΡΜ >=-40 ΚΑΙ ΘΕΡΜ <=45
ΤΕΛΟΣ_ΑΝ
ΑΝ ΘΕΡΜ > ΜΕΓΘ ΤΟΤΕ
ΜΕΓΘ <-- ΘΕΡΜ
ΜΕΓΠ <-- ΠΟΛ
ΑΛΛΙΩΣ_ΑΝ ΘΕΡΜ=ΜΕΓΘ ΤΟΤΕ
ΜΕΓΘ <-- ΘΕΡΜ
ΜΕΓΠ <-- ΜΕΓΠ + ' & ' + ΠΟΛ
ΤΕΛΟΣ_ΑΝ
ΑΘΡΟΙΣΜΑ <-- ΑΘΡΟΙΣΜΑ+ΘΕΡΜ
ΑΝ ΘΕΡΜ > 20 ΤΟΤΕ
ΜΕΤΡΗΤΗΣ <-- ΜΕΤΡΗΤΗΣ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <-- ΑΘΡΟΙΣΜΑ / Ν
ΠΟΣ <-- (ΜΕΤΡΗΤΗΣ*100)/Ν
ΓΡΑΨΕ 'ΜΕΓΑΛΗΤΕΡΗ ΗΤΑΝ Η ΘΕΡΜΟΚΡΑΣΙΑ ΣΕ :', ΜΕΓΠ
ΓΡΑΨΕ 'Ο ΜΕΣΟΣ ΟΡΟΣ ΤΩΝ ΘΕΡΜΟΚΡΑΣΙΩΝ ΕΙΝΑΙ:', ΜΟ
ΓΡΑΨΕ 'ΤΟ ΠΟΣΟΣΤΟ ΤΩΝ ΠΟΛΕΩΝ ΠΟΥ ΕΙΧΑΝ ΘΕΡΜΟΚΡΑΣΙΑ ΠΑΝΩ ΑΠΟ 20 ΒΑΘΜΟΥΣ ΗΤΑΝ', ΠΟΣ, '%'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ