ΠΡΟΓΡΑΜΜΑ formula1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,ΣΒ_ΟΔ[11,2],αγ,κατ,κ,ΣΒ[22],temp,ΣΟΜ[22]
ΧΑΡΑΚΤΗΡΕΣ: ομαδα[11],οδηγος[11,2],ονομα,ΟΔΓ[22],temp2
ΑΡΧΗ
! ------- α ερωτημα -------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΓΡΑΨΕ 'Δώσε όνομα ομάδας ',i
ΔΙΑΒΑΣΕ ομαδα[i]
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2
ΓΡΑΨΕ 'Δώσε όνομα ',j,'ου οδηγου'
ΔΙΑΒΑΣΕ οδηγος[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ------- β ερωτημα -------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2
ΣΒ_ΟΔ[i,j] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ αγ ΑΠΟ 1 ΜΕΧΡΙ 18
ΓΙΑ κατ ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΡΑΨΕ 'Δώσε όνομα οδηγου που τερματησε ',κατ,'ος στον αγωνα',αγ
ΔΙΑΒΑΣΕ ονομα
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2
ΑΝ ονομα=οδηγος[i,j] ΤΟΤΕ
ΑΝ κατ=1 ΤΟΤΕ
ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+10
ΑΛΛΙΩΣ_ΑΝ κατ=2 ΤΟΤΕ
ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+8
ΑΛΛΙΩΣ
ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+(9-κατ)
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ------- γ ερωτημα -------
κ <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2
κ <-- κ+1
ΟΔΓ[κ] <-- οδηγος[i,j]
ΣΒ[κ] <-- ΣΒ_ΟΔ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 22
ΓΙΑ j ΑΠΟ 22 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
ΑΝ ΣΒ[j-1]<ΣΒ[j] ΤΟΤΕ
temp <-- ΣΒ[j-1]
ΣΒ[j-1] <-- ΣΒ[j]
ΣΒ[j] <-- temp
temp2 <-- ΟΔΓ[j-1]
ΟΔΓ[j-1] <-- ΟΔΓ[j]
ΟΔΓ[j] <-- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'πρωταθλητης ειναι ο',ΟΔΓ[1]
! ------- δ ερωτημα -------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΣΟΜ[i] <-- ΣΒ_ΟΔ[i,1]+ ΣΒ_ΟΔ[i,2]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 11
ΓΙΑ j ΑΠΟ 11 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
ΑΝ ΣΟΜ[j-1]<ΣΟΜ[j] ΤΟΤΕ
temp <-- ΣΟΜ[j-1]
ΣΟΜ[j-1] <-- ΣΟΜ[j]
ΣΟΜ[j] <-- temp
temp2 <-- ομαδα[j-1]
ομαδα[j-1] <-- ομαδα[j]
ομαδα[j] <-- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11
ΓΡΑΨΕ ομαδα[i],'κατεταγει',i,'η'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'πρωταθλητρια ομαδα ειναι η',ομαδα[1]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Σύνδεση 
Εγγραφή
Συχνές Ερωτήσεις
Αναζήτηση
