ΠΡΟΓΡΑΜΜΑ ΤΡΙΛΙΖΑ01
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[9], ΣΕΙΡΑ, ΘΕΣΗ, ΜΕΤΡΗΜΑ
ΑΚΕΡΑΙΕΣ: ΑΡΧΙΚΟ, ΝΕΟ, ΑΠ, Ι, ΣΚΟΡ_ΠΑΙΚΤΗ, ΣΚΟΡ_ΥΠ
ΑΡΧΗ
ΑΡΧΙΚΟ <-- 12123
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 9
Α[Ι] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '********** ΤΡΙΛΙΖΑ ***********'
ΓΡΑΨΕ 'ΣΚΟΡ ΠΑΙΚΤΗ-ΥΠΟΛΟΓΙΣΤΗ '
ΓΡΑΨΕ ' (',ΣΚΟΡ_ΠΑΙΚΤΗ,'-',ΣΚΟΡ_ΥΠ,')'
ΜΕΤΡΗΜΑ <-- 0
ΑΝ ΝΑΙ('ΘΑ ΠΑΙΞΩ ΠΡΩΤΟΣ;') ΤΟΤΕ
ΚΑΛΕΣΕ ΤΥΧΑΙΟΣ(ΑΡΧΙΚΟ, ΝΕΟ)
ΑΠ <-- (ΝΕΟ MOD 9) +1
Α[ΑΠ] <-- -1
ΜΕΤΡΗΜΑ <-- ΜΕΤΡΗΜΑ+1
ΤΕΛΟΣ_ΑΝ
ΚΑΛΕΣΕ ΑΝΑΝΕΩΣΗ(Α)
ΟΣΟ (ΜΕΤΡΗΜΑ<9) ΚΑΙ ΝΑΙ('ΘΕΣ ΝΑ ΣΥΝΕΧΙΣΕΙΣ;') ΕΠΑΝΑΛΑΒΕ
ΚΑΛΕΣΕ ΤΥΧΑΙΟΣ(ΑΡΧΙΚΟ, ΝΕΟ)
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΘΕΣΗ <-- ΠΑΙΚΤΗΣ
ΜΕΧΡΙΣ_ΟΤΟΥ Α[ΘΕΣΗ]=0
ΝΕΟ <-- ΝΕΟ+ΘΕΣΗ
ΓΡΑΨΕ 'ΟΚ'
ΜΕΤΡΗΜΑ <-- ΜΕΤΡΗΜΑ+1
Α[ΘΕΣΗ] <-- 1
ΑΝ ΚΕΡΔΙΖΕΙ(Α,1) ΤΟΤΕ
ΜΕΤΡΗΜΑ <-- 10
ΓΡΑΨΕ '******** ΚΕΡΔΙΣΕΣ *********'
ΣΚΟΡ_ΠΑΙΚΤΗ <-- ΣΚΟΡ_ΠΑΙΚΤΗ+1
ΤΕΛΟΣ_ΑΝ
ΑΝ ΜΕΤΡΗΜΑ<9 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΤΥΧΑΙΟΣ(ΑΡΧΙΚΟ, ΝΕΟ)
ΑΠ <-- (ΝΕΟ MOD 9) +1
ΜΕΧΡΙΣ_ΟΤΟΥ Α[ΑΠ]=0
ΜΕΤΡΗΜΑ <-- ΜΕΤΡΗΜΑ+1
Α[ΑΠ] <-- -1
ΤΕΛΟΣ_ΑΝ
ΚΑΛΕΣΕ ΑΝΑΝΕΩΣΗ(Α)
ΑΝ ΚΕΡΔΙΖΕΙ(Α, -1) ΤΟΤΕ
ΜΕΤΡΗΜΑ <-- 10
ΓΡΑΨΕ '********* ΚΕΡΔΙΣΑ *********'
ΣΚΟΡ_ΥΠ <-- ΣΚΟΡ_ΥΠ +1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΧΡΙΣ_ΟΤΟΥ ΟΧΙ ΝΑΙ('ΘΕΛΕΙΣ ΝΑ ΞΑΝΑΠΑΙΞΟΥΜΕ;')
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΤΥΧΑΙΟΣ(Α,Ν)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α, Ν
ΑΡΧΗ
Ν <-- N + Α DIV 123
Α <-- Ν + Α MOD 13031
Ν <-- (Ν MOD 100)*100+(N DIV 100) MOD 100
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΣΗΜΕΙΟ(Τ): ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Τ
ΑΡΧΗ
ΑΝ Τ=0 ΤΟΤΕ
ΣΗΜΕΙΟ <-- ' '
ΑΛΛΙΩΣ_ΑΝ Τ<0 ΤΟΤΕ
ΣΗΜΕΙΟ <-- 'Χ'
ΑΛΛΙΩΣ
ΣΗΜΕΙΟ <-- 'Ο'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΝΑΝΕΩΣΗ(Κ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Κ[9]
ΑΡΧΗ
ΓΡΑΨΕ ' 1 2 3'
ΓΡΑΨΕ '1',ΣΗΜΕΙΟ(Κ[1]),'|', ΣΗΜΕΙΟ(Κ[2]),'|',ΣΗΜΕΙΟ(Κ[3])
ΓΡΑΨΕ ' -+-+-'
ΓΡΑΨΕ '2',ΣΗΜΕΙΟ(Κ[4]),'|', ΣΗΜΕΙΟ(Κ[5]),'|',ΣΗΜΕΙΟ(Κ[6])
ΓΡΑΨΕ '-+-+-'
ΓΡΑΨΕ '3',ΣΗΜΕΙΟ(Κ[7]),'|', ΣΗΜΕΙΟ(Κ[8]),'|',ΣΗΜΕΙΟ(Κ[9])
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ Ε(ΚΚ, Μ,Ν,Ξ):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΚΚ[9], Μ, Ν, Ξ
ΑΡΧΗ
Ε <-- ΚΚ[Μ]+ΚΚ[Ν]+ΚΚ[Ξ]
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΚΕΡΔΙΖΕΙ(Κ, ΧΟ):ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Κ[9], ΟΧΟ, ΧΟ
ΛΟΓΙΚΕΣ: Ζ1,Ζ2,Ζ3
ΑΡΧΗ
ΟΧΟ <-- 3*ΧΟ
Ζ1 <-- (Ε(Κ,1,2,3)=ΟΧΟ) Ή (Ε(Κ,4,5,6)=ΟΧΟ) Ή (Ε(Κ,7,8,9)=ΟΧΟ)
Ζ2 <-- (Ε(Κ,1,4,7)=ΟΧΟ) Ή (Ε(Κ,2,5,8)=ΟΧΟ) Ή (Ε(Κ,3,6,9)=ΟΧΟ)
Ζ3 <-- (Ε(Κ,1,5,9)=ΟΧΟ) Ή (Ε(Κ,3,5,7)=ΟΧΟ)
ΑΝ Ζ1 Ή Ζ2 Ή Ζ3 ΤΟΤΕ
ΚΕΡΔΙΖΕΙ <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΚΕΡΔΙΖΕΙ <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΝΑΙ(ΕΜΦΑΝΙΣΗ) :ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΕΜΦΑΝΙΣΗ, ΝΝ
ΛΟΓΙΚΕΣ: ΟΚ
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΕΜΦΑΝΙΣΗ,'(Ν/Ο)'
ΔΙΑΒΑΣΕ ΝΝ
ΟΚ <-- ΨΕΥΔΗΣ
ΑΝ (ΝΝ='N') Ή (ΝΝ='Ν') ΤΟΤΕ
ΝΑΙ <-- ΑΛΗΘΗΣ
ΟΚ <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ_ΑΝ (ΝΝ='O') Ή (ΝΝ='Ο') ΤΟΤΕ
ΝΑΙ <-- ΨΕΥΔΗΣ
ΟΚ <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΟΚ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΕΙΣΑΓΩΓΗ_ΑΚ(ΕΜΦΑΝΙΣΗ, ΚΑΤΩ_ΟΡΙΟ, ΠΑΝΩ_ΟΡΙΟ) :ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΕΜΦΑΝΙΣΗ
ΑΚΕΡΑΙΕΣ: ΚΑΤΩ_ΟΡΙΟ, ΠΑΝΩ_ΟΡΙΟ, ΑΡΧΙΚΗ
ΑΡΧΗ
ΑΡΧΙΚΗ <-- ΚΑΤΩ_ΟΡΙΟ-1
ΟΣΟ (ΑΡΧΙΚΗ<ΚΑΤΩ_ΟΡΙΟ) Ή (ΑΡΧΙΚΗ>ΠΑΝΩ_ΟΡΙΟ) ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ ΕΜΦΑΝΙΣΗ
ΔΙΑΒΑΣΕ ΑΡΧΙΚΗ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΙΣΑΓΩΓΗ_ΑΚ <-- ΑΡΧΙΚΗ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΠΑΙΚΤΗΣ: ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΣΕΙΡΑ, ΣΤΗΛΗ
ΑΡΧΗ
ΣΕΙΡΑ <-- ΕΙΣΑΓΩΓΗ_ΑΚ('ΔΩΣΕ ΣΕΙΡΑ',1,3)
ΣΤΗΛΗ <-- ΕΙΣΑΓΩΓΗ_ΑΚ('ΔΩΣΕ ΣΤΗΛΗ',1,3)
ΠΑΙΚΤΗΣ <-- ΣΤΗΛΗ+(ΣΕΙΡΑ-1)*3
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ