
02-04-08

12:07
Απαντηση στην 11
Code:
ΠΡΟΓΡΑΜΜΑ ΣΚΟΠΟΒΟΛΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι,J,ΒΟΛΗ[120,10],Β[10],ΣΒ[120],ΘΕΣΗ
ΧΑΡΑΚΤΗΡΕΣ:ΟΝΟΜΑ[120]
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 120
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[Ι]
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ ΒΟΛΗ[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 120
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 10
Β[J]<--ΒΟΛΗ[Ι,J]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΒ[Ι]<--ΒΑΘΜΟΛΟΓΙΑ(Β)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΜΕΓΙΣΤΟΣ(ΣΒ,ΘΕΣΗ)
ΓΡΑΨΕ ΟΝΟΜΑ[ΘΕΣΗ]
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΒΑΘΜΟΛΟΓΙΑ(Α): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Α[10],Ι,Σ,ΜΑΧ,ΜΙΝ
ΑΡΧΗ
ΜΑΧ<--Α[1]
ΜΙΝ<--Α[1]
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 10
ΑΝ Α[Ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<--Α[Ι]
ΑΛΛΙΩΣ_ΑΝ Α[Ι]<ΜΙΝ ΤΟΤΕ
ΜΙΝ<--Α[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Σ<--0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΑΝ Α[Ι]<>ΜΑΧ ΚΑΙ Α[Ι]<>ΜΙΝ ΤΟΤΕ
Σ<--Σ+Α[Ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΒΑΘΜΟΛΟΓΙΑ<--Σ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
ΔΙΑΔΙΚΑΣΙΑ ΜΕΓΙΣΤΟΣ(Π,ΜΑΧ_Θ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Π[120],Ι,ΜΑΧ,ΜΑΧ_Θ
ΑΡΧΗ
ΜΑΧ<--Π[1]
ΜΑΧ_Θ<--1
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 120
ΑΝ Π[Ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<--Π[Ι]
ΜΑΧ_Θ<--Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Σημείωση: Το μήνυμα αυτό γράφτηκε 17 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.