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

Γράψτε διαδικασία η οποία δέχεται ως παραμέτρους
* δύο ακέραιους πίνακες Α[30], Β[30]
* έναν πραγματικό πίνακα Χ[30, 2]
και επιλύει τις εξισώσεις:
      Α[Κ]*Χ = Β[Κ], για Κ = 1, 2, 3, ...., 30
Αν μια τέτοια εξίσωση έχει μοναδική λύση,
καταχωρείται στη θέση Χ[Κ, 1] και στη θέση Χ[Κ, 2]
εκχωρείται η τιμή 0.
Αν υπάρχουν άπειρες λύσεις, η θέση Χ[Κ, 1] μένει
κενή και στη θέση Χ[Κ, 2] εκχωρείται η τιμή 1.
Αν η εξίσωση είναι αδύνατη, η θέση Χ[Κ, 1] μένει

κενή και στη θέση Χ[Κ, 2] εκχωρείται η τιμή 2.

Λύση

      ΔΙΑΔΙΚΑΣΙΑ ΕΞΙΣΩΣΕΙΣ(Α, Β, Χ)
      ΜΕΤΑΒΛΗΤΕΣ
            ΑΚΕΡΑΙΕΣ: Α[30], Β[30], Κ
            ΠΡΑΓΜΑΤΙΚΕΣ: Χ[30, 2]
      ΑΡΧΗ
            ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 30
                 ΑΝ Α[Κ] < > 0 ΤΟΤΕ
                       Χ[Κ, 1] <-- Β[Κ]/Α[Κ]
                       Χ[Κ, 2] <-- 0
                 ΑΛΛΙΩΣ
                        ΑΝ Β[Κ] = 0 ΤΟΤΕ
                              Χ[Κ, 2] <-- 1
                        ΑΛΛΙΩΣ
                              Χ[Κ, 2] <-- 2
                        ΤΕΛΟΣ_ΑΝ
                 ΤΕΛΟΣ_ΑΝ
            ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ