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