!==============================================================================================
! Ένας εργαζόμενος προσλαμβάνεται σε μια εταιρία με αρχικό μισθό { Α_Μισθός }
! Κάθε χρόνο θα παίρνει μηνιαία αύξηση { Μ_Αύξηση } (σε Ευρώ).
! Από τα χρήματα που συγκεντρώνει το χρόνο αποταμιεύει ένα ποσοστό% { Π_Αποταμίευσης }
! με σκοπό κάποια στιγμή να αγοράσει ένα διαμέρισμα που κοστίζει { Κ_Διαμερίσματος }
! και στο οποίο θέλει να βάλει επίπλωση αξίας { Κ_Επίπλωσης }
! Κάθε χρόνο η τιμή του σπιτιού αυξάνεται κατά χ1% και της επίπλωσης κατά χ2%
!----------------------------------------------------------------------------------------------
! Να γραφεί πρόγραμμα που θα διεκπεραιώνει τις εξής διεργασίες:
! Α] Θα υπολογίζει πόσα χρόνια θα περάσουν μέχρι ο εργαζόμενος να αποκτήσει το δικό του σπίτι,
! και να τερματίζει τη διαδικασία, αν υπολογίζει ότι ο εργαζόμενος αδυνατεί να το αγοράσει.
! Β] Θα εξετάζει αν υπάρχει περίσσευμα χρημάτων για να μπορέσει ο εργαζόμενος να αγοράσει
! την επίπλωση που επιθυμεί
! ΣΗΜΕΙΩΣΗ: Να ελέγχεται μήπως ο εργάζομενος αδυνατεί να αγοράσει το σπίτι
!===============================================================================================
ΠΡΟΓΡΑΜΜΑ Αγορά_Σπιτιού
ΣΤΑΘΕΡΕΣ
Χρόνια_Εργασίας =3
! Έστω ότι θα δουλέψει 40 χρόνια
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Α_Μισθός, Μ_Αύξηση, Π_Αποταμίευσης, Κ_Διαμερίσματος, Κ_Επίπλωσης, χ1, χ2
ΠΡΑΓΜΑΤΙΚΕΣ: SUM_Μισθών, SUM_Διαμερίσματος, Μισθός, Περίσσευμα, Αποταμίευση, SUM_Επίπλωσης
ΑΚΕΡΑΙΕΣ: i, Χρόνια, ν
ΧΑΡΑΚΤΗΡΕΣ: ΣΤΟΠ
ΑΡΧΗ
! -<ΕΙΣΑΓΩΓΗ ΔΕΔΟΜΕΝΩΝ ΑΡΧΗ>---------------------------------------------------------------------
ΓΡΑΨΕ 'Αρχικός Μισθός Εργαζόμενου:'
ΔΙΑΒΑΣΕ Α_Μισθός
i <-- 0
ΟΣΟ (Α_Μισθός<=0) ΚΑΙ (i<=3) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Ο μισθός δεν μπορεί να είναι αρνητικός ή μηδενικός αριθμός'
ΓΡΑΨΕ 'Μισθός Εργαζόμενου:'
ΔΙΑΒΑΣΕ Α_Μισθός
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μηνιαία Αύξηση Μισθού:'
ΔΙΑΒΑΣΕ Μ_Αύξηση
i <-- 0
ΟΣΟ (Μ_Αύξηση<0) ΚΑΙ (i<=3) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'H μηνιαία αύξηση δεν μπορεί να είναι αρνητικός αριθμός'
ΓΡΑΨΕ 'Μηνιαία Αύξηση Μισθού:'
ΔΙΑΒΑΣΕ Μ_Αύξηση
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ποσοστό Αποταμίευσης:'
ΔΙΑΒΑΣΕ Π_Αποταμίευσης
i <-- 0
ΟΣΟ (Π_Αποταμίευσης<0) Η (Π_Αποταμίευσης>100) ΚΑΙ (i<=3) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Το Ποσοστό Αποταμίευσης κυμαίνεται μεταξύ 0 και 100'
ΓΡΑΨΕ 'Ποσοστό Αποταμίευσης:'
ΔΙΑΒΑΣΕ Π_Αποταμίευσης
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Π_Αποταμίευσης <-- Π_Αποταμίευσης/100
ΓΡΑΨΕ 'Κόστος Διαμερίσματος:'
ΔΙΑΒΑΣΕ Κ_Διαμερίσματος
i <-- 0
ΟΣΟ (Κ_Διαμερίσματος<0) ΚΑΙ (i<=3) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Το κόστος Διαμερίσματος δεν μπορεί να είναι αρνητικός αριθμός'
ΓΡΑΨΕ 'Κόστος Διαμερίσματος:'
ΔΙΑΒΑΣΕ Κ_Διαμερίσματος
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Κόστος Επίπλωσης:'
ΔΙΑΒΑΣΕ Κ_Επίπλωσης
i <-- 0
ΟΣΟ (Κ_Επίπλωσης<0) ΚΑΙ (i<=3) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Το κόστος Επίπλωσης δεν μπορεί να είναι αρνητικός αριθμός'
ΓΡΑΨΕ 'Κόστος Επίπλωσης:'
ΔΙΑΒΑΣΕ Κ_Επίπλωσης
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ποσοστιαία αύξηση σπιτιού ετησίως:'
ΔΙΑΒΑΣΕ χ1
χ1 <-- χ1/100
ΓΡΑΨΕ 'Ποσοστιαία αύξηση επίπλωσης ετησίως:'
ΔΙΑΒΑΣΕ χ2
χ2 <-- χ2/100
! -<ΕΙΣΑΓΩΓΗ ΔΕΔΟΜΕΝΩΝ ΤΕΛΟΣ>--------------------------------------------------------------------
! Έλεγχος για το αν θα καταφέρει να αγοράσει ποτέ το σπίτι
SUM_Μισθών <-- (Χρόνια_Εργασίας/2)*(2*Α_Μισθός*12+(Χρόνια_Εργασίας-1)*Μ_Αύξηση*12)
ΓΡΑΨΕ 'SUM_Μισθών=', SUM_Μισθών
! άθροισμα αριθμητικής προόδου:
! S=ν/2*[2*α1+(ν-1)*ω], οπου ν= Χρόνια_Εργασίας(χρόνια), α1=Α_Μισθός*12, ω=Μ_Αύξηση*12
SUM_Διαμερίσματος <-- Κ_Διαμερίσματος*(χ1^Χρόνια_Εργασίας-1)/(χ1-1)
! άθροισμα γεωμετρικής προόδου:
! S=α1*(λ^ν-1)/(λ-1), όπου λ=χ1, α1=αρχικό_Κ_Διαμερίσματος, ν=Χρόνια_Εργασίας(χρόνια)
ΑΝ (SUM_Μισθών*Π_Αποταμίευσης < SUM_Διαμερίσματος) ΤΟΤΕ
ΓΡΑΨΕ 'Δυστυχώς, η αγορά αυτού του σπιτιού θα παραμείνει ένα ανεκπλήρωτο όνειρο!'
ΓΡΑΨΕ 'Κι αυτό γιατί η συνολική αποταμίευση θα είναι: ', SUM_Μισθών*Π_Αποταμίευσης
ΑΛΛΙΩΣ
Χρόνια <-- 0
Μισθός <-- Α_Μισθός*12
Αποταμίευση <-- Π_Αποταμίευσης*Μισθός
ν <-- 1
ΟΣΟ Αποταμίευση<Κ_Διαμερίσματος*(χ1^ν-1)/(χ1-1) ΕΠΑΝΑΛΑΒΕ
Χρόνια <-- Χρόνια+1
Μισθός <-- Μισθός+Μ_Αύξηση*12
Αποταμίευση <-- Αποταμίευση+Μισθός*Π_Αποταμίευσης
ν <-- ν+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Περίσσευμα <-- Αποταμίευση-Κ_Διαμερίσματος*(χ1^ν-1)/(χ1-1)
ΑΝ (Χρόνια<>0) ΤΟΤΕ
SUM_Επίπλωσης <-- Κ_Επίπλωσης*(χ2^Χρόνια -1)/(χ2-1)
ΑΛΛΙΩΣ
SUM_Επίπλωσης <-- Κ_Επίπλωσης
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Το σπίτι θα αγοραστεί μετά από ', Χρόνια, ' Χρόνια'
ΓΡΑΨΕ 'ΣΗΜΕΙΩΣΗ: Η επίπλωση του σπιτιού κοστίζει πλέον: ', SUM_Επίπλωσης
ΑΝ (Περίσσευμα >= SUM_Επίπλωσης) ΤΟΤΕ
ΓΡΑΨΕ 'Περισσεύουν', Περίσσευμα-SUM_Επίπλωσης, 'Ευρώ'
ΓΡΑΨΕ 'και ο εργαζόμενος έχει τη δυνατότητα να αγοράσει την επίπλωση του σπιτιού'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Περισσεύουν', Περίσσευμα, 'Ευρώ'
ΓΡΑΨΕ 'αλλά δεν έχει τη δυνατότητα ο εργαζόμενος να επιπλώσει το καινούριο του σπιτάκι'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ !(SUM_Μισθών*Π_Αποταμίευσης < SUM_Διαμερίσματος)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Αγορά_Σπιτιού