ΠΡΟΓΡΑΜΜΑ ΤΗΛΕΦΩΝΟ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, Κ, ΕΠ, Ν
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3] 
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ Ν
  ΜΕΧΡΙΣ_ΟΤΟΥ Ν >= 1 ΚΑΙ Ν <= 500
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 3
      ΔΙΑΒΑΣΕ ΤΗΛ[Ι, Κ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΚΑΛΕΣΕ ΜΕΝΟΥ(ΕΠ) 
    ΑΝ ΕΠ = 1 ΤΟΤΕ
      ΑΝ Ν < 500 ΤΟΤΕ
!ΕΙΣΑΓΩΓΗ ΝΕΟΥ ΣΥΝΔΡΟΜΗΤΗ
        ΚΑΛΕΣΕ ΕΙΣΑΓΩΓΗ(Ν, ΤΗΛ) 
      ΑΛΛΙΩΣ
        ΓΡΑΨΕ 'ΚΑΤΑΛΟΓΟΣ ΓΕΜΑΤΟΣ'
      ΤΕΛΟΣ_ΑΝ
    ΑΛΛΙΩΣ_ΑΝ ΕΠ = 2 ΤΟΤΕ
!ΔΙΑΓΡΑΦΗ ΣΥΝΔΡΟΜΗΤΗ
      ΚΑΛΕΣΕ ΔΙΑΓΡΑΦΗ (Ν, ΤΗΛ) 
    ΑΛΛΙΩΣ_ΑΝ ΕΠ = 3 ΤΟΤΕ
!ΔΙΟΡΘΩΣΗ ΔΕΔΟΜΕΝΩΝ ΣΥΝΔΡΟΜΗΤΗ
      ΚΑΛΕΣΕ ΔΙΟΡΘΩΣΗ(Ν, ΤΗΛ) 
    ΑΛΛΙΩΣ_ΑΝ ΕΠ = 4 ΤΟΤΕ
!ΑΝΑΖΗΤΗΣΗ ΜΕ ΟΝΟΜΑ Η ΤΗΛΕΦΩΝΟ)
      ΚΑΛΕΣΕ ΕΝΤΟΠΙΣΜΟΣ(Ν, ΤΗΛ) 
    ΑΛΛΙΩΣ_ΑΝ ΕΠ = 5 ΤΟΤΕ
!ΕΜΦΑΝΙΣΗ ΤΗΛΕΦΩΝΙΚΟΥ ΚΑΤΑΛΟΓΟΥ
      ΚΑΛΕΣΕ ΕΜΦΑΝΙΣΗ(Ν, ΤΗΛ) 
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ = 6
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΜΕΝΟΥ(ΕΠ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΕΠ
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ '1. ΕΙΣΑΓΩΓΗ ΝΕΟΥ ΣΥΝΔΡΟΜΗΤΗ'
    ΓΡΑΨΕ '2. ΔΙΑΓΡΑΦΗ ΣΥΝΔΡΟΜΗΤΗ'
    ΓΡΑΨΕ '3. ΔΙΟΡΘΩΣΗ ΔΕΔΟΜΕΝΩΝ ΣΥΝΔΡΟΜΗΤΗ'
    ΓΡΑΨΕ '4. ΑΝΑΖΗΤΗΣΗ ΣΥΝΔΡΟΜΗΤΗ (ΜΕ ΟΝΟΜΑ Η ΤΗΛΕΦΩΝΟ)'
    ΓΡΑΨΕ '5. ΕΜΦΑΝΙΣΗ ΤΗΛΕΦΩΝΙΚΟΥ ΚΑΤΑΛΟΓΟΥ'
    ΓΡΑΨΕ '6. ΕΞΟΔΟΣ'
    ΓΡΑΨΕ 'ΔΩΣΕ ΕΠΙΛΟΓΗ:'
    ΔΙΑΒΑΣΕ ΕΠ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠ >= 1 ΚΑΙ ΕΠ <= 6
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΙΣΑΓΩΓΗ(Ν, ΤΗΛ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3] 
ΑΡΧΗ
  Ν <- Ν + 1
  ΔΙΑΒΑΣΕ ΤΗΛ[Ν, 1], ΤΗΛ[Ν, 2], ΤΗΛ[Ν, 3] 
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΓΡΑΦΗ(Ν, ΤΗΛ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, Ι, Κ, ΘΕΣ, ΣΤ
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3], ΟΝΟΜΑ_ΑΝΑΖ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ_ΑΝΑΖ
  ΣΤ <- 1
  ΘΕΣ <- ΑΝΑΖΗΤΗΣΗ(Ν, ΤΗΛ, ΣΤ, ΟΝΟΜΑ_ΑΝΑΖ) 
  ΑΝ ΘΕΣ <> 0 ΤΟΤΕ
    ΓΙΑ Ι ΑΠΟ ΘΕΣ ΜΕΧΡΙ Ν - 1
      ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 3
        ΤΗΛ[Ι, Κ] <- ΤΗΛ[Ι + 1, Κ] 
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    Ν <- Ν - 1
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΔΕΝ ΥΠΑΡΧΕΙ ΑΥΤΟ ΤΟ ΟΝΟΜΑ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΔΙΟΡΘΩΣΗ(Ν, ΤΗΛ) 
ΣΤΑΘΕΡΕΣ
  ΣΤ1 = 1
  ΣΤ2 = 2
  ΣΤ3 = 3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, ΘΕΣ, ΣΤ
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3], ΟΝΟΜΑ_ΑΝΑΖ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ ΟΝΟΜΑ_ΑΝΑΖ
  ΣΤ <- 1
  ΘΕΣ <- ΑΝΑΖΗΤΗΣΗ(Ν, ΤΗΛ, ΣΤ, ΟΝΟΜΑ_ΑΝΑΖ) 
  ΑΝ ΘΕΣ <> 0 ΤΟΤΕ
    ΔΙΑΒΑΣΕ ΤΗΛ[ΘΕΣ, ΣΤ1], ΤΗΛ[ΘΕΣ, ΣΤ2], ΤΗΛ[ΘΕΣ, ΣΤ3] 
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΔΕΝ ΥΠΑΡΧΕΙ ΑΥΤΟ ΤΟ ΟΝΟΜΑ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΝΤΟΠΙΣΜΟΣ(Ν, ΤΗΛ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, ΘΕΣ, ΕΠΙΛΟΓΗ, ΣΤ
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3], ΣΤΟΙΧΕΙΟ
ΑΡΧΗ
  ΓΡΑΨΕ 'ΑΝΑΖΗΤΗΣΗ ΜΕ ΟΝΟΜΑ(1) Η ΤΗΛΕΦΩΝΟ(2)'
  ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ
  ΔΙΑΒΑΣΕ ΣΤΟΙΧΕΙΟ
  ΑΝ ΕΠΙΛΟΓΗ = 1 ΤΟΤΕ
    ΣΤ <- 1
    ΘΕΣ <- ΑΝΑΖΗΤΗΣΗ(Ν, ΤΗΛ, ΣΤ, ΣΤΟΙΧΕΙΟ) 
  ΑΛΛΙΩΣ
    ΣΤ <- 3
    ΘΕΣ <- ΑΝΑΖΗΤΗΣΗ(Ν, ΤΗΛ, ΣΤ, ΣΤΟΙΧΕΙΟ) 
  ΤΕΛΟΣ_ΑΝ
  ΑΝ ΘΕΣ <> 0 ΤΟΤΕ
    ΓΡΑΨΕ ΤΗΛ[ΘΕΣ, 1], ΤΗΛ[ΘΕΣ, 2], ΤΗΛ[ΘΕΣ, 3] 
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'ΤΟ ΣΤΟΙΧΕΙΟ ΔΕΝ ΥΠΑΡΧΕΙ'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΜΦΑΝΙΣΗ(Ν, ΤΗΛ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, Ν
  ΧΑΡΑΚΤΗΡΕΣ: ΤΗΛ[500, 3] 
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ ΤΗΛ[Ι, 1], ',', ΤΗΛ[Ι, 2], ',', ΤΗΛ[Ι, 3] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ ΑΝΑΖΗΤΗΣΗ(Ν, ΠΙΝ, ΣΤ, ΣΤΟΙΧΕΙΟ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΣΤ, Ι, ΘΕΣ, Ν
  ΧΑΡΑΚΤΗΡΕΣ: ΠΙΝ[500, 3], ΣΤΟΙΧΕΙΟ
  ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕ
ΑΡΧΗ
  Ι <- 1
  ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ
  ΘΕΣ <- 0
  ΟΣΟ Ι <= Ν ΚΑΙ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΠΙΝ[Ι, ΣΤ] = ΣΤΟΙΧΕΙΟ ΤΟΤΕ
      ΘΕΣ <- Ι
      ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ
    ΑΛΛΙΩΣ
      Ι <- Ι + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝΑΖΗΤΗΣΗ <- ΘΕΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ 
!ArxeioEisodou
30
αααααα
αα
123445
ββββββ
ββ
123545
γγγγγγ
γγ
123497
δδδδδδ
δδ
332422
εεεεεε
εε
675856
ζζζζζζ
ζζ
757875
ηηηηηη
ηη
885542
θθθθθθ
θθ
234435
ιιιιιι
ιι
535434
κκκκκκ
κκ
113344
λλλλλλ
λλ
466545
μμμμμμ
μμ
123456
νννννν
νν
695850
ξξξξξξ
ξξ
443456
οοοοοο
οο
645433
ππππππ
ππ
654554
ρρρρρρ
ρρ
442344
σσσσσσ
σσ
212344
ττττττ
ττ
455676
υυυυυυ
υυ
998786
φφφφφφ
φφ
445466
χχχχχχ
χχ
223456
ψψψψψψ
ψψ
646433
ωωωωωω
ωω
423334
ααα
ααα
345464
βββ
ββ
656551
γγγ
γγ
679658
δδδ
δδ
896789
εεε
εε
423233
ζζζ
ζζ
245677