ΠΡΟΓΡΑΜΜΑ ΑΛΜΑ
! ΠΑΝΕΛΛΗΝΙΕΣ 2010 ΘΕΜΑ Γ
!Σε κάποιο σχολικό αγώνα, για το άθλημα «Αλμα εις μήκος»
!καταγράφεται για κάθε αθλητή η καλύτερη έγκυρη επίδοσή
!του. Τιμής ένεκεν, πρώτος αγωνίζεται ο περσινός
!πρωταθλητής. Η Επιτροπή του αγώνα διαχειρίζεται τα
!στοιχεία των αθλητών που αγωνίστηκαν.
!Να γράψετε ΑΛΓΟΡΙΘΜΟ ο οποίος:
!           ---------
!Γ1. Να ζητάει το ρεκόρ αγώνων και να το δέχεται, εφόσον
!είναι θετικό και μικρότερο των 10 μέτρων.
!Μονάδες 2
!Γ2. Να ζητάει τον συνολικό αριθμό των αγωνιζομένων και
!για κάθε αθλητή το όνομα και την επίδοσή του σε μέτρα
!με τη σειρά που αγωνίστηκε.
!Μονάδες 4
!Γ3. Να εμφανίζει το όνομα του αθλητή με τη χειρότερη
!επίδοση.
!Μονάδες 4
!Γ4. Να εμφανίζει τα ονόματα των αθλητών που κατέρριψαν
!το ρεκόρ αγώνων. Αν δεν υπάρχουν τέτοιοι αθλητές, να
!εμφανίζει το πλήθος των αθλητών που πλησίασαν το
!ρεκόρ αγώνων σε απόσταση όχι μεγαλύτερη των 50
!εκατοστών.
!Μονάδες 6
!Γ5. Να βρίσκει και να εμφανίζει τη θέση που κατέλαβε στην
!τελική κατάταξη ο περσινός πρωταθλητής.
!Μονάδες 4
!Σημείωση: Να θεωρήσετε ότι κάθε αθλητής έχει έγκυρη
!επίδοση και ότι όλες οι επιδόσεις των αθλητών που
!καταγράφονται είναι διαφορετικές μεταξύ τους.

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΡΕΚΟΡ, ΕΠΙΔΟΣΗ, ΧΕΙΡΟΤΕΡΗ_ΕΠΙΔΟΣΗ, ΕΠΙΔΟΣΗ_ΠΕΡΣΙΝΟΥ
  ΑΚΕΡΑΙΕΣ: ΠΛΗΘΟΣ, Ι, ΠΛΗΘΟΣ_ΡΕΚΟΡ, ΠΛΗΘΟΣ_ΚΟΝΤΑ_ΡΕΚΟΡ, ΘΕΣΗ_ΠΕΡΣΙΝΟΥ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ, ΟΝΟΜΑ_ΧΕΙΡΟΤΕΡΟΥ
  
ΑΡΧΗ

!Γ1. Να ζητάει το ρεκόρ αγώνων και να το δέχεται, εφόσον
!είναι θετικό και μικρότερο των 10 μέτρων.
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΕ ΡΕΚΟΡ'
    ΔΙΑΒΑΣΕ ΡΕΚΟΡ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΡΕΚΟΡ > 0 ΚΑΙ ΡΕΚΟΡ < 10

  ΠΛΗΘΟΣ_ΡΕΚΟΡ <- 0
  ΠΛΗΘΟΣ_ΚΟΝΤΑ_ΡΕΚΟΡ <- 0

!Γ2. Να ζητάει τον συνολικό αριθμό των αγωνιζομένων και
!για κάθε αθλητή το όνομα και την επίδοσή του σε μέτρα
!με τη σειρά που αγωνίστηκε.
  ΓΡΑΨΕ 'ΔΩΣΕ ΠΛΗΘΟΣ'
  ΔΙΑΒΑΣΕ ΠΛΗΘΟΣ

  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ
    ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ ', Ι
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ
    
    ΓΡΑΨΕ 'ΔΩΣΕ ΕΠΙΔΟΣΗ : '
    ΔΙΑΒΑΣΕ ΕΠΙΔΟΣΗ

    ΑΝ Ι = 1 ΤΟΤΕ
      
      ΘΕΣΗ_ΠΕΡΣΙΝΟΥ <- 1
      ΟΝΟΜΑ_ΧΕΙΡΟΤΕΡΟΥ <- ΟΝΟΜΑ
      ΧΕΙΡΟΤΕΡΗ_ΕΠΙΔΟΣΗ <- ΕΠΙΔΟΣΗ
      ΕΠΙΔΟΣΗ_ΠΕΡΣΙΝΟΥ <- ΕΠΙΔΟΣΗ
      
    ΑΛΛΙΩΣ
      
!Γ3. Να εμφανίζει το όνομα του αθλητή με τη χειρότερη
!επίδοση.
      ΑΝ ΕΠΙΔΟΣΗ < ΧΕΙΡΟΤΕΡΗ_ΕΠΙΔΟΣΗ ΤΟΤΕ
        ΟΝΟΜΑ_ΧΕΙΡΟΤΕΡΟΥ <- ΟΝΟΜΑ
        ΧΕΙΡΟΤΕΡΗ_ΕΠΙΔΟΣΗ <- ΕΠΙΔΟΣΗ
      ΤΕΛΟΣ_ΑΝ

!Γ4. Να εμφανίζει τα ονόματα των αθλητών που κατέρριψαν
!το ρεκόρ αγώνων.
      ΑΝ ΕΠΙΔΟΣΗ > ΡΕΚΟΡ ΤΟΤΕ
        ΓΡΑΨΕ 'ΡΕΚΟΡΝΤΜΑΝ : ', ΟΝΟΜΑ
        ΠΛΗΘΟΣ_ΡΕΚΟΡ <- ΠΛΗΘΟΣ_ΡΕΚΟΡ + 1
      ΤΕΛΟΣ_ΑΝ

!Γ4. ... Αν δεν υπάρχουν τέτοιοι αθλητές, να
!εμφανίζει το πλήθος των αθλητών που πλησίασαν το
!ρεκόρ αγώνων σε απόσταση όχι μεγαλύτερη των 50
!εκατοστών.
      ΑΝ ΕΠΙΔΟΣΗ > ΡΕΚΟΡ - 0.50 ΤΟΤΕ
        ΠΛΗΘΟΣ_ΚΟΝΤΑ_ΡΕΚΟΡ <- ΠΛΗΘΟΣ_ΚΟΝΤΑ_ΡΕΚΟΡ + 1
      ΤΕΛΟΣ_ΑΝ

!Γ5. Να βρίσκει και να εμφανίζει τη θέση που κατέλαβε στην
!τελική κατάταξη ο περσινός πρωταθλητής.
      ΑΝ ΕΠΙΔΟΣΗ > ΕΠΙΔΟΣΗ_ΠΕΡΣΙΝΟΥ ΤΟΤΕ
        ΘΕΣΗ_ΠΕΡΣΙΝΟΥ <- ΘΕΣΗ_ΠΕΡΣΙΝΟΥ + 1
      ΤΕΛΟΣ_ΑΝ     ! ΑΝ Ι = 1 ΤΟΤΕ .. ΑΛΛΙΩΣ 

    ΤΕΛΟΣ_ΑΝ

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

  ΓΡΑΨΕ 'ΟΝΟΜΑ ΧΕΙΡΟΤΕΡΟΥ : ', ΟΝΟΜΑ_ΧΕΙΡΟΤΕΡΟΥ

  ΑΝ ΠΛΗΘΟΣ_ΡΕΚΟΡ = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΚΟΝΤΑ ΣΤΟ ΡΕΚΟΡ : ', ΠΛΗΘΟΣ_ΚΟΝΤΑ_ΡΕΚΟΡ
  ΤΕΛΟΣ_ΑΝ

  ΓΡΑΨΕ 'ΘΕΣΗ ΠΕΡΣΙΝΟΥ : ', ΘΕΣΗ_ΠΕΡΣΙΝΟΥ

  
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ