Τώρα είναι Παρ 29 Μαρ 2024 02:56 am

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: sudoku
ΔημοσίευσηΔημοσιεύτηκε: Πέμ 17 Απρ 2008 11:53 pm 
Χωρίς σύνδεση

Εγγραφή: Τετ 02 Απρ 2008 08:48 pm
Δημοσιεύσεις: 6
den ksero an borei na ftiaxtei programma pu na kanei auto pu skeftome me ti glossomatheia, alla epeidi pedeftika arketa eipa na rotiso :).

""To programma tha zitaei tis akeraies, metaksi 1-9, times kapoion metavliton, i opoies metavlites antistixun se kathe kutaki tu SuDoku k meta simfona me tus kanones tha emfanizei to limeno sudoku""

To provlima mu anagete sto na katafero, na dino times se diaforetikes metavlites kathe fora, kai diaforetiki timi se kathe metavliti, oste to programma na einai efarmosimo se ola ta sudoku.
An kaneis exei tin paramikri idea giauto, parakalo as voithisei giati eimai poli periergos kai endiaferome gia auti ti lisi. eyxaristo


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης: Re: sudoku
ΔημοσίευσηΔημοσιεύτηκε: Τρί 02 Σεπ 2008 09:29 pm 
Χωρίς σύνδεση

Εγγραφή: Τρί 22 Απρ 2008 02:55 pm
Δημοσιεύσεις: 12
:arrow: Ναι υπαρχουν αρκετα "μπακαλιστικα" :lol:
Στην εμφανιση δεξια απο καθε πιασμενη θεση υπαρχει το "<". Ετσι θα ξεχωριζουν τα δεδομενα που δωσαμε στην αρχη)



:!: :!: :!: :!: :!: :!: :!: :!:
ΣΤΟΝ ΚΩΔΙΚΑ ΚΑΝΤΕ ΑΝΤΙΚΑΤΑΣΤΑΣΗ ΤΗΣ ΔΙΑΔΙΚΑΣΙΑΣ "ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)" ΜΕ ΤΗΝ ΠΑΡΑΚΑΤΩ ΔΙΑΔΙΚΑΣΙΑ
ΕΙΝΑΙ ΚΟΡΥΦΗ :o :o :o :o :D :D :D
Syntax: [ Download ] [ Hide ]
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Χ,Υ,ΑΡ,ΣΟΥ[81],ΘΧ,ΘΥ
  ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81]
  ΧΑΡΑΚΤΗΡΕΣ:Κ
ΑΡΧΗ
  ΠΗΓΑΙΝΕ_ΧΥ 44,15
  ΓΡΑΨΕ '-> **By Panos_K** <-'
  ΠΗΓΑΙΝΕ_ΧΥ 30,1
  ΓΡΑΨΕ 'Χρησιμοποιησε τα πληκτρα [8,2,4,6] για αλλαγη θεσης'
  ΠΗΓΑΙΝΕ_ΧΥ 30,3
  ΓΡΑΨΕ 'Πιεσε το [5] για εισαγωγη αριθμου στην θεση'
  ΠΗΓΑΙΝΕ_ΧΥ 30,5
  ΓΡΑΨΕ '!!Αν βαλεις το [0] σε μια θεση, αδειαζει η θεση!!'
  ΠΗΓΑΙΝΕ_ΧΥ 30,7
  ΓΡΑΨΕ 'Πληκτρολογησε τον αριθμο και επειτα πιεσε <Enter>'
  ΠΗΓΑΙΝΕ_ΧΥ 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'
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
 




:arrow: Ο Κωδικας με την ΠΑΛΙΑ διαδικασια "ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)"

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ SUDOKU
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Ι,ΣΟΥ[81]
  ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81]
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 81
      ΠΙΑΣΜΕΝΕΣ[Ι] <-- ΨΕΥΔΗΣ
      ΣΟΥ[Ι] <-- 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΚΑΛΕΣΕ ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
  !Ευρεση λυσης
    ΚΑΛΕΣΕ ΛΥΣΗ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
  !Τελος Ευρεσης λυσης
    ΚΑΛΕΣΕ ΕΜΦΑΝΙΣΗ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
    ΓΡΑΨΕ 'Εκτελεση ξανα?'
    ΓΡΑΨΕ '1.Οχι (οτιδηποτε αλλο=ναι)'
    ΔΙΑΒΑΣΕ Ι
    ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  ΜΕΧΡΙΣ_ΟΤΟΥ Ι=1
  ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ
                                             
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Χ,Ι,Υ,ΑΡ,ΓΝ,ΣΟΥ[81]
  ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81]
ΑΡΧΗ
  ΓΡΑΨΕ_ 'Γνωστοι:'
  ΔΙΑΒΑΣΕ ΓΝ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΓΝ
    ΓΡΑΨΕ 'Στην θεση ( , ) βρισκεται ο αριθμος ( )'
    ΠΗΓΑΙΝΕ_ΧΥ 12,Ι+1
    ΔΙΑΒΑΣΕ Υ
    ΠΗΓΑΙΝΕ_ΧΥ 14,Ι+1
    ΔΙΑΒΑΣΕ Χ
    ΠΗΓΑΙΝΕ_ΧΥ 38,Ι+1
    ΔΙΑΒΑΣΕ ΑΡ
    ΣΟΥ[Χ+(Υ-1)*9] <-- ΑΡ
    ΠΙΑΣΜΕΝΕΣ[Χ+(Υ-1)*9] <-- ΑΛΗΘΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ



ΔΙΑΔΙΚΑΣΙΑ ΛΥΣΗ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Ι,ΠΑΡ,ΣΟΥ[81],Κ,ΟΘΟΝΗ
  ΛΟΓΙΚΕΣ:ΕΠΙΤ,ΑΠΟΔ,ΠΙΑΣΜΕΝΕΣ[81]
ΑΡΧΗ
  ΟΘΟΝΗ <-- ΘΕΣΗ_Υ+1
  Ι <-- 1
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΠΗΓΑΙΝΕ_ΧΥ 1,ΟΘΟΝΗ
    ΓΡΑΨΕ 'Ολοκληρωθηκε (%):'*100/81,' '
    ΠΑΡ <-- ΣΟΥ[Ι]
    ΕΠΙΤ <-- ΕΠΙΤΡΕΠΕΤΕ(Ι,ΠΙΑΣΜΕΝΕΣ)
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

      ΑΠΟΔ <-- ΨΕΥΔΗΣ
      ΑΝ ΕΠΙΤ=ΑΛΗΘΗΣ ΤΟΤΕ
        ΠΑΡ <-- ΠΑΡ+1
        ΑΝ ΠΑΡ<=9 ΤΟΤΕ
          ΣΟΥ[Ι] <-- ΠΑΡ
          ΑΠΟΔ <-- ΑΠΟΔΕΚΤΟ(ΣΟΥ,Ι)
          ΑΝ ΑΠΟΔ=ΑΛΗΘΗΣ ΤΟΤΕ
            Ι <-- Ι+1
          ΤΕΛΟΣ_ΑΝ
        ΑΛΛΙΩΣ
          ΣΟΥ[Ι] <-- 0
          ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
            Ι <-- Ι-1
          ΜΕΧΡΙΣ_ΟΤΟΥ ΠΙΑΣΜΕΝΕΣ[Ι]=ΨΕΥΔΗΣ
        ΤΕΛΟΣ_ΑΝ
      ΑΛΛΙΩΣ
        Ι <-- Ι+1
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠΟΔ=ΑΛΗΘΗΣ Η ΕΠΙΤ=ΨΕΥΔΗΣ Η ΠΑΡ>9
  ΜΕΧΡΙΣ_ΟΤΟΥ Ι>81
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ



ΣΥΝΑΡΤΗΣΗ ΑΠΟΔΕΚΤΟ(ΣΟΥ,Ι):ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:ΣΟΥ[81],Ι,Κ,ΑΡ,ΦΟΡΕΣ,Θ,Θ1,ΠΕΡΙΟΧΗ[9]
  ΠΡΑΓΜΑΤΙΚΕΣ:Υ
  ΛΟΓΙΚΕΣ:ΛΑΘΟΣ1,ΛΑΘΟΣ2,ΛΑΘΟΣ3
ΑΡΧΗ
  ΛΑΘΟΣ1 <-- ΨΕΥΔΗΣ
  ΛΑΘΟΣ2 <-- ΨΕΥΔΗΣ
  ΛΑΘΟΣ3 <-- ΨΕΥΔΗΣ
!ΓΡΑΜΜΗ
  Υ <-- Ι/9
  ΑΝ Υ>Α_Μ(Υ) ΤΟΤΕ
    Υ <-- Α_Μ(Υ)+1
  ΤΕΛΟΣ_ΑΝ
  Θ1 <-- (Α_Μ(Υ)-1)*9+1
  Θ <-- (Α_Μ(Υ)-1)*9
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    Θ <-- Θ+1
    Κ <-- Θ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      Κ <-- Κ+1
      ΑΝ ΣΟΥ[Θ]=ΣΟΥ[Κ] ΚΑΙ ΣΟΥ[Θ]<>0 ΤΟΤΕ
        ΛΑΘΟΣ1 <-- ΑΛΗΘΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ Κ=Θ1+8 Η ΛΑΘΟΣ1=ΑΛΗΘΗΣ
  ΜΕΧΡΙΣ_ΟΤΟΥ Θ=Θ1+7 Η ΛΑΘΟΣ1=ΑΛΗΘΗΣ
!ΤΕΛΟΣ ΓΡΑΜΜΗ
!ΣΤΗΛΗ
  ΑΝ ΛΑΘΟΣ1=ΨΕΥΔΗΣ ΤΟΤΕ
    Χ <-- Ι-(Α_Μ(Υ)-1)*9-9
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      Χ <-- Χ+9
      Κ <-- Χ
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        Κ <-- Κ+9
        ΑΝ ΣΟΥ[Χ]=ΣΟΥ[Κ] ΚΑΙ ΣΟΥ[Χ]<>0 ΤΟΤΕ
          ΛΑΘΟΣ2 <-- ΑΛΗΘΗΣ
        ΤΕΛΟΣ_ΑΝ
      ΜΕΧΡΙΣ_ΟΤΟΥ ΛΑΘΟΣ2=ΑΛΗΘΗΣ Η Κ>=73 ΚΑΙ Κ<=81
    ΜΕΧΡΙΣ_ΟΤΟΥ ΛΑΘΟΣ2=ΑΛΗΘΗΣ Η Χ>=64 ΚΑΙ Χ<=72
!ΤΕΛΟΣ ΣΤΗΛΗ
!ΠΕΡΙΟΧΗ
    ΑΝ ΛΑΘΟΣ2=ΨΕΥΔΗΣ ΤΟΤΕ
      ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 9
        ΠΕΡΙΟΧΗ[Κ] <-- 0
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΑΝ (Ι>=1 ΚΑΙ Ι<=3) Η (Ι>=10 ΚΑΙ Ι<=12) Η (Ι>=19 ΚΑΙ Ι<=21) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[1]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[2]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[3]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[10]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[11]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[12]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[19]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[20]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[21]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=4 ΚΑΙ Ι<=6) Η (Ι>=13 ΚΑΙ Ι<=15) Η (Ι>=22 ΚΑΙ Ι<=24) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[4]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[5]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[6]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[13]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[14]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[15]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[22]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[23]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[24]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=7 ΚΑΙ Ι<=9) Η (Ι>=16 ΚΑΙ Ι<=18) Η (Ι>=25 ΚΑΙ Ι<=27) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[7]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[8]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[9]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[16]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[17]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[18]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[25]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[26]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[27]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=28 ΚΑΙ Ι<=30) Η (Ι>=37 ΚΑΙ Ι<=39) Η (Ι>=46 ΚΑΙ Ι<=48) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[28]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[29]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[30]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[37]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[38]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[39]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[46]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[47]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[48]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=31 ΚΑΙ Ι<=33) Η (Ι>=40 ΚΑΙ Ι<=42) Η (Ι>=49 ΚΑΙ Ι<=51) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[31]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[32]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[33]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[40]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[41]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[42]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[49]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[50]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[51]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=34 ΚΑΙ Ι<=36) Η (Ι>=43 ΚΑΙ Ι<=45) Η (Ι>=52 ΚΑΙ Ι<=54) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[34]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[35]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[36]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[43]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[44]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[45]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[52]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[53]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[54]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=55 ΚΑΙ Ι<=57) Η (Ι>=64 ΚΑΙ Ι<=66) Η (Ι>=73 ΚΑΙ Ι<=75) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[55]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[56]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[57]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[64]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[65]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[66]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[73]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[74]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[75]
      ΑΛΛΙΩΣ_ΑΝ (Ι>=58 ΚΑΙ Ι<=60) Η (Ι>=67 ΚΑΙ Ι<=69) Η (Ι>=76 ΚΑΙ Ι<=78) ΤΟΤΕ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[58]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[59]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[60]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[67]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[68]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[69]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[76]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[77]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[78]
      ΑΛΛΙΩΣ
        ΠΕΡΙΟΧΗ[1] <-- ΣΟΥ[61]
        ΠΕΡΙΟΧΗ[2] <-- ΣΟΥ[62]
        ΠΕΡΙΟΧΗ[3] <-- ΣΟΥ[63]
        ΠΕΡΙΟΧΗ[4] <-- ΣΟΥ[70]
        ΠΕΡΙΟΧΗ[5] <-- ΣΟΥ[71]
        ΠΕΡΙΟΧΗ[6] <-- ΣΟΥ[72]
        ΠΕΡΙΟΧΗ[7] <-- ΣΟΥ[79]
        ΠΕΡΙΟΧΗ[8] <-- ΣΟΥ[80]
        ΠΕΡΙΟΧΗ[9] <-- ΣΟΥ[81]
      ΤΕΛΟΣ_ΑΝ
      Ι <-- 0
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        Ι <-- Ι+1
        Κ <-- Ι
        ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
          Κ <-- Κ+1
          ΑΝ ΠΕΡΙΟΧΗ[Ι]=ΠΕΡΙΟΧΗ[Κ] ΚΑΙ ΠΕΡΙΟΧΗ[Ι]<>0 ΤΟΤΕ
            ΛΑΘΟΣ3 <-- ΑΛΗΘΗΣ
          ΤΕΛΟΣ_ΑΝ
        ΜΕΧΡΙΣ_ΟΤΟΥ Κ=9 Η ΛΑΘΟΣ3=ΑΛΗΘΗΣ
      ΜΕΧΡΙΣ_ΟΤΟΥ Ι=8 Η ΛΑΘΟΣ3=ΑΛΗΘΗΣ
      ΑΝ ΛΑΘΟΣ1=ΛΑΘΟΣ2 ΚΑΙ ΛΑΘΟΣ2=ΛΑΘΟΣ3 ΚΑΙ ΛΑΘΟΣ1=ΨΕΥΔΗΣ ΤΟΤΕ
        ΑΠΟΔΕΚΤΟ <-- ΑΛΗΘΗΣ
      ΑΛΛΙΩΣ
        ΑΠΟΔΕΚΤΟ <-- ΨΕΥΔΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΑΝ
!ΤΕΛΟΣ ΠΕΡΙΟΧΗ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ






ΣΥΝΑΡΤΗΣΗ ΕΠΙΤΡΕΠΕΤΕ(Ι,ΠΙΑΣΜΕΝΕΣ):ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ:Ι
  ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81]
ΑΡΧΗ
  ΑΝ ΠΙΑΣΜΕΝΕΣ[Ι]=ΑΛΗΘΗΣ ΤΟΤΕ
    ΕΠΙΤΡΕΠΕΤΕ <-- ΨΕΥΔΗΣ
  ΑΛΛΙΩΣ
    ΕΠΙΤΡΕΠΕΤΕ <-- ΑΛΗΘΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ





ΔΙΑΔΙΚΑΣΙΑ ΕΜΦΑΝΙΣΗ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΣΟΥ[81],Κ,Ν,Υ
  ΧΑΡΑΚΤΗΡΕΣ:Χ,Χ2
  ΛΟΓΙΚΕΣ:ΠΙΑΣΜΕΝΕΣ[81]
ΑΡΧΗ
  ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
  ΓΡΑΨΕ ' '
  ΓΡΑΨΕ 'Λυση'
  Ν <-- 1
  Υ <-- 4
  ΓΡΑΨΕ '==+====+====++===+====+====++===+====+====++'
  ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 81

    Χ2 <-- '==+====+====++===+====+====++===+====+====++'
    ΠΗΓΑΙΝΕ_ΧΥ Ν,Υ
    ΑΝ ΠΙΑΣΜΕΝΕΣ[Κ]=ΨΕΥΔΗΣ ΤΟΤΕ
      Χ <-- '|'
    ΑΛΛΙΩΣ
      Χ <-- '<'
    ΤΕΛΟΣ_ΑΝ
    ΑΝ Κ MOD 3=0 ΤΟΤΕ
      Χ <-- Χ+'|'
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ_ ΣΟΥ[Κ]
    Ν <-- Ν+5
    ΑΝ Κ MOD 9=0 ΤΟΤΕ
      Υ <-- Υ+2
      Ν <-- 1
      ΠΗΓΑΙΝΕ_ΧΥ Ν-5,Υ-1
      ΑΝ Υ=10 Η Υ=17 ΤΟΤΕ
        ΓΡΑΨΕ Χ2
        Υ <-- Υ+1
      ΤΕΛΟΣ_ΑΝ
      ΓΡΑΨΕ Χ2
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

Και Καντε κανενα σχολιο ρε παιδια :!: :twisted: :twisted:


Συνημμένα:
[Η επέκταση rar έχει απενεργοποιηθεί και δεν μπορεί πλέον να προβληθεί.]
Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
 Θέμα δημοσίευσης: Re: sudoku
ΔημοσίευσηΔημοσιεύτηκε: Τρί 14 Απρ 2009 10:07 am 
Χωρίς σύνδεση

Εγγραφή: Τρί 14 Απρ 2009 10:05 am
Δημοσιεύσεις: 1
RESPECT!!!


Κορυφή
 Προφίλ  
Απάντηση με παράθεση  
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 3 Δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 14 επισκέπτες


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές: