!========================================================================================
!Πολλαπλασιασμός πινάκων ( Κάθε φορά αλλάζουμε τις σταθερές ανάλογα με τους πίνακες)
!========================================================================================
ΠΡΟΓΡΑΜΜΑ Γινόμενο_Πινάκων
ΣΤΑΘΕΡΕΣ
Μ=3
Ν=4
Τ=2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[Μ,Ν], Β[Ν,Τ], Γ[Μ,Τ], i ,j ,k ,Σ
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΡΑΨΕ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώσε το στοιχείο της ',i,'ης γραμμής και ',j,'ης στήλης'
ΔΙΑΒΑΣΕ Α[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΡΑΨΕ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ_ Α[i,j],' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ Τ
ΓΡΑΨΕ 'Δώσε το στοιχείο της ',j,'ης γραμμής και ',k,'ης στήλης'
ΔΙΑΒΑΣΕ Β[j,k]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ Τ
ΓΡΑΨΕ_ Β[j,k],' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ
ΓΡΑΨΕ 'Το γινόμενο είναι:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ Τ
Σ <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν
Σ <-- Σ + Α[i,j]*Β[j,k]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Γ[i,k] <-- Σ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΡΑΨΕ
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ Τ
ΓΡΑΨΕ_ Γ[i,k],' '
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Γινόμενο_Πινάκων