Παραθέτω και ενδεικτική λύση στο 4ο θέμα (πολύ λάμπα, ρε παιδιά...

)
Δεν έχω γράψει σχόλια για τις μεταβλητές. Βελτιώσεις επιδέχεται σίγουρα. ( Μπορεί και διορθώσεις...)
ΠΡΟΓΡΑΜΜΑ θεμα_4_στεκι
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: μηκος, ι, ξ, πλ[50], κατ[50, 50], σ, σ1, σ2, μεγ_πλ
ΠΡΑΓΜΑΤΙΚΕΣ: ποσ_καμ[50], συν_ποσ, μεγ_ποσ_καμ
ΑΡΧΗ
σ <- 0
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώστε το μήκος της ', ι, ',ης στοάς'
ΔΙΑΒΑΣΕ μηκος
ΜΕΧΡΙΣ_ΟΤΟΥ μηκος >= 20 ΚΑΙ μηκος <= 500
πλ[ι] <- (μηκος DIV 10)
σ <- σ + πλ[ι]
ΓΡΑΨΕ 'Η ', ι, 'η στοά έχει ', πλ[ι], ' λαμπτήρες'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Σε όλες τις στοές υπάρχουν ', σ, ' λαμπτήρες'
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ πλ[ι]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώστε την κατάσταση του ', ξ, 'ου λαμπτήρα της ', ι, ' στοάς:'
ΔΙΑΒΑΣΕ κατ[ι, ξ]
ΜΕΧΡΙΣ_ΟΤΟΥ κατ[ι, ξ] = 1 Η κατ[ι, ξ] = 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
σ2 <- 0
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
σ1 <- 0
ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ πλ[ι]
ΑΝ κατ[ι, ξ] = 0 ΤΟΤΕ
σ1 <- σ1 + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ποσ_καμ[ι] <- σ1/πλ[ι]*100
σ2 <- σ2 + σ1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
μεγ_ποσ_καμ <- ποσ_καμ[1]
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 50
ΑΝ ποσ_καμ[ι] > μεγ_ποσ_καμ ΤΟΤΕ
μεγ_ποσ_καμ <- ποσ_καμ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ποσ_καμ[ι] = μεγ_ποσ_καμ ΤΟΤΕ
ΓΡΑΨΕ 'Στην ', ι, 'η στοά έχουμε μέγιστο ποσοστό καμένων λαμπτήρων'
ΓΡΑΨΕ μεγ_ποσ_καμ
ΤΕΛΟΣ_ΑΝ
ΑΝ ποσ_καμ[ι] = 100 ΤΟΤΕ
ΓΡΑΨΕ 'Η ', ι, 'η στοά δεν έχει καθόλου φωτισμό'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
συν_ποσ <- σ2/σ*100
ΓΡΑΨΕ 'Το συνολικό ποσοστό καμένων λαμπτήρων είναι:', συν_ποσ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
μεγ_πλ <- συν_καμ(κατ, ι, πλ[ι])
ΓΡΑΨΕ 'Οι περισσότεροι συνεχόμενοι καμένοι στην ', ι, 'η στοά είναι:', μεγ_πλ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ συν_καμ(κατ_1, ι1, πλθ): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: κατ_1[50, 50], ι1, πλθ, ξ, κ, μεγ
ΑΡΧΗ
μεγ <- 0
κ <- 0
ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ πλθ
ΑΝ κατ_1[ι1, ξ] = 0 ΤΟΤΕ
κ <- κ + 1
ΑΝ κ > μεγ ΤΟΤΕ
μεγ <- κ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
κ <- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
συν_καμ <- μεγ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ