ΝΑ ΚΑΙ ΚΑΤΙ ΑΛΛΟ. ΕΛΠΙΖΩ ΝΑ ΕΙΝΑΙ ΣΩΣΤΟ
ΠΡΟΓΡΑΜΜΑ ΓΕΜΙΣΜΑ_ΦΙΔΑΚΙ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[100, 100], Γ1, Γ2, Σ1, Σ2, Ν, Μ, ΑΡ, Ι, J
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΛΗΘΟΣ ΓΡΑΜΜΩΝ'
ΔΙΑΒΑΣΕ Ν
ΓΡΑΨΕ 'ΔΩΣΤΕ ΠΛΗΘΟΣ ΣΤΗΛΩΝ'
ΔΙΑΒΑΣΕ Μ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ Μ
Α[Ι, J] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Γ1 <-- 1
Σ1 <-- Μ
Γ2 <-- Ν
Σ2 <-- 1
ΑΡ <-- 1
ΟΣΟ ΑΡ <= Ν*Μ ΕΠΑΝΑΛΑΒΕ
ΓΙΑ J ΑΠΟ Σ2 ΜΕΧΡΙ Σ1
ΑΝ Α[Γ1, J] = 0 ΤΟΤΕ
Α[Γ1, J] <-- ΑΡ
ΑΡ <-- ΑΡ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ Γ1+1 ΜΕΧΡΙ Γ2
ΑΝ Α[Ι, Σ1] = 0 ΤΟΤΕ
Α[Ι, Σ1] <-- ΑΡ
ΑΡ <-- ΑΡ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ J ΑΠΟ Σ1-1 ΜΕΧΡΙ Σ2 ΜΕ ΒΗΜΑ -1
ΑΝ Α[Γ2, J] = 0 ΤΟΤΕ
Α[Γ2, J] <-- ΑΡ
ΑΡ <-- ΑΡ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ Γ2-1 ΜΕΧΡΙ Γ1+1 ΜΕ ΒΗΜΑ -1
ΑΝ Α[Ι, Σ2] = 0 ΤΟΤΕ
Α[Ι, Σ2] <-- ΑΡ
ΑΡ <-- ΑΡ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Γ1 <-- Γ1 + 1
Γ2 <-- Γ2 - 1
Σ1 <-- Σ1 - 1
Σ2 <-- Σ2 + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ Μ
ΓΡΑΨΕ_ Α[Ι, J]:4
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ