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

Γράψτε διαδικασία που δέχεται ως παράμετρο:
* έναν πραγματικό πίνακα Β[12, 8],
* μια λογική τιμή Μ
και διαχωρίζει :
* οριζόντια τον πίνακα Β στους πραγματικούς πίνακες
   Γ[5, 8] και  Δ[7, 8], αν Μ = ΑΛΗΘΗΣ
* κατακόρυφα τον πίνακα Β στους πραγματικούς πίνακες
   Ζ[12, 5] και Η[12, 3], αν Μ = ΨΕΥΔΗΣ

Λύση

      ΔΙΑΔΙΚΑΣΙΑ ΔΙΑΧ(Β, Μ, Γ, Δ, Ζ, Η)
      ΜΕΤΑΒΛΗΤΕΣ
           ΑΚΕΡΑΙΕΣ: κ, λ
           ΠΡΑΓΜΑΤΙΚΕΣ: Β[12, 8], Γ[5, 8],  Δ[7, 8],
                                          Ζ[12, 5], Η[12, 3]
           ΛΟΓΙΚΕΣ: Μ
      ΑΡΧΗ
           ΑΝ Μ = ΑΛΗΘΗΣ ΤΟΤΕ
                 ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 5
                       ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 8
                             Γ[κ, λ] <-- Β[κ, λ]
                       ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                 ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 7
                       ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 8
                             Δ[κ, λ] <-- Β[κ+5, λ]
                       ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
           ΑΛΛΙΩΣ
                  ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 12
                       ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 5
                             Ζ[κ, λ] <-- Β[κ, λ]
                       ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                 ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 12
                       ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 3
                             Η[κ, λ] <-- Β[κ, λ+5]
                       ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
           ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ