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