ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ) ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ:Χ,Υ,ΑΡ,ΣΟΥ[81],ΘΧ,ΘΥ ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81] ΧΑΡΑΚΤΗΡΕΣ:Κ ΑΡΧΗ ΠΗΓΑΙΝΕ_ΧΥ 44,15 ΓΡΑΨΕ '-> **By Panos_K** <-' ΠΗΓΑΙΝΕ_ΧΥ 30,1 ΓΡΑΨΕ 'Χρησιμοποιησε τα πληκτρα [8,2,4,6] για αλλαγη θεσης' ΠΗΓΑΙΝΕ_ΧΥ 30,3 ΓΡΑΨΕ 'Πιεσε το [5] για εισαγωγη αριθμου στην θεση' ΠΗΓΑΙΝΕ_ΧΥ 30,5 ΓΡΑΨΕ '!!Αν βαλεις το [0] σε μια θεση, αδειαζει η θεση!!' ΠΗΓΑΙΝΕ_ΧΥ 30,7 ΓΡΑΨΕ 'Πληκτρολογησε τον αριθμο και επειτα πιεσε ' ΠΗΓΑΙΝΕ_ΧΥ 30,9 ΓΡΑΨΕ 'Για να δεις την λυση πιεσε [0]' ΠΗΓΑΙΝΕ_ΧΥ 1,1 ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+++++++++#++++++++#+++++++++' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+++++++++#++++++++#+++++++++' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+--+--+--#--+--+--#--+--+--+' ΓΡΑΨΕ '| | | | | | | | | |' ΓΡΑΨΕ '+++++++++#++++++++#+++++++++' ΘΧ <-- 3 ΘΥ <-- 2 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΠΗΓΑΙΝΕ_ΧΥ ΘΧ,ΘΥ ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ Κ <-- READKEY ΑΝ Κ='8' ΤΟΤΕ ΘΥ <-- ΘΥ-2 ΑΛΛΙΩΣ_ΑΝ Κ='6' ΤΟΤΕ ΘΧ <-- ΘΧ+3 ΑΛΛΙΩΣ_ΑΝ Κ='4' ΤΟΤΕ ΘΧ <-- ΘΧ-3 ΑΛΛΙΩΣ_ΑΝ Κ='2' ΤΟΤΕ ΘΥ <-- ΘΥ+2 ΤΕΛΟΣ_ΑΝ ΑΝ ΘΧ>27 ΤΟΤΕ ΘΧ <-- 3 ΑΛΛΙΩΣ_ΑΝ ΘΧ<3 ΤΟΤΕ ΘΧ <-- 27 ΤΕΛΟΣ_ΑΝ ΑΝ ΘΥ>18 ΤΟΤΕ ΘΥ <-- 2 ΑΛΛΙΩΣ_ΑΝ ΘΥ<2 ΤΟΤΕ ΘΥ <-- 18 ΤΕΛΟΣ_ΑΝ ΠΗΓΑΙΝΕ_ΧΥ ΘΧ,ΘΥ ΜΕΧΡΙΣ_ΟΤΟΥ Κ='5' Η Κ='0' ΑΝ Κ='5' ΤΟΤΕ ΔΙΑΒΑΣΕ ΑΡ Χ <-- Α_Μ(ΘΧ/3) Υ <-- Α_Μ(ΘΥ/2) ΣΟΥ[Χ+(Υ-1)*9] <-- ΑΡ ΑΝ ΑΡ<>0 ΤΟΤΕ ΑΝ ΑΠΟΔΕΚΤΟ(ΣΟΥ,Χ+(Υ-1)*9)=ΨΕΥΔΗΣ ΤΟΤΕ ΣΟΥ[Χ+(Υ-1)*9] <-- 0 ΠΗΓΑΙΝΕ_ΧΥ ΘΧ-1,ΘΥ ΓΡΑΨΕ ' ' ΑΛΛΙΩΣ ΠΙΑΣΜΕΝΕΣ[Χ+(Υ-1)*9] <-- ΑΛΗΘΗΣ ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ ΠΙΑΣΜΕΝΕΣ[Χ+(Υ-1)*9] <-- ΨΕΥΔΗΣ ΠΗΓΑΙΝΕ_ΧΥ ΘΧ-1,ΘΥ ΓΡΑΨΕ ' ' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΜΕΧΡΙΣ_ΟΤΟΥ Κ='0' ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ