241 / 306
Εκδόσεις ΜΠΑΧΑΡΑΚΗ – ΑΕΠΠ
240
i
i-1
αλλιώς
done
αληθής
Τέλος_αν
Τέλος_επανάληψης
Αν
πλ = 0
τότε
Εμφάνισε
‘‘Το μήκος του κειμένου είναι 500 χαρακτήρες”
Αλλιώς
Εμφάνισε
πλ
Τέλος_αν
Για
i
από
1
μέχρι
500-πλ
Αν
ΚΕΙΜ[i] <> ‘‘ ’’
τότε
done
ψευδής
j
1
Όσο
done =
ψευδης επανάλαβε
Αν
ΚΕΙΜ[i] = ΑΒ[1, j]
τότε
ΚΡΥΠ[i]
ΑΒ[2, j]
done
αληθής
Αλλιώς
j
j+1
Τέλος_αν
Τέλος_επανάληψης
αλλιώς
ΚΡΥΠ[i]
‘‘ ’’
Τέλος_αν
Τέλος_επανάληψης
πλ_λ
0
max_γρ
0
i
1
Όσο
i <= 500-πλ
επανάλαβε
πλ_γραμ
0
Όσο
ΚΕΙΜ[i] < > ‘‘ ’’
και
i <= 500-πλ
επανάλαβε
πλ_γραμ
πλ_γραμ+1
i
i+1
Τέλος_επανάληψης
πλ_λ
πλ_λ+1
Αν
πλ_γραμ > max_γρ
τότε
max_γρ
πλ_γραμ
Τέλος_αν
i
i+1
Τέλος_επανάληψης
Εμφάνισε
πλ_λ
Εμφάνισε
max_γρ
Τέλος
Θέμα_3