ΠΡΟΓΡΑΜΜΑ move
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: χ,υ,S,ι, J
ΧΑΡΑΚΤΗΡΕΣ: κατ_αν, δεξ_αρ
ΑΡΧΗ
κατ_αν <-- 'κατ'
δεξ_αρ <-- 'δεξ'
υ <-- 2
χ <-- 2
ΓΙΑ S ΑΠΟ 1 ΜΕΧΡΙ 1000 ΜΕ ΒΗΜΑ 0
ΑΝ υ=2 και δεξ_αρ='δεξ' ΤΟΤΕ
κατ_αν <-- 'κατ'
δεξ_αρ <-- 'δεξ'
ΟΣΟ χ<73 και υ<22 ΕΠΑΝΑΛΑΒΕ
χ <-- χ+1
υ <-- υ+1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ υ=2 και δεξ_αρ='αρ' ΤΟΤΕ
κατ_αν <-- 'κατ'
δεξ_αρ <-- 'αρ'
ΟΣΟ χ>2 και υ<22 ΕΠΑΝΑΛΑΒΕ
χ <-- χ-1
υ <-- υ+1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ υ=22 και δεξ_αρ='δεξ' ΤΟΤΕ
κατ_αν <-- 'αν'
δεξ_αρ <-- 'δεξ'
ΟΣΟ χ<73 και υ>2 ΕΠΑΝΑΛΑΒΕ
χ <-- χ+1
υ <-- υ-1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ υ=22 και δεξ_αρ='αρ' ΤΟΤΕ
κατ_αν <-- 'αν'
δεξ_αρ <-- 'αρ'
ΟΣΟ χ>2 και υ>2 ΕΠΑΝΑΛΑΒΕ
χ <-- χ-1
υ <-- υ-1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ χ=73 και κατ_αν='κατ' ΤΟΤΕ
κατ_αν <-- 'κατ'
δεξ_αρ <-- 'αρ'
ΟΣΟ υ<22 και χ>2 ΕΠΑΝΑΛΑΒΕ
χ <-- χ-1
υ <-- υ+1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ χ=73 και κατ_αν='αν' ΤΟΤΕ
κατ_αν <-- 'αν'
δεξ_αρ <-- 'αρ'
ΟΣΟ υ>2 και χ>2 ΕΠΑΝΑΛΑΒΕ
χ <-- χ-1
υ <-- υ-1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ χ=2 και κατ_αν='κατ' ΤΟΤΕ
κατ_αν <-- 'κατ'
δεξ_αρ <-- 'δεξ'
ΟΣΟ υ<22 και χ<73 ΕΠΑΝΑΛΑΒΕ
χ <-- χ+1
υ <-- υ+1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ χ=2 και κατ_αν='αν' ΤΟΤΕ
κατ_αν <-- 'αν'
δεξ_αρ <-- 'δεξ'
ΟΣΟ υ>2 και χ<73 ΕΠΑΝΑΛΑΒΕ
χ <-- χ+1
υ <-- υ-1
ΚΑΛΕΣΕ πλαισιο
ΚΑΛΕΣΕ μπαλα
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ move
ΔΙΑΔΙΚΑΣΙΑ μπαλα
ΑΡΧΗ
ΠΗΓΑΙΝΕ_ΧΥ χ,υ
ΓΡΑΨΕ '//\\'
ΠΗΓΑΙΝΕ_ΧΥ χ,υ+1
ΓΡΑΨΕ '\\//'
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300000
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ πλαισιο
ΑΡΧΗ
ΓΡΑΨΕ '##############################################################################' !78
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 22
ΓΡΑΨΕ '# #'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '##############################################################################'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ