! _________________________________________________
!
! Να γραφεί πρόγραμμα το οποίο να δέχεται :
! - τα ονόματα
! - την εθνικότητα και
! - τους χρόνους
! οκτώ αθλητών στο δρόμο των εκατό μέτρων και
! να τους εμφανίζει (χρόνος - όνομα - εθνικότητα)
! αρχίζοντας από το γρηγορότερο και καταλήγοντας
! στον πιο αργό αθλητή.
!__________________________________________________
!
!
ΠΡΟΓΡΑΜΜΑ ΑΘΛΗΤΕΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: x , y
ΠΡΑΓΜΑΤΙΚΕΣ: ΧΡΟΝΟΣ[8] , temp1
ΧΑΡΑΚΤΗΡΕΣ: ΑΘΛΗΤΗΣ[8,2] , temp2
ΑΡΧΗ
! ΕΙΣΑΓΩΓΗ ΣΤΟΙΧΕΙΩΝ ΣΕ ΔΥΟ ΠΙΝΑΚΕΣ
ΓΙΑ x ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΡΑΨΕ 'Δώσε το όνομα του αθλητή της διαδρομής Νο : ', x
ΔΙΑΒΑΣΕ ΑΘΛΗΤΗΣ[x,1]
ΓΡΑΨΕ 'Δώσε τη χώρα του αθλητή της διαδρομής Νο : ', x
ΔΙΑΒΑΣΕ ΑΘΛΗΤΗΣ[x,2]
ΓΡΑΨΕ 'Δώσε το χρόνο του αθλητή της διαδρομής Νο : ', x
ΔΙΑΒΑΣΕ ΧΡΟΝΟΣ[x]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΤΑΞΙΝΟΜΗΣΗ ΦΥΣΣΑΛΙΔΑΣ ΚΑΙ ΤΩΝ ΔΥΟ ΠΙΝΑΚΩΝ
ΓΙΑ x ΑΠΟ 2 ΜΕΧΡΙ 8
ΓΙΑ y ΑΠΟ 8 ΜΕΧΡΙ x ΜΕ ΒΗΜΑ -1
ΑΝ ΧΡΟΝΟΣ[y - 1] > ΧΡΟΝΟΣ[y] ΤΟΤΕ
temp1 <-- ΧΡΟΝΟΣ[y-1]
ΧΡΟΝΟΣ[y-1] <-- ΧΡΟΝΟΣ[y]
ΧΡΟΝΟΣ[y] <-- temp1
temp2 <-- ΑΘΛΗΤΗΣ[y-1,1]
ΑΘΛΗΤΗΣ[y-1,1] <-- ΑΘΛΗΤΗΣ[y,1]
ΑΘΛΗΤΗΣ[y,1] <-- temp2
temp2 <-- ΑΘΛΗΤΗΣ[y-1,2]
ΑΘΛΗΤΗΣ[y-1,2] <-- ΑΘΛΗΤΗΣ[y,2]
ΑΘΛΗΤΗΣ[y,2] <-- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΕΜΦΑΝΙΣΗ ΑΠΟΤΕΛΕΣΜΑΤΩΝ
ΓΡΑΨΕ
ΓΡΑΨΕ '===================================='
ΓΡΑΨΕ 'ΧΡΟΝΟΣ ΟΝΟΜΑ ΧΩΡΑ'
ΓΙΑ x ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΡΑΨΕ ΧΡΟΝΟΣ[x], ΑΘΛΗΤΗΣ[x,1], ΑΘΛΗΤΗΣ[x,2]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '===================================='
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΑΘΛΗΤΕΣ