Σειριακή αναζήτηση ενός στοιχείου σε μη ταξινομημένο πίνακα

ΠΡΟΓΡΑΜΜΑ ΣΕΙΡΙΑΚΗ_ΑΝΑΖΗΤΗΣΗ

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: Ι,Χ,Π[6]

  ΛΟΓΙΚΕΣ: FOUND

ΑΡΧΗ

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6

    ΔΙΑΒΑΣΕ Π[Ι]

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'ΠΑΡΑΚΑΛΩ ΔΩΣΤΕ ΤΙΜΗ ΠΡΟΣ ΑΝΑΖΗΤΗΣΗ'

  ΔΙΑΒΑΣΕ Χ

  Ι <-- 1

  FOUND <-- ΨΕΥΔΗΣ

  ΟΣΟ Ι<=6 ΚΑΙ FOUND=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ

    ΑΝ Π[Ι]=Χ ΤΟΤΕ

      ΓΡΑΨΕ 'ΒΡΕΘΗΚΕ Η ΤΙΜΗ ΣΤΗΝ ΘΕΣΗ', Ι

      FOUND <-- ΑΛΗΘΗΣ  

    ΑΛΛΙΩΣ

      Ι <-- Ι+1   

    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΝ FOUND=ΨΕΥΔΗΣ ΤΟΤΕ

    ΓΡΑΨΕ 'Η ΤΙΜΗ ΔΕΝ ΒΡΕΘΗΚΕ ΣΤΟΝ ΠΙΝΑΚΑ'

  ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

* Σημείωση: Η σειριακή αναζήτηση μπορεί να χρησιμοποιηθεί και σε ταξινομημένους πίνακες. Δεν είναι όμως τόσο αποδοτική όσο η δυαδική αναζήτηση.