ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ_3_2010

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

ΑΡΧΗ
                                                       ! ΑΡΧΙΚΟΠΟΙΗΣΕΙΣ ΜΕΤΡΗΤΩΝ
  ΠΛ_ΚΑΤΕΡ <- 0
  ΠΛ_ΠΛΗΣΙΑΣΑΝ <- 0
  ΘΕΣΗ_ΠΕΡ <- 1
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΕ ΡΕΚΟΡ ΑΓΩΝΩΝ'
    ΔΙΑΒΑΣΕ ΡΕΚΟΡ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΡΕΚΟΡ > 0 ΚΑΙ ΡΕΚΟΡ < 10
  ΓΡΑΨΕ 'ΔΩΣΕ ΠΛΗΘΟΣ ΑΘΛΗΤΩΝ'
  ΔΙΑΒΑΣΕ ΠΛΗΘΟΣ
                                                                    !1ος ΑΘΛΗΤΗΣ
  ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ, ΕΠΙΔΟΣΗ ΤΟΥ ΠΕΡΥΣΙΝΟΥ ΠΡΩΤΑΘΛΗΤΗ'
  ΔΙΑΒΑΣΕ ΠΕΡΥΣΙ_ΟΝΟΜΑ
  ΔΙΑΒΑΣΕ ΠΕΡΥΣΙ_ΕΠΙΔΟΣΗ
  ΜΙΝ_ΟΝΟΜΑ <- ΠΕΡΥΣΙ_ΟΝΟΜΑ
  ΜΙΝ_ΕΠΙΔΟΣΗ <- ΠΕΡΥΣΙ_ΕΠΙΔΟΣΗ
  ΑΝ ΠΕΡΥΣΙ_ΕΠΙΔΟΣΗ > ΡΕΚΟΡ ΤΟΤΕ
    ΠΛ_ΚΑΤΕΡ <- ΠΛ_ΚΑΤΕΡ + 1
  ΑΛΛΙΩΣ_ΑΝ ΠΕΡΥΣΙ_ΕΠΙΔΟΣΗ + 0.5 >= ΡΕΚΟΡ ΤΟΤΕ
    ΠΛ_ΠΛΗΣΙΑΣΑΝ <- ΠΛ_ΠΛΗΣΙΑΣΑΝ + 1
  ΤΕΛΟΣ_ΑΝ

  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ ΠΛΗΘΟΣ
    ΓΡΑΨΕ 'ΔΩΣΕ ΟΝΟΜΑ, ΕΠΙΔΟΣΗ ΤΟΥ ', Ι, 'ΟΥ ΑΘΛΗΤΗ'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ
    ΔΙΑΒΑΣΕ ΕΠΙΔΟΣΗ
    ΑΝ ΕΠΙΔΟΣΗ < ΜΙΝ_ΕΠΙΔΟΣΗ ΤΟΤΕ
      ΜΙΝ_ΕΠΙΔΟΣΗ <- ΕΠΙΔΟΣΗ
      ΜΙΝ_ΟΝΟΜΑ <- ΟΝΟΜΑ
    ΤΕΛΟΣ_ΑΝ
                                                               !ΠΟΣΟΙ ΚΑΤΕΡΡΙΨΑΝ
    ΑΝ ΕΠΙΔΟΣΗ > ΡΕΚΟΡ ΤΟΤΕ
      ΠΛ_ΚΑΤΕΡ <- ΠΛ_ΚΑΤΕΡ + 1
    ΤΕΛΟΣ_ΑΝ
    ΑΝ ΠΛ_ΚΑΤΕΡ = 0 ΤΟΤΕ
                                                                !ΠΟΣΟΙ ΠΛΗΣΙΑΣΑΝ
      ΑΝ ΕΠΙΔΟΣΗ + 0.5 >= ΡΕΚΟΡ ΤΟΤΕ
        ΠΛ_ΠΛΗΣΙΑΣΑΝ <- ΠΛ_ΠΛΗΣΙΑΣΑΝ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
                                                                 !ΘΕΣΗ ΠΕΡΥΣΙΝΟΥ
    ΑΝ ΕΠΙΔΟΣΗ > ΠΕΡΥΣΙ_ΕΠΙΔΟΣΗ ΤΟΤΕ
      ΘΕΣΗ_ΠΕΡ <- ΘΕΣΗ_ΠΕΡ + 1
    ΤΕΛΟΣ_ΑΝ


  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                                                                   !ΑΠΟΤΕΛΕΣΜΑΤΑ
  ΓΡΑΨΕ 'ΤΕΛΕΥΤΑΙΟΣ ΒΓΗΚΕ  Ο ', ΜΙΝ_ΟΝΟΜΑ, ' ΜΕ ΕΠΙΔΟΣΗ ', ΜΙΝ_ΕΠΙΔΟΣΗ
  ΓΡΑΨΕ 'ΤΟ ΡΕΚΟΡ ΚΑΤΑΡΡΙΦΘΗΚΕ ΑΠΟ ', ΠΛ_ΚΑΤΕΡ, ' ΑΘΛΗΤΕΣ'
  ΑΝ ΠΛ_ΚΑΤΕΡ = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΤΟ ΡΕΚΟΡ ΠΛΗΣΙΑΣΑΝ ΚΑΤΑ 0,5 Μ ', ΠΛ_ΠΛΗΣΙΑΣΑΝ, ' ΑΘΛΗΤΕΣ'
  ΤΕΛΟΣ_ΑΝ
  ΓΡΑΨΕ 'Ο ΠΕΡΥΣΙΝΟΣ ΒΓΗΚΕ ', ΘΕΣΗ_ΠΕΡ, 'ΟΣ'
  ΔΙΑΒΑΣΕ Ι
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ