ΠΡΟΓΡΑΜΜΑ Εύρεση_Θέσης_Αλφαριθμητικού

ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Α, Β

ΑΡΧΗ

  Α <-- 'ΔΟΚΙΜΑΣΤΙΚΟ ΑΛΦΑΡΙΘΜΗΤΙΚΟ'
  Β <-- 'ΑΛΦ'

  ΓΡΑΨΕ 'Θέση: ', Θέση_Αλφαριθμητικού(Α, Β)

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Εύρεση_Θέσης_Αλφαριθμητικού

!------------------------------------------------

ΣΥΝΑΡΤΗΣΗ Θέση_Αλφαριθμητικού(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
  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ