ΠΡΟΓΡΑΜΜΑ Κοινόχρηστα_Πετρελαίου
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ωρες1,Ωρες2,Ωρες3,Ωρες4
ΠΡΑΓΜΑΤΙΚΕΣ: τιμή_πετρελαίου,αρχικό_πετρέλαιο,τελικό_πετρέλαιο,κατανάλωση,συνολικές_ώρες,euro1,euro2,euro3,euro4
ΑΡΧΗ
ΓΡΑΨΕ 'δώσε ώρες του 1ου'
ΔΙΑΒΑΣΕ Ωρες1
ΓΡΑΨΕ 'δώσε ώρες του 2ου'
ΔΙΑΒΑΣΕ Ωρες2
ΓΡΑΨΕ 'δώσε ώρες του 3ου'
ΔΙΑΒΑΣΕ Ωρες3
ΓΡΑΨΕ 'δώσε ώρες του 4ου'
ΔΙΑΒΑΣΕ Ωρες4
ΓΡΑΨΕ 'δώσε το τελικό πετρέλαιο' !αυτο που μπηκε συν αυτο που ειχε μεινει
ΔΙΑΒΑΣΕ τελικό_πετρέλαιο
ΓΡΑΨΕ 'δώσε το αρχικό πετρέλαιο' !αυτο που ειχε μεινει
ΔΙΑΒΑΣΕ αρχικό_πετρέλαιο
ΓΡΑΨΕ 'Η τιμή του πετρελαίου ειναι'
ΔΙΑΒΑΣΕ τιμή_πετρελαίου
κατανάλωση <-- ((τελικό_πετρέλαιο-αρχικό_πετρέλαιο)/τελικό_πετρέλαιο)*τιμή_πετρελαίου
συνολικές_ώρες <-- Ωρες1+Ωρες2+Ωρες3+Ωρες4
euro1 <-- (Ωρες1/συνολικές_ώρες)*κατανάλωση
euro2 <-- (Ωρες2/συνολικές_ώρες)*κατανάλωση
euro3 <-- (Ωρες3/συνολικές_ώρες)*κατανάλωση
euro4 <-- (Ωρες4/συνολικές_ώρες)*κατανάλωση
ΓΡΑΨΕ 'ο πρώτος όροφος θα πληρώσει:', euro1
ΓΡΑΨΕ 'ο δεύτερος όροφος θα πληρώσει:', euro2
ΓΡΑΨΕ 'ο τρίτος όροφος θα πληρώσει:', euro3
ΓΡΑΨΕ 'ο τέταρτος όροφος θα πληρώσει:', euro4
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Κοινόχρηστα_Πετρελαίου