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

Γράψτε διαδικασία που δέχεται ως παραμέτρους:
* έναν ακέραιο πίνακα Α[76, 123],
* μια ακέραια τιμή Χ
και ελέγχει αν το Χ περιέχεται μέσα στον πίνακα Α ή όχι.
Η διαδικασία εντοπίζει όλες τις θέσεις του πίνακα που
περιέχουν το Χ και τα αποτελέσματα καταχωρούνται
στο λογικό πίνακα Β[76, 123] που αποτελεί και την
τελευταία παράμετρο της διαδικασίας.

Λύση

       ΔΙΑΔΙΚΑΣΙΑ  ΑΝΑΖ(Α, Χ, Β)
       ΜΕΤΑΒΛΗΤΕΣ
              ΑΚΕΡΑΙΕΣ: Α[76, 123], Κ, Λ, Χ
              ΛΟΓΙΚΕΣ: Β[76, 123]
       ΑΡΧΗ
              ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 76
                   ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 123
                           Β[Κ, Λ] <-- ΨΕΥΔΗΣ
                   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
              ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
              ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 76

                   ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 123

                           ΑΝ Α[Κ, Λ] = Χ ΤΟΤΕ

                                   Β[Κ, Λ] <-- ΑΛΗΘΗΣ

                           ΤΕΛΟΣ_ΑΝ

                   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

              ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

       ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ