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