! Ένα κατάστημα πώλησης σκαφών αναψυχής κάνει έκπτωση στην τιμή πώλησης κάθε σκάφους
! ανάλογα με το μήκος του σκάφους και τον αριθμό των δόσεων με βάση τον πίνακα που ακολουθεί.
!
! Μήκος σκάφους σε μέτρα | Αριθμός δόσεων | Έκπτωση %
! ---------------------------------------------------
! | 0 έως και 6 | 12
! | 7 έως και 12 | 8
! Έως 6 μέτρα | 13 έως και 24 | 6
! | 25 έως και 60 | 2
! | πάνω από 60 | 0
! ---------------------------------------------------
! | 0 έως και 6 | 15
! | 7 έως και 12 | 10
! Πάνω από 6 μέτρα | 13 έως και 24 | 8
! | 25 έως και 60 | 4
! | πάνω από 60 | 0
! ---------------------------------------------------
! Να γράψετε πρόγραμμα το οποίο :
! · να δέχεται την αρχική τιμή του σκάφους, το μήκος του και τον αριθμό των δόσεων και
! · να εμφανίζει την τελική τιμή πώλησής του και το ποσό της κάθε δόσης.
ΠΡΟΓΡΑΜΜΑ ΕΠ_1_10
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: a,x,y,e,poso
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε την αξία του σκάφους.'
ΔΙΑΒΑΣΕ a
ΓΡΑΨΕ 'Δώσε και το μήκος του.'
ΔΙΑΒΑΣΕ x
ΓΡΑΨΕ 'Δώσε τον αριθμό των δόσεων.'
ΔΙΑΒΑΣΕ y
ΑΝ x < 6 ΤΟΤΕ
ΑΝ y < 6 ΤΟΤΕ
e <-- 12
ΑΛΛΙΩΣ_ΑΝ y < 12 ΤΟΤΕ
e <-- 8
ΑΛΛΙΩΣ_ΑΝ y < 24 ΤΟΤΕ
e <-- 6
ΑΛΛΙΩΣ_ΑΝ y < 60 ΤΟΤΕ
e <-- 2
ΑΛΛΙΩΣ
e <-- 0
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ y < 6 ΤΟΤΕ
e <-- 15
ΑΛΛΙΩΣ_ΑΝ y < 12 ΤΟΤΕ
e <-- 10
ΑΛΛΙΩΣ_ΑΝ y < 24 ΤΟΤΕ
e <-- 8
ΑΛΛΙΩΣ_ΑΝ y < 60 ΤΟΤΕ
e <-- 4
ΑΛΛΙΩΣ
e <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
poso <-- a - a*e/100
ΓΡΑΨΕ 'Τελική αξία σκάφους',poso,'EURO'
ΓΡΑΨΕ 'Ποσό κάθε δόσης',poso/y,'EURO'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ