! ==================================================================================
! Το πρόγραμμα που ακολουθεί επιδεικνύει τις δυνατότητες διαχείρισης αρχείων της
! ΓλωσσοΜάθειας. Είναι ένας στοιχειώδης τηλεφωνικός κατάλογος, που κάθε εγγραφή του
! αποτελείται από ένα όνομα και έναν αριθμό. Υποστηρίζει αποθήκευση, αναζήτηση
! (με κριτήριο το όνομα ή τον αριθμό), τροποποίηση και διαγραφή εγγραφών.
! Ο κώδικας μπορεί να εμπλουτιστεί ώστε να υποστηρίζονται και άλλα χαρακτηριστικά,
! όπως ταξινομημένη εμφάνιση, πρόσθετα στοιχεία αποθήκευσης, κλπ.
! ==================================================================================
ΠΡΟΓΡΑΜΜΑ Τηλεφωνικός_κατάλογος
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: επιλ
ΑΡΧΕΙΑ ΧΑΡΑΚΤΗΡΩΝ: ΟΝΟΜ, ΑΡ
ΑΡΧΗ
ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ, 'C:\NAMES.GM'
ΣΥΣΧΕΤΙΣΕ_ΑΡΧΕΙΟ ΑΡ, 'C:\NUMBERS.GM'
ΑΝ ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('C:\NAMES.GM')=ΨΕΥΔΗΣ ΤΟΤΕ
ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΤΕΛΟΣ_ΑΝ
ΑΝ ΥΠΑΡΧΕΙ_ΑΡΧΕΙΟ('C:\NUMBERS.GM')=ΨΕΥΔΗΣ ΤΟΤΕ
ΔΗΜΙΟΥΡΓΗΣΕ_ΑΡΧΕΙΟ ΑΡ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΤΕΛΟΣ_ΑΝ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ Εμφάνισε_κεντρικές_επιλογές
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Επιλογή (1-5); '
ΔΙΑΒΑΣΕ επιλ
ΜΕΧΡΙΣ_ΟΤΟΥ (επιλ>0) ΚΑΙ (επιλ<6)
ΕΠΙΛΕΞΕ επιλ
ΠΕΡΙΠΤΩΣΗ 1
ΚΑΛΕΣΕ Εμφάνισε_στοιχεία
ΠΕΡΙΠΤΩΣΗ 2
ΚΑΛΕΣΕ Αποθήκευσε_στοιχεία
ΠΕΡΙΠΤΩΣΗ 3
ΚΑΛΕΣΕ Άλλαξε_στοιχεία
ΠΕΡΙΠΤΩΣΗ 4
ΚΑΛΕΣΕ Διάγραψε_στοιχεία
ΠΕΡΙΠΤΩΣΗ 5
ΤΕΡΜΑΤΙΣΜΟΣ
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Τηλεφωνικός_κατάλογος
!-----------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Εμφάνισε_κεντρικές_επιλογές
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'ΚΕΝΤΡΙΚΕΣ ΕΠΙΛΟΓΕΣ'
ΓΡΑΨΕ
ΓΡΑΨΕ 'Θέλω να...'
ΓΡΑΨΕ
ΓΡΑΨΕ '1. Δω τα στοιχεία που έχω αποθηκεύσει.'
ΓΡΑΨΕ '2. Αποθηκεύσω κι άλλα στοιχεία.'
ΓΡΑΨΕ '3. Αλλάξω κάποια αποθηκευμένα στοιχεία.'
ΓΡΑΨΕ '4. Διαγράψω κάποια αποθηκευμένα στοιχεία.'
ΓΡΑΨΕ '5. Τερματίσω το πρόγραμμα.'
ΓΡΑΨΕ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!-----------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Εμφάνισε_στοιχεία
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ι, κ
ΧΑΡΑΚΤΗΡΕΣ: ο, α, τ, ζητ_ο, ζητ_α
ΛΟΓΙΚΕΣ: βρέθηκε
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'ΕΠΙΛΟΓΕΣ ΕΜΦΑΝΙΣΗΣ ΣΤΟΙΧΕΙΩΝ'
ΓΡΑΨΕ
ΓΡΑΨΕ 'Θέλω να...'
ΓΡΑΨΕ
ΓΡΑΨΕ '1. Δω όλα τα στοιχεία που έχω αποθηκεύσει.'
ΓΡΑΨΕ '2. Ψάξω κάποιο όνομα.'
ΓΡΑΨΕ '3. Ψάξω κάποιο τηλέφωνο.'
ΓΡΑΨΕ '4. Επιστρέψω στις κεντρικές επιλογές.'
ΓΡΑΨΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Επιλογή (1-4); '
ΔΙΑΒΑΣΕ επιλ
ΜΕΧΡΙΣ_ΟΤΟΥ (επιλ>0) ΚΑΙ (επιλ<5)
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΕΠΙΛΕΞΕ επιλ
ΠΕΡΙΠΤΩΣΗ 1
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ι <-- 1
κ <-- 0
ΓΡΑΨΕ 'Ακολουθεί η προβολή όλων των αποθηκευμένων στοιχείων...'
ΓΡΑΨΕ
ΑΝ ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)=0 ΤΟΤΕ
ΓΡΑΨΕ '[ΔΕΝ ΥΠΑΡΧΟΥΝ ΕΓΓΡΑΦΕΣ]'
ΤΕΛΟΣ_ΑΝ
ΟΣΟ ΤΕΛΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΑΡ, α
ΓΡΑΨΕ ι, 'η εγγραφή > ', ο, ' : ', α
ι <-- ι+1
κ <-- κ+1
ΑΝ κ=10 ΤΟΤΕ
ΓΡΑΨΕ
ΓΡΑΨΕ '- - - - - - ΠΑΤΗΣΤΕ <ENTER> ΓΙΑ ΤΑ ΥΠΟΛΟΙΠΑ...'
ΔΙΑΒΑΣΕ τ
κ <-- 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Η προβολή στοιχείων ολοκληρώθηκε. Πατήστε <ENTER> για να συνεχίσετε.'
ΔΙΑΒΑΣΕ τ
ΠΕΡΙΠΤΩΣΗ 2
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ_ 'Ποιο όνομα αναζητάτε; '
ΔΙΑΒΑΣΕ ζητ_ο
ΓΡΑΨΕ
ΓΡΑΨΕ 'Αποτελέσματα αναζήτησης...'
ΓΡΑΨΕ
βρέθηκε <-- ΨΕΥΔΗΣ
ι <-- 1
ΟΣΟ (ΤΕΛΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΑΡ, α
ΑΝ ο=ζητ_ο ΤΟΤΕ
βρέθηκε <-- ΑΛΗΘΗΣ
ΓΡΑΨΕ ι, 'η εγγραφή > ', ο, ' : ', α
ΤΕΛΟΣ_ΑΝ
ι <-- ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρέθηκε=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ '[ΔΕ ΒΡΕΘΗΚΕ ΚΑΝΕΝΑ ΣΤΟΙΧΕΙΟ]'
ΤΕΛΟΣ_ΑΝ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Η αναζήτηση στοιχείων ολοκληρώθηκε. Πατήστε <ENTER> για να συνεχίσετε.'
ΔΙΑΒΑΣΕ τ
ΠΕΡΙΠΤΩΣΗ 3
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ_ 'Ποιον αριθμό αναζητάτε; '
ΔΙΑΒΑΣΕ ζητ_α
ΓΡΑΨΕ
ΓΡΑΨΕ 'Αποτελέσματα αναζήτησης...'
ΓΡΑΨΕ
βρέθηκε <-- ΨΕΥΔΗΣ
ι <-- 1
ΟΣΟ (ΤΕΛΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΑΡ, α
ΑΝ α=ζητ_α ΤΟΤΕ
βρέθηκε <-- ΑΛΗΘΗΣ
ΓΡΑΨΕ ι, 'η εγγραφή > ', ο, ' : ', α
ΤΕΛΟΣ_ΑΝ
ι <-- ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρέθηκε=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ '[ΔΕ ΒΡΕΘΗΚΕ ΚΑΝΕΝΑ ΣΤΟΙΧΕΙΟ]'
ΤΕΛΟΣ_ΑΝ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Η αναζήτηση στοιχείων ολοκληρώθηκε. Πατήστε <ENTER> για να συνεχίσετε.'
ΔΙΑΒΑΣΕ τ
ΠΕΡΙΠΤΩΣΗ 4
ΕΞΟΔΟΣ
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!-----------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Αποθήκευσε_στοιχεία
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ο, α, τ
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΓΡΑΨΕ 'ΑΠΟΘΗΚΕΥΣΗ ΣΤΟΙΧΕΙΩΝ...'
ΓΡΑΨΕ
ΓΡΑΨΕ_ 'Ονοματεπώνυμο; '
ΔΙΑΒΑΣΕ ο
ΓΡΑΨΕ_ 'Αριθμός τηλεφώνου; '
ΔΙΑΒΑΣΕ α
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)+1
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΑΡ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΑΡ)+1
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΑΡ, α
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Τα στοιχεία αποθηκεύτηκαν. Πατήστε <ENTER> για να συνεχίσετε...'
ΔΙΑΒΑΣΕ τ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!-----------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Άλλαξε_στοιχεία
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: εγγ, μεγ
ΧΑΡΑΚΤΗΡΕΣ: ο, α, τ
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
μεγ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΓΡΑΨΕ 'ΑΛΛΑΓΗ ΣΤΟΙΧΕΙΩΝ...'
ΑΝ μεγ>0 ΤΟΤΕ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Για να αλλάξετε κάποια στοιχεία θα πρέπει να γνωρίζετε'
ΓΡΑΨΕ 'τον αριθμό της εγγραφής στην οποία είναι αποθηκευμένα.'
ΓΡΑΨΕ '(Για το σκοπό αυτό μπορείτε να χρησιμοποιήσετε την αναζήτηση)'
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΠΡΟΣΟΧΗ: Τα προηγούμενα περιεχόμενα αυτής της εγγραφής θα χαθούν!'
ΓΡΑΨΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Αριθμός εγγραφής (1-', μεγ, '); '
ΔΙΑΒΑΣΕ εγγ
ΜΕΧΡΙΣ_ΟΤΟΥ (εγγ>0) ΚΑΙ (εγγ<=μεγ)
ΓΡΑΨΕ
ΓΡΑΨΕ_ 'Νέο όνομα; '
ΔΙΑΒΑΣΕ ο
ΓΡΑΨΕ_ 'Νέος αριθμός; '
ΔΙΑΒΑΣΕ α
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ,εγγ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΑΡ,εγγ
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΑΡ, α
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Τα στοιχεία άλλαξαν. Πατήστε <ENTER> για να συνεχίσετε...'
ΔΙΑΒΑΣΕ τ
ΑΛΛΙΩΣ
ΓΡΑΨΕ
ΓΡΑΨΕ '[ΔΕΝ ΥΠΑΡΧΟΥΝ ΕΓΓΡΑΦΕΣ]'
ΓΡΑΨΕ
ΓΡΑΨΕ 'Πατήστε <ENTER> για να συνεχίσετε...'
ΔΙΑΒΑΣΕ τ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!-----------------------------------------------------------------------------------
ΔΙΑΔΙΚΑΣΙΑ Διάγραψε_στοιχεία
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: εγγ, μεγ
ΧΑΡΑΚΤΗΡΕΣ: ο, α, τ
ΑΡΧΗ
ΚΑΘΑΡΙΣΕ_ΟΘΟΝΗ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
μεγ <-- ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΓΡΑΨΕ 'ΔΙΑΓΡΑΦΗ ΣΤΟΙΧΕΙΩΝ...'
ΑΝ μεγ>0 ΤΟΤΕ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Για να διαγράψετε κάποια στοιχεία θα πρέπει να γνωρίζετε'
ΓΡΑΨΕ 'τον αριθμό της εγγραφής στην οποία είναι αποθηκευμένα.'
ΓΡΑΨΕ '(Για το σκοπό αυτό μπορείτε να χρησιμοποιήσετε την αναζήτηση)'
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΠΡΟΣΟΧΗ: Τα διαγραμμένα στοιχεία δεν είναι δυνατό να ανακτηθούν!'
ΓΡΑΨΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ_ 'Αριθμός εγγραφής (1-', μεγ, '); '
ΔΙΑΒΑΣΕ εγγ
ΜΕΧΡΙΣ_ΟΤΟΥ (εγγ>0) ΚΑΙ (εγγ<=μεγ)
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΝΟΙΞΕ_ΑΡΧΕΙΟ ΑΡ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΑΡ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΔΙΑΒΑΣΕ_ΑΡΧΕΙΟ ΑΡ, α
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ, εγγ
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΑΡ, εγγ
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ο
ΓΡΑΨΕ_ΑΡΧΕΙΟ ΑΡ, α
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΟΝΟΜ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΟΝΟΜ)
ΔΙΑΤΡΕΞΕ_ΑΡΧΕΙΟ ΑΡ, ΜΕΓΕΘΟΣ_ΑΡΧΕΙΟΥ(ΑΡ)
ΑΠΟΚΟΨΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΑΠΟΚΟΨΕ_ΑΡΧΕΙΟ ΑΡ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΟΝΟΜ
ΚΛΕΙΣΕ_ΑΡΧΕΙΟ ΑΡ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Τα στοιχεία διαγράφτηκαν. Πατήστε <ENTER> για να συνεχίσετε...'
ΔΙΑΒΑΣΕ τ
ΑΛΛΙΩΣ
ΓΡΑΨΕ
ΓΡΑΨΕ '[ΔΕΝ ΥΠΑΡΧΟΥΝ ΕΓΓΡΑΦΕΣ]'
ΓΡΑΨΕ
ΓΡΑΨΕ 'Πατήστε <ENTER> για να συνεχίσετε...'
ΔΙΑΒΑΣΕ τ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!-----------------------------------------------------------------------------------
Σύνδεση 
Εγγραφή
Συχνές Ερωτήσεις
Αναζήτηση
