Άσκηση: συγγραφή διαδικασίας

Γράψτε διαδικασία η οποία διαβάζει μια ακολουθία χαρακτήρων
η οποία τερματίζεται όταν δοθεί το κενό διάστημα ή το συνολικό
πλήθος των χαρακτήρων αυτών φθάσει το 120. Τα δεδομένα
καταχωρούνται σε κατάλληλο μονοδιάστατο πίνακα που
αποτελεί και τη μια παράμετρο της διαδικασίας. Η δεύτερη
και τελευταία παράμετρος είναι το συνολικό πλήθος των
χαρακτήρων εισόδου.
Παρατήρηση : Το κενό διάστημα δε συμπεριλαμβάνεται στα
καταχωρημένα δεδομένα.

Λύση

       ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΒΧΑΡ(ΧΑΡ, ΠΛΗΘ)
       ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ: ΠΛΗΘ
             ΧΑΡΑΚΤΗΡΕΣ: ΧΑΡ[120], Χ
       ΑΡΧΗ
             ΠΛΗΘ <-- 0
             ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                     ΔΙΑΒΑΣΕ Χ
                     ΑΝ (Χ < > '  ') ΤΟΤΕ
                           ΠΛΗΘ <-- ΠΛΗΘ+1
                           ΧΑΡ[ΠΛΗΘ] <-- Χ
                     ΤΕΛΟΣ_ΑΝ
             ΜΕΧΡΙΣ_ΟΤΟΥ (Χ = '  ') Ή (ΠΛΗΘ = 120)
       ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ