:furious3:
Πρόγραμμα με πρακτορείο εισιτηρίων (Η πληρης εκφώνηση δεν είναι ετοιμη). Αν βρείτε πρόβλημα στείλτε το στην ipoulis@sch.gr. Τρέχει σε γλώσσα
Ηλίας Πούλης
[glossa]
ΠΡΟΓΡΑΜΜΑ ΠΡΑΚΤΟΡΕΙΟ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΚΟΣ,ΣΕ,ΘΕ,ΑΠ1,ΣΥΝΟΛΟ,ΚΟΣ_ΕΙΣ,ΣΥΝ_ΕΙΣ,ΚΟΣ_ΙΧ,ΣΥΝ_ΙΧ
ΑΚΕΡΑΙΕΣ: ΚΟΣ_ΜΟΤΟ,ΣΥΝ_ΜΟΤΟ,ΚΟΣ_ΦΟ,ΣΥΝ_ΦΟ
ΧΑΡΑΚΤΗΡΕΣ: Σ1,Σ2
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΙΧΑ ΞΕΧΑΣΕΙ ΤΗΝ ΑΡΧΙΚΟΠΟΙΗΣΗ => ΛΑΘΟΣ ΚΑΤΑ ΤΗΝ ΕΚΤΕΛΕΣΗ
ΚΟΣ_ΕΙΣ <-- 0
ΣΥΝ_ΕΙΣ <-- 0
ΚΟΣ_ΙΧ <-- 0
ΣΥΝ_ΙΧ <-- 0
ΚΟΣ_ΜΟΤΟ <-- 0
ΣΥΝ_ΜΟΤΟ <-- 0
ΚΟΣ_ΦΟ <-- 0
ΣΥΝ_ΦΟ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΜΕΝΟΥ1
ΔΙΑΒΑΣΕ ΑΠ1
ΕΠΙΛΕΞΕ ΑΠ1
ΠΕΡΙΠΤΩΣΗ 1
ΚΑΛΕΣΕ ΚΟΣΤΟΣ_ΕΙΣ(ΚΟΣ,ΣΕ,ΘΕ)
ΚΟΣ_ΕΙΣ <-- ΚΟΣ_ΕΙΣ+ΚΟΣ
ΣΥΝ_ΕΙΣ <-- ΣΥΝ_ΕΙΣ+ΣΕ
ΠΕΡΙΠΤΩΣΗ 2,3,4
ΚΟΣ <-- ΚΟΣΤΟΣ_ΟΧ(ΑΠ1)
ΑΝ ΑΠ1=2 ΤΟΤΕ
ΚΟΣ_ΙΧ <-- ΚΟΣ_ΙΧ+ΚΟΣ
ΣΥΝ_ΙΧ <-- ΣΥΝ_ΙΧ+1
ΑΛΛΙΩΣ_ΑΝ ΑΠ1=3 ΤΟΤΕ
ΚΟΣ_ΜΟΤΟ <-- ΚΟΣ_ΜΟΤΟ+ΚΟΣ
ΣΥΝ_ΜΟΤΟ <-- ΣΥΝ_ΜΟΤΟ+1
ΑΛΛΙΩΣ_ΑΝ ΑΠ1=4 ΤΟΤΕ
ΚΟΣ_ΦΟ <-- ΚΟΣ_ΦΟ+ΚΟΣ
ΣΥΝ_ΦΟ <-- ΣΥΝ_ΦΟ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΓΡΑΨΕ 'ΘΕΣ ΚΑΙ ΑΛΛΗ ΣΥΝΑΛΛΑΓΗ ΓΙΑ ΤΗΝ ΙΔΙΑ ΚΡΑΤΗΣΗ;;'
ΚΑΛΕΣΕ ΔΙΑΒΑΠ(Σ1)
ΜΕΧΡΙΣ_ΟΤΟΥ Σ1='Ο'
ΣΥΝΟΛΟ <-- ΚΟΣ_ΕΙΣ+ΚΟΣ_ΙΧ+ΚΟΣ_ΜΟΤΟ+ΚΟΣ_ΦΟ
ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΕΙΣ,' ΕΙΣΙΤΗΡΙΟ/Α : ',ΚΟΣ_ΕΙΣ,' Euro'
ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΙΧ,' ΑΥΤΟΚΙΝΗΤΟ/Α : ',ΚΟΣ_ΙΧ,' Euro'
ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΜΟΤΟ,' ΜΟΤΟΣΥΚΛΕΤΑ/ΕΣ : ',ΚΟΣ_ΜΟΤΟ,' Euro'
ΓΡΑΨΕ 'ΓΙΑ ',ΣΥΝ_ΦΟ,' ΦΟΡΤΗΓΟ/Α : ',ΚΟΣ_ΦΟ,' Euro'
ΓΡΑΨΕ 'ΤΟ ΣΥΝΟΛΟ ΕΙΝΑΙ : ',ΣΥΝΟΛΟ,' Euro'
ΓΡΑΨΕ 'ΘΕΣ ΝΕΑ ΣΥΝΑΛΛΑΓΗ ΓΙΑ ΑΛΛΗ ΚΡΑΤΗΣΗ;;'
ΚΑΛΕΣΕ ΔΙΑΒΑΠ(Σ2)
ΜΕΧΡΙΣ_ΟΤΟΥ Σ2='Ο'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΜΕΝΟΥ1
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΕΠΙΛΟΓΗ ΣΟΥ'
ΓΡΑΨΕ '1. ΓΙΑ ΕΙΣΙΤΗΡΙΑ'
ΓΡΑΨΕ '2. ΓΙΑ ΑΥΤΟΚΙΝΗΤΑ'
ΓΡΑΨΕ '3. ΓΙΑ ΜΟΤΟΣΥΚΛΕΤΑ'
ΓΡΑΨΕ '4. ΓΙΑ ΦΟΡΤΗΓΟ'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΜΕΝΟΥ2
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗΝ ΕΠΙΛΟΓΗ ΤΗΣ ΘΕΣΗΣ'
ΓΡΑΨΕ '1. ΓΙΑ Α ΘΕΣΗ'
ΓΡΑΨΕ '2. ΓΙΑ Γ ΘΕΣΗ'
ΓΡΑΨΕ '3. ΓΙΑ ΚΑΜΠΙΝΑ'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΚΟΣΤΟΣ_ΕΙΣ(Κ,Σ,Θ)
ΣΤΑΘΕΡΕΣ
ΑΘ=35
ΓΘ=25
ΚΑ=65
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Θ,Σ,Κ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΜΕΝΟΥ2
! Θ= Η ΘΕΣΗ ΠΟΥ ΕΠΙΛΕΓΕΙ
ΔΙΑΒΑΣΕ Θ
! Σ= Ο ΑΡΙΘΜΟΣ ΤΩΝ ΑΤΟΜΩΝ
ΓΡΑΨΕ 'ΔΩΣΕ ΑΡΙΘΜΟ ΑΤΟΜΩΝ'
ΚΑΛΕΣΕ ΔΙΑΒΘ(Σ)
ΕΠΙΛΕΞΕ Θ
ΠΕΡΙΠΤΩΣΗ 1
Κ <-- Σ*ΑΘ
ΠΕΡΙΠΤΩΣΗ 2
Κ <-- Σ*ΓΘ
ΠΕΡΙΠΤΩΣΗ 3
Κ <-- Σ*ΚΑ
ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΛΑΘΟΣ ΕΠΙΛΟΓΗΣ, ΞΑΝΑΔΩΣΕ'
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Θ > 0 ΚΑΙ Θ < 4
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΘ(Χ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Χ
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'
ΔΙΑΒΑΣΕ Χ
ΟΣΟ Χ < 0 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'ΕΔΩΣΕΣ ΑΡΝΗΤΙΚΟ, ΞΑΝΑΔΩΣΕ'
ΔΙΑΒΑΣΕ Χ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΚΟΣΤΟΣ_ΟΧ(Α):ΑΚΕΡΑΙΑ
ΣΤΑΘΕΡΕΣ
ΑΥ=75
ΜΟ=30
ΦΟ=150
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α,Κ
ΑΡΧΗ
Κ <-- 0
ΑΝ Α=2 ΤΟΤΕ
Κ <-- ΑΥ
ΑΛΛΙΩΣ_ΑΝ Α=3 ΤΟΤΕ
Κ <-- ΜΟ
ΑΛΛΙΩΣ_ΑΝ Α=4 ΤΟΤΕ
Κ <-- ΦΟ
ΤΕΛΟΣ_ΑΝ
ΚΟΣΤΟΣ_ΟΧ <-- Κ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΑΠ(ΣΥΝΕΧΕΙΑ)
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΣΥΝΕΧΕΙΑ
ΑΡΧΗ
ΓΡΑΨΕ 'ΓΙΑ ΝΑΙ ΠΑΤΗΣΕ Ν -- ΓΙΑ ΟΧΙ ΠΑΤΗΣΕ Ο'
ΔΙΑΒΑΣΕ ΣΥΝΕΧΕΙΑ
ΟΣΟ ΣΥΝΕΧΕΙΑ <> 'Ν' ΚΑΙ ΣΥΝΕΧΕΙΑ <> 'Ο' ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'ΕΙΠΑΜΕ ΡΕ!! ΓΙΑ ΝΑΙ ΠΑΤΗΣΕ Ν -- ΓΙΑ ΟΧΙ ΠΑΤΗΣΕ Ο'
ΔΙΑΒΑΣΕ ΣΥΝΕΧΕΙΑ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
[/glossa]
Ηλία πήρα πρωτοβουλία και διόρθωσα τα λάθη, σβήνοντας το επόμενο μήνυμά σου - Τσιωτάκης Παναγιώτης