!--------------------------------------------
! Αναζήτηση στοιχείου σε δισδιάστατο πινακα
! και εμφάνιση της πρώτης θέσης που θα βρεθεί.
!--------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΑΝΑΖΗΤΗΣΗ_ΣΕ_ΔΙΣΔΙΑΣΤΑΤΟ_ΠΙΝΑΚΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΤΙΜΗ,ΘΕΣΗ_Γ,ΘΕΣΗ_Σ,Π[3,4],Ι,Κ
ΛΟΓΙΚΕΣ: ΒΡΕΘΗΚΕ
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ 'ΔΩΣΕ ΤΙΜΗ ΓΙΑ ΤΟ (', Ι,',',Κ, ') ΣΤΟΙΧΕΙΟ'
ΔΙΑΒΑΣΕ Π[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΡΑΨΕ
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ_ Π[Ι,Κ],'//'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΗ ΤΙΜΗ ΠΟΥ ΖΗΤΑΣ'
ΔΙΑΒΑΣΕ ΤΙΜΗ
ΒΡΕΘΗΚΕ <-- ΨΕΥΔΗΣ
Ι <-- 1
ΟΣΟ (Ι<=3) ΚΑΙ (ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
Κ <-- 1
ΟΣΟ (Κ<=4) ΚΑΙ (ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
ΑΝ Π[Ι,Κ]=ΤΙΜΗ ΤΟΤΕ
ΒΡΕΘΗΚΕ <-- ΑΛΗΘΗΣ
ΘΕΣΗ_Γ <-- Ι
ΘΕΣΗ_Σ <-- Κ
ΓΡΑΨΕ 'Η ΤΙΜΗ ',ΤΙΜΗ,' ΒΡΕΘΗΚΕ ΠΡΩΤΗ ΦΟΡΑ ΣΤΗ ΘΕΣΗ ',Ι,',',Κ
ΑΛΛΙΩΣ
Κ <-- Κ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Η ΤΙΜΗ ' ,ΤΙΜΗ, ' ΔΕΝ ΒΡΕΘΗΚΕ ΣΤΟΝ ΠΙΝΑΚΑ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ