!------------------------------------------------------------------------ ! netnick !------------------------------------------------------------------------ ! Μια άλλη προσέγγιση είναι να καταχωρηθούν οι θέσεις των στοιχειων σε πίνακα ! ΝΓΠ (= Να Γραψετε Προγραμμα) που βρισκει σε μη ταξινομημενο πίνακα, ! όλες τις εμφανίσεις ενός αριθμού ΚΕΥ και τους τοποθετεί σε πίνακα (ΘΕΣΗ) ! Στο τέλος να εμφανίζει το πλήθος και τις θέσεις εμφάνισης του ζητούμενου αριθμού. ! Και εδώ το flag είναι περιττό. ! done (ή ΒΡΕΘΗΚΕ) = true <=> ΘΕΣΗ > 0 <=> ΒΡΕΘΗΚΕ ! done (ή ΒΡΕΘΗΚΕ) = false <=> ΘΕΣΗ = 0 <=> ΔΕΝ ΒΡΕΘΗΚΕ !------------------------------------------------------------------------ ΠΡΟΓΡΑΜΜΑ ANAZHTHSH ΣΤΑΘΕΡΕΣ Ν = 100 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Π[Ν],Ι,ΚΕΥ,ΠΛΗΘΟΣ,ΘΕΣΗ[Ν] ΑΡΧΗ ΓΡΑΨΕ 'ΔΩΣΕ ΤΑ ΣΤΟΙΧΕΙΑ ΤΟΥ ΠΙΝΑΚΑ' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν ΔΙΑΒΑΣΕ Π[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Ο ΠΙΝΑΚΑΣ ΠΕΡΙΕΧΕΙ 100 ΑΚΕΡΑΙΟΥΣ ΑΠΟ 1 ΕΩΣ 30.' ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟΝ ΑΡΙΘΜΌ ΠΟΥ ΘΑ ΑΝΑΖΗΤΗΣΩ ΣΤΟΝ ΠΙΝΑΚΑ: ' ΔΙΑΒΑΣΕ ΚΕΥ ! Η ΑΝΑΖΗΤΗΣΗ ΠΛΗΘΟΣ <-- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν ΑΝ ΚΕΥ = Π[Ι] ΤΟΤΕ ΠΛΗΘΟΣ <-- ΠΛΗΘΟΣ + 1 ΘΕΣΗ[ΠΛΗΘΟΣ] <-- Ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! ΕΜΦΑΝΙΣΗ ΑΠΟΤΕΛΕΣΜΑΤΩΝ - ΜΗΝΥΜΑΤΩΝ ΑΝ ΠΛΗΘΟΣ > 0 ΤΟΤΕ ΓΡΑΨΕ 'ΒΡΕΘΗΚΕ ',ΠΛΗΘΟΣ,' ΦΟΡΕΣ, ΣΤΙΣ ΠΑΡΑΚΑΤΩ ΘΕΣΕΙΣ ΤΟΥ ΠΙΝΑΚΑ Π' ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ-1 ΓΡΑΨΕ ΘΕΣΗ[Ι],',' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ ΘΕΣΗ[ΠΛΗΘΟΣ] ΑΛΛΙΩΣ ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ΔΕΝ ΥΠΑΡΧΕΙ ΣΤΟΝ ΠΙΝΑΚΑ.' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ