ΠΡΟΓΡΑΜΜΑ Εύρεση_Θέσης_Αλφαριθμητικού
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Α, Β
ΑΡΧΗ
Α <-- 'ΔΟΚΙΜΑΣΤΙΚΟ ΑΛΦΑΡΙΘΜΗΤΙΚΟ'
Β <-- 'ΑΛΦ'
ΓΡΑΨΕ 'Θέση: ', Θέση_Αλφαριθμητικού(Α, Β)
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Εύρεση_Θέσης_Αλφαριθμητικού
!------------------------------------------------
ΣΥΝΑΡΤΗΣΗ Θέση_Αλφαριθμητικού(S1, S2): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: S1, S2
ΑΚΕΡΑΙΕΣ: μ1, μ2, i, j
ΛΟΓΙΚΕΣ: βρέθηκε
ΑΡΧΗ
μ1 <-- ΜΗΚΟΣ_ΧΑΡ(S1)
μ2 <-- ΜΗΚΟΣ_ΧΑΡ(S2)
βρέθηκε <-- ΨΕΥΔΗΣ
i <-- 0
ΟΣΟ (i<=μ1-μ2) ΚΑΙ (βρέθηκε=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
j <-- 1
ΟΣΟ (j<=μ2) ΚΑΙ (S1[j+i]=S2[j]) ΕΠΑΝΑΛΑΒΕ
j <-- j+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ j=μ2+1 ΤΟΤΕ
βρέθηκε <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρέθηκε=ΑΛΗΘΗΣ ΤΟΤΕ
Θέση_Αλφαριθμητικού <-- i
ΑΛΛΙΩΣ
Θέση_Αλφαριθμητικού <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ