Θεμα 4ο
ΠΡΟΓΡΑΜΜΑ ΘΜΕΑ_40
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[8],ΤΕΜΠΤ1
ΑΚΕΡΑΙΕΣ: ΣΚΟΡ[8,8],Ι,Κ,ΒΑΘΜΟΛΟΓΙΑ[8],ΣΥΜ1,ΣΥΜ2,Ξ,ΤΕΜΠΤ
ΛΟΓΙΚΕΣ: ΦΛΑΓ
ΑΡΧΗ
!Α ΕΡΩΗΤΗΜΑ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ ΟΝΟΜΑ ΤΗΣ',Ι,'-ΗΣ ΟΜΑΔΑΣ'
ΔΙΑΒΑΣΕ ΟΝ[Ι]
ΒΑΘΜΟΛΟΓΙΑ[Ι] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Β ΕΡΩΤΗΜΑ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 8
ΑΝ Ι<>Κ ΤΟΤΕ
ΓΡΑΨΕ 'ΔΩΣΕ ΤΑ ΓΚΟΛ ΠΟΥ ΕΒΑΛΕ Η',Ι,'-Η ΟΜΑΔΑ ΟΤΑΝ ΕΠΕΞΑΙ ΕΝΑΝΤΙΑ ΤΗΣ',Κ,'-ΗΣ ΟΜΑΔΑΣ'
ΔΙΑΒΑΣΕ ΣΚΟΡ[Ι,Κ]
ΑΛΛΙΩΣ
ΣΚΟΡ[Ι,Κ] <-- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Γ ΕΡΩΤΗΜΑ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 8
ΑΝ Ι<>Κ ΤΟΤΕ
ΑΝ ΣΚΟΡ[Ι,Κ]>ΣΚΟΡ[Κ,Ι] ΤΟΤΕ
ΒΑΘΜΟΛΟΓΙΑ[Ι] <-- ΒΑΘΜΟΛΟΓΙΑ[Ι]+3
ΑΛΛΙΩΣ_ΑΝ ΣΚΟΡ[Ι,Κ]=ΣΚΟΡ[Κ,Ι] ΤΟΤΕ
ΒΑΘΜΟΛΟΓΙΑ[Ι] <-- ΒΑΘΜΟΛΟΓΙΑ[Ι]+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ ΕΡΩΤΗΜΑ
ΦΛΑΓ <-- ΨΕΥΔΗΣ
Ι <-- 2
ΟΣΟ Ι<=8 ΚΑΙ ΦΛΑΓ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΦΛΑΓ <-- ΑΛΗΘΗΣ
ΓΙΑ Κ ΑΠΟ 8 ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
ΑΝ ΒΑΘΜΟΛΟΓΙΑ[Κ]>ΒΑΘΜΟΛΟΓΙΑ[Κ-1] ΤΟΤΕ
ΦΛΑΓ <-- ΨΕΥΔΗΣ
ΤΕΜΠΤ <-- ΒΑΘΜΟΛΟΓΙΑ[Κ]
ΒΑΘΜΟΛΟΓΙΑ[Κ] <-- ΒΑΘΜΟΛΟΓΙΑ[Κ-1]
ΒΑΘΜΟΛΟΓΙΑ[Κ-1] <-- ΤΕΜΠΤ
ΤΕΜΠΤ1 <-- ΟΝ[Κ]
ΟΝ[Κ] <-- ΟΝ[Κ-1]
ΟΝ[Κ-1] <-- ΤΕΜΠΤ1
ΤΕΛΟΣ_ΑΝ
ΑΝ ΒΑΘΜΟΛΟΓΙΑ[Κ]=ΒΑΘΜΟΛΟΓΙΑ[Κ-1] ΤΟΤΕ
ΣΥΜ1 <-- 0
ΣΥΜ2 <-- 0
ΓΙΑ Ξ ΑΠΟ 1 ΜΕΧΡΙ 8
ΑΝ Κ<>Ξ ΤΟΤΕ
ΣΥΜ1 <-- ΣΥΜ1+ΣΚΟΡ[Κ,Ξ]-ΣΚΟΡ[Ξ,Κ]
ΤΕΛΟΣ_ΑΝ
ΑΝ Κ-1<>Ξ ΤΟΤΕ
ΣΥΜ2 <-- ΣΥΜ2+ΣΚΟΡ[Κ-1,Ξ]-ΣΚΟΡ[Ξ,Κ-1]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΣΥΜ1>ΣΥΜ2 ΤΟΤΕ
ΦΛΑΓ <-- ΨΕΥΔΗΣ
ΤΕΜΠΤ1 <-- ΟΝ[Κ]
ΟΝ[Κ] <-- ΟΝ[Κ-1]
ΟΝ[Κ-1] <-- ΤΕΜΠΤ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Ι <-- Ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΡΑΨΕ Ι,'-Η ΟΜΑΔΑ ΕΙΝΑΙ=',ΟΝ[Ι],'ΜΕ ΒΑΘΜΟΛΟΓΙΑ=',ΒΑΘΜΟΛΟΓΙΑ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ