Γεια σε όλους και Χριστός Ανέστη
Καλή δύναμη και επιτυχία στα παιδιά. Ως γνωστό, να μην αγχώνονται ότι ΟΛΑ τα θέματα Πανελλαδικών θα είναι επιπέδου του Διαγωνίσματος του Στεκιού. Αυτό είναι ό,τι πρέπει για εξάσκηση (και φυσικά αξίζουν πολλά συγχαρητήρια στους αξιόλογους συναδέλφους που εργάστηκαν να βγάλουν τόσο ωραία θέματα).
Ακολουθεί μια λύση για το θέμα Δ που νομίζω δουλεύει. Σίγουρα θα έχει και άλλες, πιθανώς καλύτερες. Μπορείτε να ελέγξετε στη Γλώσσα βάζοντας μικρότερες τιμές για τον πίνακα π.χ. 5Χ5 πίνακα (προσοχή να αλλάξει ανάλογα ο έλεγχος εκεί που έχει το 16, "ΑΝ στ + i = 16 ΤΟΤΕ"...).
ΥΓ: Εννοείται η λύση μπορεί να 'χει και λάθη (αν και έγινε έλεγχος).
Να 'στε καλά,
Πάρης
ΠΡΟΓΡΑΜΜΑ ΣΤΑΥΡΟΛΕΞΟ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: γρ, στ, γρ_μεγ, στ_μεγ, i, j, μήκος, μήκος_μεγ, πλ_συμπλ, κενά
ΧΑΡΑΚΤΗΡΕΣ: λέξη[15], Σ[15, 15]
ΛΟΓΙΚΕΣ: τέλος, τέλος_λέξης, αναντιστοιχία
ΑΡΧΗ
κενά <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 15
ΑΝ Σ[i, j] = " " ΤΟΤΕ
κενά <- κενά + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
τέλος <- ΨΕΥΔΗΣ
μήκος_μεγ <- 0
ΟΣΟ (ΟΧΙ τέλος) ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ γρ, στ
τέλος_λέξης <- ΨΕΥΔΗΣ
αναντιστοιχία <- ΨΕΥΔΗΣ
i <- 0
πλ_συμπλ <- 0 ! αριθμός σωστά συμπληρωμένων (ήδη) γραμμάτων
ΟΣΟ (ΟΧΙ αναντιστοιχία) ΚΑΙ (ΟΧΙ τέλος_λέξης) ΕΠΑΝΑΛΑΒΕ
ΑΝ στ + i = 16 ΤΟΤΕ
τέλος_λέξης <- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ_ΑΝ Σ[γρ, στ + i] = "#" ΤΟΤΕ
τέλος_λέξης <- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΔΙΑΒΑΣΕ λέξη[i + 1] ! όχι τέλος λέξης - διάβασε επόμενο γράμμα
ΑΝ Σ[γρ, στ + i] <> " " ΤΟΤΕ
ΑΝ λέξη[i + 1] <> Σ[γρ, στ + i] ΤΟΤΕ
αναντιστοιχία <- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ !υπάρχει σωστό συμπληρωμένο
πλ_συμπλ <- πλ_συμπλ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
i <- i + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ τέλος_λέξης ΤΟΤΕ
μήκος <- i !βγαίνοντας από ΟΣΟ το i είναι = μήκος λέξης
ΓΙΑ j ΑΠΟ 0 ΜΕΧΡΙ μήκος - 1
Σ[γρ, στ + j] <- λέξη[j + 1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
κενά <- κενά - (μήκος - πλ_συμπλ) ! μείωσε σωστά τα κενά σταυρόλεξου
ΓΡΑΨΕ 'Κενά που απομένουν: ', κενά
ΑΝ κενά = 0 ΤΟΤΕ
τέλος <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ μήκος > μήκος_μεγ ΤΟΤΕ
μήκος_μεγ <- μήκος
γρ_μεγ <- γρ
στ_μεγ <- στ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ !αναντιστοιχία
ΓΡΑΨΕ 'Αναντιστοιχία λέξης!'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μήκος μεγαλύτερης λέξης οριζοντίως ', μήκος_μεγ, ' με πρώτο γράμμα στη γραμμή: ', γρ_μεγ, ' , στήλη: ', στ_μεγ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ