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