! Να γραφεί πρόγραμμα για την καταχώρηση ονομάτων σε πίνακα.
! Αν κάποιο από τα εισαγόμενα ονόματα έχει ήδη καταχωρισθεί,
! να εμφανίζεται σχετικό μήνυμα και να μην γίνεται επανακαταχώρησή του.
! Ταξινόμηση του πίνακα ( φυσσαλίδα )
! Μια λύση του προβλήματος με συμπλήρωμα την εμφάνιση των στοιχείων
! σε έναν μονοδιάστατο 10θέσιο πίνακα.
! Την λύση έδωσε ο μαθητής Οικονομόπουλος Βαλάντης του 6ου
! Ενιαίου Λυκείου Περιστερίου.
ΠΡΟΓΡΑΜΜΑ Καταχώρηση1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ι,κ
ΧΑΡΑΚΤΗΡΕΣ: Ονόματα[10],βοηθ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ ' Δώσε το ',ι,'ο όνομα προς καταχώρηση'
ΔΙΑΒΑΣΕ Ονόματα[ι]
κ <-- 1
ΟΣΟ κ<ι ΕΠΑΝΑΛΑΒΕ
ΑΝ Ονόματα[ι]=Ονόματα[κ] ΤΟΤΕ
ΓΡΑΨΕ ' Το όνομα ',Ονόματα[ι],' υπάρχει στην θέση ',κ
ΓΡΑΨΕ ' Ξαναδώσε το ',ι,'ο όνομα προς καταχώρηση'
ΔΙΑΒΑΣΕ Ονόματα[ι]
κ <-- 1
ΑΛΛΙΩΣ
κ <-- κ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 10
ΓΙΑ κ ΑΠΟ 10 ΜΕΧΡΙ ι ΜΕ ΒΗΜΑ -1
ΑΝ Ονόματα[κ-1]>Ονόματα[κ] ΤΟΤΕ
βοηθ <-- Ονόματα[κ-1]
Ονόματα[κ-1] <-- Ονόματα[κ]
Ονόματα[κ] <-- βοηθ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ Ονόματα[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Καταχώρηση1