ΠΡΟΓΡΑΜΜΑ Κατηγορίες_Μαθητών
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, j, p1, p2, r1, r2
ΠΡΑΓΜΑΤΙΚΕΣ: Β[6,3]
ΑΡΧΗ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το βαθμό του',i,'μαθητή στο',j,'μάθημα'
ΔΙΑΒΑΣΕ Β[i,j]
ΜΕΧΡΙΣ_ΟΤΟΥ Β[i,j]>=0 ΚΑΙ Β[i,j]<=20
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
p1 <-- 0
p2 <-- 0
r1 <-- 0
r2 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6
ΑΝ Β[i,1]>=10 ΤΟΤΕ
p1 <-- p1+1
ΑΝ Β[i,1]>=18.5 ΤΟΤΕ
p2 <-- p2+1
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
r1 <-- r1+1
ΑΝ Β[i,1]>=9 ΤΟΤΕ
r2 <-- r2+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μαθητές που περνούν το πρώτο μάθημα', p1
ΓΡΑΨΕ 'Μαθητές που αρίστευσαν στο πρώτο μάθημα', p2
ΓΡΑΨΕ 'Μαθητές που κόπηκαν στο πρώτο μάθημα', r1
ΓΡΑΨΕ 'Μαθητές που κόπηκαν οριακά στο πρώτο μάθημα', r2
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ