Θέλω να κοιτάξετε μια ενδεικτική λύση στο 3ο θεμα. (Ξεχάστε την προηγούμενη που έδωσα

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