Μάθημα : ΓΕΛ Γ - ΑΝΑΠΤΥΞΗ ΕΦΑΡΜΟΓΩΝ ΣΕ ΠΡΟΓΡΑΜΜΑΤΙΣΤΙΚΟ ΠΕΡΙΒΑΛΛΟΝ

ΠΡΟΓΡΑΜΜΑ Άθροισμα_και_πολλαπλασιασμός_2_δισδιάστατων_τετραγωνικών_πινάκων
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[5, 5], Β[5, 5], Σ[5, 5], Π[5, 5], I, J, K
! Α και Β αρχικοί πίνακες
! Σ τελικός πίνακας αθροίσματος
! Π τελικός πίνακας γινομένου
ΑΡΧΗ
! Γέμισμα πινάκων
  Α[1, 1] <- 7
  Α[1, 2] <- 9
  Α[1, 3] <- 10
  Α[1, 4] <- 2
  Α[1, 5] <- 0
  Α[2, 1] <- 4
  Α[2, 2] <- 6
  Α[2, 3] <- 5
  Α[2, 4] <- 3
  Α[2, 5] <- 2
  Α[3, 1] <- 4
  Α[3, 2] <- 8
  Α[3, 3] <- 9
  Α[3, 4] <- 6
  Α[3, 5] <- 7
  Α[4, 1] <- 1
  Α[4, 2] <- 3
  Α[4, 3] <- 2
  Α[4, 4] <- 5
  Α[4, 5] <- 4
  Α[5, 1] <- 6
  Α[5, 2] <- 7
  Α[5, 3] <- 10
  Α[5, 4] <- 0
  Α[5, 5] <- 7

  Β[1, 1] <- 1
  Β[1, 2] <- 3
  Β[1, 3] <- 5
  Β[1, 4] <- 2
  Β[1, 5] <- 4
  Β[2, 1] <- 6
  Β[2, 2] <- 6
  Β[2, 3] <- 3
  Β[2, 4] <- 1
  Β[2, 5] <- 0
  Β[3, 1] <- 6
  Β[3, 2] <- 7
  Β[3, 3] <- 9
  Β[3, 4] <- 6
  Β[3, 5] <- 3
  Β[4, 1] <- 2
  Β[4, 2] <- 9
  Β[4, 3] <- 10
  Β[4, 4] <- 5
  Β[4, 5] <- 7
  Β[5, 1] <- 4
  Β[5, 2] <- 2
  Β[5, 3] <- 10
  Β[5, 4] <- 1
  Β[5, 5] <- 8

! I είναι ο δείκτης για τον πίνακα Α
! J είναι ο δείκτης για τον πίνακα Β
  I <- 1
  J <- 1

! Υπολογισμός αθροίσματος Α και Β, Σ[I,J]=Α[I,J]+Β[I,J]
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 5
      Σ[I, J] <- Α[I, J] + Β[I, J] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! Υπολογισμός πολλαπλασιασμού Α επί Β, προκύπτει από την πρόσθεση των γινομένων
! των στοιχείων της γραμμής του Α επί των στοιχείων της στήλης του Β
! π.χ. Σ[1,1]=Α[1,1]*Β[1,1]+ Α[1,2]*Β[1,2] + Α[1,3]*Β[1,3] + Α[1,4]*Β[1,4] + Α[1,5]*Β[1,5]
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 5
      Π[I, J] <- 0
      ΓΙΑ K ΑΠΟ 1 ΜΕΧΡΙ 5

        Π[I, J] <- Π[I, J] + (Α[I, K]* Β[K, J]) 
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

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

! Εκτύπωση τελικών πινάκων Α, Β, Σ, Π
  ΓΡΑΨΕ "Α"
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Α[I, 1], "|", Α[I, 2], "|", Α[I, 3], "|", Α[I, 4], "|", Α[I, 5] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Β"
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Β[I, 1], "|", Β[I, 2], "|", Β[I, 3], "|", Β[I, 4], "|", Β[I, 5] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Σ=Α+Β"
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Σ[I, 1], "|", Σ[I, 2], "|", Σ[I, 3], "|", Σ[I, 4], "|", Σ[I, 5] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Π=Α*Β"
  ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ Π[I, 1], "|", Π[I, 2], "|", Π[I, 3], "|", Π[I, 4], "|", Π[I, 5] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ