Panos_K
Νεοφερμένος
Ο Παναγιωτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 33 ετών, Φοιτητής και μας γράφει απο Πέλλα (Πέλλα). Έχει γράψει 4 μηνύματα.
10-09-08
22:05
Το προγραμμα λεξαριθμων
Κατεβαστε και το exe
Code:
ΠΡΟΓΡΑΜΜΑ ΛΕΞΑΡΙΘΜΟΙ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:Χ
ΑΚΕΡΑΙΕΣ:Α,Β,Ι,Κ
ΛΟΓΙΚΕΣ:ΛΑΘΟΣ,ΑΛΛΑΓΗ,ΥΠ
ΑΡΧΕΙΑ ΧΑΡΑΚΤΗΡΩΝ: ΚΑΤ
ΑΡΧΗ
ΑΛΛΑΓΗ <-- ΨΕΥΔΗΣ
ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΚΑΤ,'C:NumW.gm'
ΑΝ ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('C:NumW.gm')=ΨΕΥΔΗΣ ΤΟΤΕ
ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΚΑΤ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤ
ΤΕΛΟΣ_ΑΝ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΚΑΤ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤ)
ΓΡΑΨΕ 'Ως τωρα:',Ι,'καταχωρημενες λεξεις/φρασεις'
ΓΡΑΨΕ '<Enter> για μενου'
ΑΝ Ι=0 ΤΟΤΕ
ΓΡΑΨΕ '**************************************************************'
ΓΡΑΨΕ '!!Το μηνυμα θα σταματησει να εμφανιζεται οταν δωθει εγκυρη'
ΓΡΑΨΕ 'εισοδος!!'
ΓΡΑΨΕ '**************************************************************'
ΓΡΑΨΕ 'Το πρόγραμμα δεχεται σαν εισοδο λεξεις η φρασεις.'
ΓΡΑΨΕ 'Εμφανιζει σε ποιον αριθμο αντιστοιχουν.'
ΓΡΑΨΕ 'Θα πρεπει να αποτελουνται μονο απο ΕΛΛΗΝΙΚΑ γραμματα.'
ΓΡΑΨΕ 'Αποδεκτος χαρακτήρας ειναι και το <κενο>'
ΓΡΑΨΕ 'Σε αντιθετη περίπτωση θα εμφανιζεται καταλληλο μηνυμα.'
ΓΡΑΨΕ 'Μετα από καθε εξοδο θα γινεται ταξινομηση των λεξεων/φρασεων'
ΓΡΑΨΕ '**************************************************************'
ΓΡΑΨΕ '!!Για να γινεται ταξινομηση θα πρεπει η έξοδος να γινεται μεσω'
ΓΡΑΨΕ 'του προγραμματος και να εχει δωθει καποια καινουρια λεξη/φραση!!'
ΓΡΑΨΕ '**************************************************************'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ_ 'Αντιστοιχιση του:'
ΔΙΑΒΑΣΕ Χ
Χ <-- Μ_Κ(Χ)
ΚΑΛΕΣΕ ΛΕΞΑ(Χ,ΛΑΘΟΣ,Α)
ΑΝ ΛΑΘΟΣ=ΨΕΥΔΗΣ ΤΟΤΕ
ΥΠ <-- ΥΠΑΡΧΕΙ(Χ)
ΑΝ ΥΠ=ΨΕΥΔΗΣ ΤΟΤΕ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤ)+1
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
ΑΛΛΑΓΗ <-- ΑΛΗΘΗΣ
ΓΡΑΨΕ 'Νεα λεξη/φραση !'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ ' '
ΓΡΑΨΕ '=======>--'
ΓΡΑΨΕ 'Η παραπανω λεξη/φραση αντιστοιχει στον αριθμο:',Α
ΓΡΑΨΕ '=======>--'
ΓΡΑΨΕ_ 'Ομοιες λεξεις/φρασεις:'
ΚΑΛΕΣΕ ΟΜΟΙΕΣ(Α,Χ)
ΑΛΛΙΩΣ
ΑΝ Χ<>'' ΤΟΤΕ
ΓΡΑΨΕ '!Λανθασμενη εισοδος δεδομενων!'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ ' '
ΓΡΑΨΕ '**********************************'
ΓΡΑΨΕ '<Enter>. Εκτελεση ξανα'
ΓΡΑΨΕ '2. Προβολη καταχωρημενων λεξεων/φρασεων'
ΓΡΑΨΕ '3. Εξοδος'
ΓΡΑΨΕ '4. Αναζητηση αριθμου'
ΓΡΑΨΕ '5. Αναζητηση λεξης/φρασης'
ΓΡΑΨΕ '6. Διαγραφη λεξης/φρασης'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Χ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='2' Η X='3' Η X='' Η Χ='4' Η Χ='5' Η Χ='6'
ΑΝ Χ='2' ΤΟΤΕ
ΚΑΛΕΣΕ ΠΡΟΒΟΛΗ
ΑΛΛΙΩΣ_ΑΝ Χ='4' ΤΟΤΕ
ΚΑΛΕΣΕ ΑΝ_ΑΡ
ΑΛΛΙΩΣ_ΑΝ Χ='6' ΤΟΤΕ
ΚΑΛΕΣΕ ΔΙΑΓ
ΑΛΛΙΩΣ_ΑΝ Χ='5' ΤΟΤΕ
ΚΑΛΕΣΕ ΑΝ_ΛΕΞ
ΤΕΛΟΣ_ΑΝ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='3'
ΑΝ ΑΛΛΑΓΗ=ΑΛΗΘΗΣ ΤΟΤΕ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Γινεται ταξινομηση'
ΓΡΑΨΕ 'Ισως χαθουν δεδομενα εαν διακοπει'
ΚΑΛΕΣΕ ΤΑΞΙΝ
ΤΕΛΟΣ_ΑΝ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΚΑΤ
ΚΛΕΙΣΕ_ΠΑΡΑΘΥΡΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΟΜΟΙΕΣ(Α,Χ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α,ΜΑΧ,Φ
ΧΑΡΑΚΤΗΡΕΣ:Χ,Π
ΑΡΧΗ
Φ <-- 0
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΑΧ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Π
ΑΝ ΣΥΝΤΟΜΗ(Π)=Α ΚΑΙ Χ<>Π ΤΟΤΕ
Φ <-- Φ+1
ΑΝ Φ<>1 ΤΟΤΕ
ΓΡΑΨΕ_ ', '+Π
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ Π
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Φ=0 ΤΟΤΕ
ΓΡΑΨΕ_ 'Δεν υπαρχει καμια ομοια καταχωρημενη ως τωρα'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ
ΓΡΑΨΕ '=======>--'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΥΠΑΡΧΕΙ(Χ):ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,ΜΑΧ
ΧΑΡΑΚΤΗΡΕΣ:Χ,Π
ΛΟΓΙΚΕΣ:Λ
ΑΡΧΗ
Λ <-- ΨΕΥΔΗΣ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΑΝ ΜΑΧ>=1 ΤΟΤΕ
Ι <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Π
ΑΝ Π=Χ ΤΟΤΕ
Λ <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η Λ=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΥΠΑΡΧΕΙ <-- Λ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΣΥΝΑΡΤΗΣΗ ΣΥΝΤΟΜΗ(Π):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,Α,Β,Κ
ΧΑΡΑΚΤΗΡΕΣ:Π
ΑΡΧΗ
Ι <-- ΜΗΚΟΣ_ΧΑΡ(Π)
Α <-- 0
Κ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Κ <-- Κ+1
Β <-- ΑΡΙΘ(Π,Κ)
Α <-- Α+Β
ΜΕΧΡΙΣ_ΟΤΟΥ Κ=Ι
ΣΥΝΤΟΜΗ <-- Α
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΛΕΞΑ(Χ,ΛΑΘΟΣ,Α)
ΜΕΤΑΒΛΗΤΕΣ
ΛΟΓΙΚΕΣ:ΛΑΘΟΣ
ΑΚΕΡΑΙΕΣ:Ι,Α,Β,Κ
ΧΑΡΑΚΤΗΡΕΣ:Χ
ΑΡΧΗ
ΛΑΘΟΣ <-- ΨΕΥΔΗΣ
Ι <-- ΜΗΚΟΣ_ΧΑΡ(Χ)
Α <-- 0
Κ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Κ <-- Κ+1
Β <-- ΑΡΙΘ(Χ,Κ)
Α <-- Α+Β
ΑΝ Β=-1 ΤΟΤΕ
ΛΑΘΟΣ <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Κ=Ι Η ΛΑΘΟΣ=ΑΛΗΘΗΣ
ΑΝ Α=0 ΤΟΤΕ
ΛΑΘΟΣ <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ ΑΡΙΘ(Χ,Κ):ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:Χ
ΑΚΕΡΑΙΕΣ:Π,Κ
ΑΡΧΗ
ΑΝ Χ[Κ]='Α' ΤΟΤΕ
Π <-- 1
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Β' ΤΟΤΕ
Π <-- 2
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Γ' ΤΟΤΕ
Π <-- 3
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Δ' ΤΟΤΕ
Π <-- 4
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ε' ΤΟΤΕ
Π <-- 5
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ζ' ΤΟΤΕ
Π <-- 7
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Η' ΤΟΤΕ
Π <-- 8
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Θ' ΤΟΤΕ
Π <-- 9
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ι' ΤΟΤΕ
Π <-- 10
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Κ' ΤΟΤΕ
Π <-- 20
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Λ' ΤΟΤΕ
Π <-- 30
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Μ' ΤΟΤΕ
Π <-- 40
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ν' ΤΟΤΕ
Π <-- 50
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ξ' ΤΟΤΕ
Π <-- 60
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ο' ΤΟΤΕ
Π <-- 70
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Π' ΤΟΤΕ
Π <-- 80
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ρ' ΤΟΤΕ
Π <-- 100
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Σ' ΤΟΤΕ
Π <-- 200
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Τ' ΤΟΤΕ
Π <-- 300
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Υ' ΤΟΤΕ
Π <-- 400
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Φ' ΤΟΤΕ
Π <-- 500
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Χ' ΤΟΤΕ
Π <-- 600
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ψ' ΤΟΤΕ
Π <-- 700
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='Ω' ΤΟΤΕ
Π <-- 800
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]=' ' ΤΟΤΕ
Π <-- 0
ΑΛΛΙΩΣ
Π <-- -1
ΤΕΛΟΣ_ΑΝ
ΑΡΙΘ <-- Π
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΠΡΟΒΟΛΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,ΜΑΧ,Μ,Α,ΣΕΙΡΑ
ΧΑΡΑΚΤΗΡΕΣ:Χ,ΑΡΧ,ΕΠ
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΑΝ ΜΑΧ>=1 ΤΟΤΕ
ΓΡΑΨΕ '1.Προβολη ολων'
ΓΡΑΨΕ '2.Επιλεκτικη προβολη'
ΓΡΑΨΕ '3.Εξοδος'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Χ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='1' Η Χ='2' Η Χ='3'
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΑΝ Χ='1' ΤΟΤΕ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
Ι <-- 0
Μ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
Α <-- ΣΥΝΤΟΜΗ(Χ)
ΓΡΑΨΕ Ι,'.',Χ,'--->',Α
Μ <-- Μ+1
ΑΝ Μ=21 ΤΟΤΕ
ΓΡΑΨΕ '=========================='
ΓΡΑΨΕ '<Enter>. Συνεχεια προβολης'
ΓΡΑΨΕ '3. Τερματισμος προβολης'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Χ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='' Η Χ='3'
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Μ <-- 0
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η Χ='3'
ΑΛΛΙΩΣ_ΑΝ Χ='2' ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Προβολη λεξεων/φρασεων που αρχιζουν από (γραμμα):'
ΔΙΑΒΑΣΕ ΑΡΧ
ΑΡΧ <-- Μ_Κ(ΑΡΧ)
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΜΕΧΡΙΣ_ΟΤΟΥ ΜΗΚΟΣ_ΧΑΡ(ΑΡΧ)=1 ΚΑΙ ΑΡΙΘ(ΑΡΧ,1)>=0
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
Ι <-- 0
Μ <-- 0
ΣΕΙΡΑ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
ΑΝ ΑΡΧ=Χ[1] ΤΟΤΕ
ΣΕΙΡΑ <-- ΣΕΙΡΑ+1
Α <-- ΣΥΝΤΟΜΗ(Χ)
ΓΡΑΨΕ ΣΕΙΡΑ,'.',Χ,'--->',Α
Μ <-- Μ+1
ΤΕΛΟΣ_ΑΝ
ΑΝ Μ=21 ΤΟΤΕ
ΓΡΑΨΕ '=========================='
ΓΡΑΨΕ '<Enter>. Συνεχεια προβολης'
ΓΡΑΨΕ '3. Τερματισμος προβολης'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΠ
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ='' Η ΕΠ='3' Η Χ[1]>ΑΡΧ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
Μ <-- 0
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η ΕΠ='3' Η Χ[1]>ΑΡΧ
ΑΝ ΣΕΙΡΑ=0 ΤΟΤΕ
ΓΡΑΨΕ 'Καμια λεξη/φραση δεν αρχιζει απο:',ΑΡΧ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ '============================================'
ΓΡΑΨΕ 'Η εμφανιση ολοκληρωθηκε,<Enter> για συνεχεια'
ΔΙΑΒΑΣΕ Χ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δεν υπαρχουν καταχωρημενες λεξεις/φρασεις'
ΓΡΑΨΕ '<Enter> για συνεχεια'
ΔΙΑΒΑΣΕ Χ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΝ_ΑΡ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Μ,Ι,ΜΑΧ,Α,Φ,ΣΕΙΡΑ,Μ2
ΧΑΡΑΚΤΗΡΕΣ:Χ,ΛΕΙ
ΛΟΓΙΚΕΣ:ΥΠ
ΑΡΧΗ
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΚΑΤ)
ΑΝ ΜΑΧ>=1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ '1. Ευρεση ='
ΓΡΑΨΕ '2. Ευρεση >='
ΓΡΑΨΕ '3. Ευρεση <='
ΓΡΑΨΕ '4. Ευρεση >= και <='
ΓΡΑΨΕ '5. Εξοδος'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΛΕΙ
ΜΕΧΡΙΣ_ΟΤΟΥ ΛΕΙ='1' Η ΛΕΙ='2' Η ΛΕΙ='3' Η ΛΕΙ='4' Η ΛΕΙ='5'
ΑΝ ΛΕΙ<>'5' ΤΟΤΕ
ΓΡΑΨΕ_ 'Αριθμος:'
ΔΙΑΒΑΣΕ Μ
ΑΝ ΛΕΙ='4' ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Αριθμος 2 (>=',Μ,'):'
ΔΙΑΒΑΣΕ Μ2
ΜΕΧΡΙΣ_ΟΤΟΥ Μ2>=Μ
ΤΕΛΟΣ_ΑΝ
ΣΕΙΡΑ <-- 0
ΥΠ <-- ΨΕΥΔΗΣ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Οι παρακατω λεξεις/φρασεις ικανοποιουν τα κρητηρια'
Ι <-- 0
Φ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
Α <-- ΣΥΝΤΟΜΗ(Χ)
ΑΝ ΛΕΙ='1' ΤΟΤΕ
ΑΝ Α=Μ ΤΟΤΕ
ΥΠ <-- ΑΛΗΘΗΣ
ΣΕΙΡΑ <-- ΣΕΙΡΑ+1
Φ <-- Φ+1
ΓΡΑΨΕ ΣΕΙΡΑ,'.', Χ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ΛΕΙ='2' ΤΟΤΕ
ΑΝ Α>=Μ ΤΟΤΕ
ΥΠ <-- ΑΛΗΘΗΣ
Φ <-- Φ+1
ΣΕΙΡΑ <-- ΣΕΙΡΑ+1
ΓΡΑΨΕ ΣΕΙΡΑ,'.',Χ,'-->',Α
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ΛΕΙ='3' ΤΟΤΕ
ΑΝ Α<=Μ ΤΟΤΕ
ΥΠ <-- ΑΛΗΘΗΣ
Φ <-- Φ+1
ΣΕΙΡΑ <-- ΣΕΙΡΑ+1
ΓΡΑΨΕ ΣΕΙΡΑ,'.',Χ,'-->',Α
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ ΛΕΙ='4' ΤΟΤΕ
ΑΝ Α>=Μ ΚΑΙ Α<=Μ2 ΤΟΤΕ
ΥΠ <-- ΑΛΗΘΗΣ
Φ <-- Φ+1
ΣΕΙΡΑ <-- ΣΕΙΡΑ+1
ΓΡΑΨΕ ΣΕΙΡΑ,'.',Χ,'-->',Α
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΑΝ Φ=19 ΤΟΤΕ
Φ <-- 0
ΓΡΑΨΕ '=========================='
ΓΡΑΨΕ '<Enter>. Συνεχεια αναζητησης'
ΓΡΑΨΕ '3. Τερματισμος αναζητησης'
ΔΙΑΒΑΣΕ Χ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η Χ='3'
ΑΝ ΥΠ=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Καμια λεξη/φραση δεν ικανοποιει τα κρητηρια'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ '========================'
ΓΡΑΨΕ 'Η αναζητηση ολοκληρωθηκε'
ΓΡΑΨΕ '<Enter>. για επαναληψη'
ΓΡΑΨΕ '3. Επιστροφη στην κανονικη λειτουργεια'
ΔΙΑΒΑΣΕ Χ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='3' Η ΛΕΙ='5'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΓ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,ΜΑΧ,Θ
ΧΑΡΑΚΤΗΡΕΣ:Χ
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΑΝ ΜΑΧ>=1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'Δωσε αριθμο καταχωρησης (μεγιστο',ΜΑΧ,'):'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Θ
ΜΕΧΡΙΣ_ΟΤΟΥ Θ>=1 ΚΑΙ Θ<=ΜΑΧ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Θ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
ΓΡΑΨΕ 'Διαγραφη του: "',Χ,'" ?'
ΓΡΑΨΕ '=======>--'
ΓΡΑΨΕ '1.Οχι/Εξοδος'
ΓΡΑΨΕ '2.Επιλογη αλλης'
ΓΡΑΨΕ '6.Ναι'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Χ
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='1' Η Χ='2' Η Χ='6'
ΜΕΧΡΙΣ_ΟΤΟΥ Χ='1' Η Χ='6'
ΑΝ Χ='6' ΤΟΤΕ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΑΧ-Θ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Θ+Ι
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Θ+Ι-1
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,ΜΑΧ
ΑΠΟΚΟΨΕ_ΑΡΧΕΙΟ ΚΑΤ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΤΑΞΙΝ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΜΑΧ,Ι,Κ
ΧΑΡΑΚΤΗΡΕΣ:Χ1,Χ2,Π
ΛΟΓΙΚΕΣ:ΕΞΩ
ΑΡΧΗ
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΑΝ ΜΑΧ>=2 ΤΟΤΕ
ΠΗΓΑΙΝΕ_ΧΥ 1,5
ΓΡΑΨΕ 'Ολοκληρωθηκε:'
Ι <-- 1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΕΞΩ <-- ΑΛΗΘΗΣ
Κ <-- ΜΑΧ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Κ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ2
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Κ-1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ1
ΑΝ Χ2<Χ1 ΤΟΤΕ
ΕΞΩ <-- ΨΕΥΔΗΣ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Κ
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ1
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,Κ-1
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΚΑΤ,Χ2
ΤΕΛΟΣ_ΑΝ
Κ <-- Κ-1
ΜΕΧΡΙΣ_ΟΤΟΥ Κ=1
ΠΗΓΑΙΝΕ_ΧΥ 14,5
ΓΡΑΨΕ (Ι/ΜΑΧ)*100,'%'
Ι <-- Ι+1
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η ΕΞΩ=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΝ_ΛΕΞ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,Θ,ΜΑΧ
ΧΑΡΑΚΤΗΡΕΣ:ΑΡΧ,ΕΠ,Π
ΑΡΧΗ
ΜΑΧ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ (ΚΑΤ)
ΑΝ ΜΑΧ>=1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ_ 'Αναζητηση της λεξης/φρασης:'
ΔΙΑΒΑΣΕ Π
Π <-- Μ_Κ(Π)
Ι <-- 0
Θ <-- 0
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΚΑΤ,1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΚΑΤ,ΑΡΧ
ΑΝ ΑΡΧ=Π ΤΟΤΕ
Θ <-- Ι
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Ι=ΜΑΧ Η Θ<>0
ΓΡΑΨΕ '=======>--'
ΑΝ Θ<>0 ΤΟΤΕ
ΓΡΑΨΕ 'Η λεξη/φραση βρισκεται στην θεση:',Θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Δεν βρεθηκε'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ '=======>--'
ΓΡΑΨΕ '1.Εξοδος'
ΓΡΑΨΕ '<Enter>. Εκτελεση ξανα'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΠ
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ='1' Η ΕΠ=''
ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ='1'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΣΥΝΑΡΤΗΣΗ Μ_Κ(Χ):ΧΑΡΑΚΤΗΡΕΣ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ:Χ,ΕΠ
ΑΚΕΡΑΙΕΣ:ΜΑΧ,Κ
ΑΡΧΗ
ΜΑΧ <-- ΜΗΚΟΣ_ΧΑΡ(Χ)
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ ΜΑΧ
ΑΝ Χ[Κ]='α' ΤΟΤΕ
Χ[Κ] <-- 'Α'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='β' ΤΟΤΕ
Χ[Κ] <-- 'Β'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='γ' ΤΟΤΕ
Χ[Κ] <-- 'Γ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='δ' ΤΟΤΕ
Χ[Κ] <-- 'Δ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ε' ΤΟΤΕ
Χ[Κ] <-- 'Ε'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ζ' ΤΟΤΕ
Χ[Κ] <-- 'Ζ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='η' ΤΟΤΕ
Χ[Κ] <-- 'Η'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='θ' ΤΟΤΕ
Χ[Κ] <-- 'Θ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ι' ΤΟΤΕ
Χ[Κ] <-- 'Ι'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='κ' ΤΟΤΕ
Χ[Κ] <-- 'Κ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='λ' ΤΟΤΕ
Χ[Κ] <-- 'Λ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='μ' ΤΟΤΕ
Χ[Κ] <-- 'Μ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ν' ΤΟΤΕ
Χ[Κ] <-- 'Ν'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ξ' ΤΟΤΕ
Χ[Κ] <-- 'Ξ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ο' ΤΟΤΕ
Χ[Κ] <-- 'Ο'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='π' ΤΟΤΕ
Χ[Κ] <-- 'Π'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ρ' ΤΟΤΕ
Χ[Κ] <-- 'Ρ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='σ' Η Χ[Κ]='ς' ΤΟΤΕ
Χ[Κ] <-- 'Σ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='τ' ΤΟΤΕ
Χ[Κ] <-- 'Τ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='υ' ΤΟΤΕ
Χ[Κ] <-- 'Υ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='φ' ΤΟΤΕ
Χ[Κ] <-- 'Φ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='χ' ΤΟΤΕ
Χ[Κ] <-- 'Χ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ψ' ΤΟΤΕ
Χ[Κ] <-- 'Ψ'
ΑΛΛΙΩΣ_ΑΝ Χ[Κ]='ω' ΤΟΤΕ
Χ[Κ] <-- 'Ω'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Μ_Κ <-- Χ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
Κατεβαστε και το exe
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Συνημμένα
Panos_K
Νεοφερμένος
Ο Παναγιωτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 33 ετών, Φοιτητής και μας γράφει απο Πέλλα (Πέλλα). Έχει γράψει 4 μηνύματα.
10-09-08
21:54
Στο προγραμμα SUDOKU καντε αντικατασταση την διαδικασια "ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)"
με την παρακατω
Ειναι κορυφη
Μπορειτε να κατεβασετε και το exe
με την παρακατω
Ειναι κορυφη
Code:
ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΟΔΟΣ(ΣΟΥ,ΠΙΑΣΜΕΝΕΣ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Χ,Υ,ΑΡ,ΣΟΥ[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'
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Μπορειτε να κατεβασετε και το exe
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.
Συνημμένα
Panos_K
Νεοφερμένος
Ο Παναγιωτης αυτή τη στιγμή δεν είναι συνδεδεμένος. Είναι 33 ετών, Φοιτητής και μας γράφει απο Πέλλα (Πέλλα). Έχει γράψει 4 μηνύματα.
07-09-08
20:52
Να και ενα προγραμμα που λυνει Sudoku :xixi:
Ο ελεγχος των Περιοχων ειναι καπως μπακαλιστικος αλλα κανει την δουλεια του
Ο ελεγχος των Περιοχων ειναι καπως μπακαλιστικος αλλα κανει την δουλεια του
Code:
ΠΡΟΓΡΑΜΜΑ 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
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.