ΠΡΟΓΡΑΜΜΑ Matrix_2D
ΣΤΑΘΕΡΕΣ
N=9
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,k,m,Α[N,N]
ΛΟΓΙΚΕΣ: ομοιο
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ N
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε στοιχείο ',i,'ης γραμμής και ',j,'ης στηλης'
ΔΙΑΒΑΣΕ Α[i,j]
ΜΕΧΡΙΣ_ΟΤΟΥ Α[i,j] >=1 ΚΑΙ Α[i,j] <=20
k <-- i
m <-- 1
ομοιο <-- ΨΕΥΔΗΣ
ΟΣΟ ομοιο=ΨΕΥΔΗΣ ΚΑΙ m<j ΕΠΑΝΑΛΑΒΕ
ΑΝ Α[i,j] = Α[k,m] ΤΟΤΕ
ομοιο <-- ΑΛΗΘΗΣ
ΓΡΑΨΕ 'Βρέθηκε όμοιο στοιχείο στην ',m,'η στηλη'
ΤΕΛΟΣ_ΑΝ
m <-- m+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
k <-- 1
m <-- j
ΟΣΟ ομοιο=ΨΕΥΔΗΣ ΚΑΙ k<i ΕΠΑΝΑΛΑΒΕ
ΑΝ Α[i,j] = Α[k,m] ΤΟΤΕ
ομοιο <-- ΑΛΗΘΗΣ
ΓΡΑΨΕ 'Βρέθηκε όμοιο στοιχείο στην ',k,'η γραμμη'
ΤΕΛΟΣ_ΑΝ
k <-- k+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΧΡΙΣ_ΟΤΟΥ ομοιο=ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ