Μια λύση από εμένα του 3ου θέματος με εκτενή χρήση υποπρογραμμάτων! Ίσως πολύ κακό για το τίποτα αλλά πιστεύω ότι έχει ένα ενδιαφέρον!
!----------------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_3
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Τιμή
ΧΑΡΑΚΤΗΡΕΣ: Τύπος
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΧ, ΠΨ, ΠΖ, ΣΠ
ΑΡΧΗ
ΚΑΛΕΣΕ ΑΡΧΙΚΟΠΟΙΗΣΗ_ΤΙΜΩΝ(ΠΧ, ΠΨ, ΠΖ)
ΚΑΛΕΣΕ ΔΙΑΒΑΣΜΑ_ΤΥΠΟΥ (Τύπος)
ΚΑΛΕΣΕ ΕΠΕΞΕΡΓΑΣΙΑ_ΣΤΟΙΧΕΙΩΝ (Τύπος, Τιμή, ΠΧ, ΠΨ, ΠΖ)
ΚΑΛΕΣΕ ΕΜΦΑΝΙΣΗ_ΑΠΟΤΕΛΕΣΜΑΤΩΝ (ΠΧ, ΠΨ, ΠΖ)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ ΕΠΕΞΕΡΓΑΣΙΑ_ΣΤΟΙΧΕΙΩΝ (ΤΥΠΟΣ_, ΤΙΜΗ_, ΠΧ_, ΠΨ_, ΠΖ_)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΤΥΠΟΣ_
ΑΚΕΡΑΙΕΣ: ΤΙΜΗ_
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΧ_, ΠΨ_, ΠΖ_
ΑΡΧΗ
ΟΣΟ ΤΥΠΟΣ_ <> 'Τ' ΕΠΑΝΑΛΑΒΕ
ΚΑΛΕΣΕ ΔΙΑΒΑΣΜΑ_ΤΙΜΗΣ (ΤΙΜΗ_)
ΚΑΛΕΣΕ Υπολ_προμ(ΤΥΠΟΣ_, ΤΙΜΗ_, ΠΧ_, ΠΨ_, ΠΖ_)
ΚΑΛΕΣΕ ΔΙΑΒΑΣΜΑ_ΤΥΠΟΥ (ΤΥΠΟΣ_)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ ΕΜΦΑΝΙΣΗ_ΑΠΟΤΕΛΕΣΜΑΤΩΝ (ΠΧ_, ΠΨ_, ΠΖ_)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΧ_, ΠΨ_, ΠΖ_, ΣΠ_
ΑΡΧΗ
ΓΡΑΨΕ ΠΧ_, ΠΨ_, ΠΖ_
ΣΠ_ <- ΠΧ_ + ΠΨ_ + ΠΖ_
ΓΡΑΨΕ ΣΠ_
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ ΑΡΧΙΚΟΠΟΙΗΣΗ_ΤΙΜΩΝ (ΠΧ_, ΠΨ_, ΠΖ_)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΧ_, ΠΨ_, ΠΖ_
ΑΡΧΗ
ΠΧ_ <- 0
ΠΨ_ <- 0
ΠΖ_ <- 0
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΑΣΜΑ_ΤΥΠΟΥ (ΤΥΠΟΣ_)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΤΥΠΟΣ_
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΥΠΟ'
ΔΙΑΒΑΣΕ ΤΥΠΟΣ_
ΜΕΧΡΙΣ_ΟΤΟΥ (ΤΥΠΟΣ_ = 'Χ') Η (ΤΥΠΟΣ_ = 'Ψ') Η (ΤΥΠΟΣ_ = 'Ζ') Η (ΤΥΠΟΣ_ = 'Τ')
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΑΣΜΑ_ΤΙΜΗΣ (ΤΙΜΗ_)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΤΙΜΗ_
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΙΜΗ'
ΔΙΑΒΑΣΕ ΤΙΜΗ_
ΜΕΧΡΙΣ_ΟΤΟΥ ΤΙΜΗ_ >= 0
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!----------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Υπολ_προμ (Τύπος_, Τιμή_, ΠΧ, ΠΨ, ΠΖ)
!----------------------------------------------------
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΧ, ΠΨ, ΠΖ
ΧΑΡΑΚΤΗΡΕΣ: Τύπος_
ΑΚΕΡΑΙΕΣ: Τιμή_
ΑΡΧΗ
ΑΝ Τιμή_ <= 5000 ΤΟΤΕ
ΑΝ Τύπος_ = 'Χ' ΤΟΤΕ
ΠΧ <- ΠΧ + 0
ΑΛΛΙΩΣ_ΑΝ Τύπος_ = 'Ψ' ΤΟΤΕ
ΠΨ <- ΠΨ + Τιμή_*0.02
ΑΛΛΙΩΣ
ΠΖ <- ΠΖ + Τιμή_*0.04
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Τιμή_ <= 10000 ΤΟΤΕ
ΑΝ Τύπος_ = 'Χ' ΤΟΤΕ
ΠΧ <- ΠΧ + (Τιμή_ - 5000)*0.05
ΑΛΛΙΩΣ_ΑΝ Τύπος_ = 'Ψ' ΤΟΤΕ
ΠΨ <- ΠΨ + (5000*0.02) + (Τιμή_ - 5000)*0.06
ΑΛΛΙΩΣ
ΠΖ <- ΠΖ + (5000*0.04) + (Τιμή_ - 5000)*0.06
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ Τύπος_ = 'Χ' ΤΟΤΕ
ΠΧ <- ΠΧ + (5000*0.05) + (Τιμή_ - 10000)*0.1
ΑΛΛΙΩΣ_ΑΝ Τύπος_ = 'Ψ' ΤΟΤΕ
ΠΨ <- ΠΨ + (5000*0.02) + (5000*0.06) + (Τιμή_ - 10000)*0.07
ΑΛΛΙΩΣ
ΠΖ <- ΠΖ + (5000*0.04) + (5000*0.06) + (Τιμή_ - 10000)*0.08
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ