e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον

Λύσεις ασκήσεων από τον Οδηγό Μελέτης Μαθητών


ΠΡΟΓΡΑΜΜΑ ταξινόμηση_παράλληλων
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.15
!
! 15. Σ' ένα διαγωνισμό ταλέντων διαγωνίστηκαν 250 υποψήφιοι.
!     Η βαθμολογία τους είναι στο διάστημα [1,100].
!     Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο :
!        1) Να καταχωρεί σε πίνακες τα ονόματα και οι βαθμοί των υποψηφίων.
!        2) Να εμφανίζει μια λίστα με τους 10 πρώτους, ταξινομημένους
!           κατά φθίνουσα σειρά ως προς την βαθμολογία τους.
ΣΤΑΘΕΡΕΣ
  Ν = 250
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Ονόματα[Ν], temp_on
  ΑΚΕΡΑΙΕΣ: Βαθμοί[Ν], i, j, temp

ΑΡΧΗ

! 1 Διάβασμα στα ονόματα
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώστε όνομα : ', i
    ΔΙΑΒΑΣΕ Ονόματα[i] 
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δώστε βαθμό : '
      ΔΙΑΒΑΣΕ Βαθμοί[i] 
      ΑΝ Βαθμοί[i] < 0 Η Βαθμοί[i] > 100 ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθος τιμή(0..100)'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ Βαθμοί[i] >= 0 ΚΑΙ Βαθμοί[i] <= 100

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


!2α ταξινόμηση ως προς βαθμό φθίνουσα
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
      ΑΝ (Βαθμοί[j - 1] < Βαθμοί[j]) ΤΟΤΕ
        temp <- Βαθμοί[j] 
        Βαθμοί[j] <- Βαθμοί[j - 1] 
        Βαθμοί[j - 1] <- temp

        temp_on <- Ονόματα[j] 
        Ονόματα[j] <- Ονόματα[j - 1] 
        Ονόματα[j - 1] <- temp_on
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Για να ταξινομήσουμε μόνο μέχρι 10 πρώτα, μπορούμε να αλλάξουμε την πρωτη γραμμή σε :
! ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 11
! Προσοχή! αν βάζαμε ΜΕΧΡΙ 10, θα έκανε 9 επαναλήψεις και θα ταξινομούσε 9 μόνο στοιχεία.


!2β εμφανίζει μια λίστα με τους 10 πρώτους
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ i,   Ονόματα[i],   Βαθμοί[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

 

© 2017 - 2ο Γενικό Λύκειο Γέρακα - Βασίλειος Αναστόπουλος