Άσκηση : συγγραφή συνάρτησης

Γράψτε συνάρτηση που δέχεται ως παραμέτρους
δύο αλφαριθμητικούς πίνακες Α[12, 34], Β[12, 34]
και ελέγχει αν οι δύο πίνακες έχουν όλα τα στοιχεία
τους, ένα προς ένα ίσα.

Λύση

       Α' τρόπος


      ΣΥΝΑΡΤΗΣΗ ΙΣΟΙ(Α, Β) : ΛΟΓΙΚΗ
      ΜΕΤΑΒΛΗΤΕΣ
             ΧΑΡΑΚΤΗΡΕΣ: Α[12, 34], Β[12, 34]
             ΑΚΕΡΑΙΕΣ: κ, λ
             ΛΟΓΙΚΕΣ: ΑΠ
      ΑΡΧΗ
             ΑΠ <-- ΑΛΗΘΗΣ
             κ <-- 1
             ΟΣΟ (κ <= 12) ΚΑΙ (ΑΠ = ΑΛΗΘΗΣ) ΕΠΑΝΑΛΑΒΕ
                     λ <-- 1
                     ΟΣΟ (λ <= 34) ΚΑΙ (ΑΠ = ΑΛΗΘΗΣ) ΕΠΑΝΑΛΑΒΕ
                           ΑΝ Α[κ, λ] < >  Β[κ, λ] ΤΟΤΕ
                                 ΑΠ <-- ΨΕΥΔΗΣ
                           ΑΛΛΙΩΣ
                                 λ <-- λ+1
                           ΤΕΛΟΣ_ΑΝ
                     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                     ΑΝ ΑΠ = ΑΛΗΘΗΣ ΤΟΤΕ
                           κ <-- κ+1
                     ΤΕΛΟΣ_ΑΝ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΙΣΟΙ <-- ΑΠ
      ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ


      Β΄ Τρόπος


      ΣΥΝΑΡΤΗΣΗ ΙΣΟΙ(Α, Β) : ΛΟΓΙΚΗ

      ΜΕΤΑΒΛΗΤΕΣ

             ΧΑΡΑΚΤΗΡΕΣ: Α[12, 34], Β[12, 34]

             ΑΚΕΡΑΙΕΣ: κ, λ, φ          

      ΑΡΧΗ

             φ <-- 0

             ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 12

                 ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 34

                      ΑΝ Α[κ, λ] = Β[κ, λ] ΤΟΤΕ

                            φ <-- φ+1

                      ΤΕΛΟΣ_ΑΝ

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

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

             ΑΝ φ = 408 ΤΟΤΕ      ! 12 Χ 34 = 408 

                    ΙΣΟΙ <-- ΑΛΗΘΗΣ

             ΑΛΛΙΩΣ

                    ΙΣΟΙ <-- ΨΕΥΔΗΣ

             ΤΕΛΟΣ_ΑΝ

      ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ