Τα 'Tab' δεν μου τα βγάζει =/ Στις σταθερές μέλη και κ βάλτε αντίστοιχα 10000 και 15.
ΠΡΟΓΡΑΜΜΑ Οργανισμός
ΣΤΑΘΕΡΕΣ
ΜΕΛΗ=10
Κ=10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΨΗΦ[ΜΕΛΗ,3],Ι,J,ΑΠ[Κ],ΑΚΥΡΑ,Τ,Β[Κ],Γ,Μ
ΧΑΡΑΚΤΗΡΕΣ:ΥΠ[Κ]
ΛΟΓΙΚΕΣ:Α
ΑΡΧΗ
!ΕΙΣΑΓΩΓΗ ΨΗΦΩΝ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΕΛΗ
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 3
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΨΗΦ[Ι,J]
ΚΑΛΕΣΕ ΕΛΕΓΧΟΣ(ΨΗΦ,Α,Ι,J)
ΜΕΧΡΙΣ_ΟΤΟΥ Α=ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΙΣΑΓΩΓΗ ΟΝΟΜΑΤΩΝ ΥΠΟΨΗΦΙΩΝ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Κ
ΔΙΑΒΑΣΕ ΥΠ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΣΥΝΟΛΙΚΩΝ ΨΗΦΩΝ & ΑΚΥΡΩΝ
ΚΑΛΕΣΕ ΥΠΟΛΟΓΙΣΜΟΣ(ΨΗΦ,ΑΠ,ΑΚΥΡΑ)
!ΕΥΡΕΣΗ ΥΠΟΨΗΦΙΩΝ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Κ
Β[Ι] <-- Ι
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ Κ
ΓΙΑ J ΑΠΟ Κ ΜΕΧΡΙ Ι ΜΕ ΒΗΜΑ -1
ΑΝ ΑΠ[J-1]<ΑΠ[J] ΤΟΤΕ
Τ <-- ΑΠ[J-1]
ΑΠ[J-1] <-- ΑΠ[J]
ΑΠ[J] <-- Τ
Γ <-- Β[J-1]
Β[J-1] <-- Β[J]
Β[J] <-- Γ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ ΥΠ[Β[Ι]],ΑΠ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Μ <-- ΑΠ[5]
Α <-- ΑΛΗΘΗΣ
ΓΙΑ Ι ΑΠΟ 6 ΜΕΧΡΙ Κ
ΑΝ ΑΠ[Ι]=Μ ΤΟΤΕ
ΓΡΑΨΕ ΥΠ[Β[Ι]],ΑΠ[Ι]
Α <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Α=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ ΥΠ[Β[5]],ΑΠ[5]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!ΔΙΑΔΙΚΑΣΙΑ ΕΛΕΓΧΟΥ
ΔΙΑΔΙΚΑΣΙΑ ΕΛΕΓΧΟΣ(ΨΗΦ,Α,Ι,J)
ΣΤΑΘΕΡΕΣ
ΜΕΛΗ=10
Κ=10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΨΗΦ[ΜΕΛΗ,3],Ι,J
ΛΟΓΙΚΕΣ:Α
ΑΡΧΗ
!ΕΛΕΓΧΟΣ ΓΙΑ ΑΚΥΡΑ (<>0)
ΑΝ ΨΗΦ[Ι,J]<>0 ΤΟΤΕ
!1ος ΨΗΦΟΣ
ΑΝ J=1 ΤΟΤΕ
Α <-- ΑΛΗΘΗΣ
!2ος ΨΗΦΟΣ
ΑΛΛΙΩΣ_ΑΝ J=2 ΤΟΤΕ
ΑΝ ΨΗΦ[Ι,1]<>ΨΗΦ[Ι,2] ΤΟΤΕ
Α <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
Α <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
!3ος ΨΗΦΟΣ
ΑΛΛΙΩΣ_ΑΝ J=3 ΤΟΤΕ
ΑΝ ΨΗΦ[Ι,1]<>ΨΗΦ[Ι,3] ΚΑΙ ΨΗΦ[Ι,2]<>ΨΗΦ[Ι,3] ΤΟΤΕ
Α <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
Α <-- ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
Α <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!ΔΙΑΔΙΚΑΣΙΑ ΥΠΟΛΟΓΙΣΜΟΥ ΨΗΦΩΝ & ΑΚΥΡΩΝ
ΔΙΑΔΙΚΑΣΙΑ ΥΠΟΛΟΓΙΣΜΟΣ(ΨΗΦ,ΑΠ,ΑΚΥΡΑ)
ΣΤΑΘΕΡΕΣ
ΜΕΛΗ=10
Κ=10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:ΨΗΦ[ΜΕΛΗ,3],Ι,J,ΑΠ[Κ],ΜΕΤΡ,ΑΚΥΡΑ,Λ
ΑΡΧΗ
ΑΚΥΡΑ <-- 0
!ΜΗΔΕΝΙΣΜΟΣ ΨΗΦΩΝ ΚΑΘΕ ΥΠΟΨΗΦΙΟΥ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Κ
ΑΠ[Ι] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ ΜΕΛΗ
ΜΕΤΡ <-- 0
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 3
!ΕΛΕΓΧΟΣ ΓΙΑ ΑΚΥΡΑ
ΑΝ ΨΗΦ[Ι,J]=0 ΤΟΤΕ
ΜΕΤΡ <-- ΜΕΤΡ+1
ΤΕΛΟΣ_ΑΝ
!ΕΛΕΓΧΟΣ ΨΗΦΩΝ
ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ Κ
ΑΝ ΨΗΦ[Ι,J]=Λ ΤΟΤΕ
ΑΠ[Λ] <-- ΑΠ[Λ]+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΜΕΤΡ=3 ΤΟΤΕ
ΑΚΥΡΑ <-- ΑΚΥΡΑ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Σημείωση: Το μήνυμα αυτό γράφτηκε 16 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.