ΠΡΟΓΡΑΜΜΑ μαθητές_extreme
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,k,Μ,θ1,θ2
ΠΡΑΓΜΑΤΙΚΕΣ:ΒΑΘ[10,6],Σ,ΜΟ[10],temp,temp3,max,max2
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΜ[10], ΜΑΘ[6],temp2,ΜΘ_max,ON_max,ΜΑΘΤ,ΜΑΘΜ,ΜΑΘ2[6,10]
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
! ----- α ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ 'Δώσε όνομα ',i,'ου μαθητή'
ΔΙΑΒΑΣΕ ΟΝΜ[i]
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΡΑΨΕ 'Δώσε βαθμό του',ΟΝΜ[i],'στο μάθημα',j
ΔΙΑΒΑΣΕ ΒΑΘ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΡΑΨΕ 'Δώσε όνομα ',j,'ου μαθηματος'
ΔΙΑΒΑΣΕ ΜΑΘ[j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- β ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
Σ <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
Σ <-- Σ+ ΒΑΘ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ[i] <-- Σ/6
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
ΑΝ ΜΟ[j-1]<ΜΟ[j] ΤΟΤΕ
temp <-- ΜΟ[j-1]
ΜΟ[j-1] <-- ΜΟ[j]
ΜΟ[j] <-- temp
temp2 <-- ΟΝΜ[j-1]
ΟΝΜ[j-1] <-- ΟΝΜ[j]
ΟΝΜ[j] <-- temp2
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 6
temp3 <-- ΒΑΘ[j-1,k]
ΒΑΘ[j-1,k] <-- ΒΑΘ[j,k]
ΒΑΘ[j,k] <-- temp3
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 2
max <-- ΒΑΘ[i,1]
ΜΘ_max <-- ΜΑΘ[1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 6
ΑΝ ΒΑΘ[i,j]>max ΤΟΤΕ
max <-- ΒΑΘ[i,j]
ΜΘ_max <-- ΜΑΘ[j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ i,'ο μεγαλύτερο ΜΟ έχει ο', ΟΝΜ[i],'με μεγαλύτερο του βαθμό στο μαθημα',ΜΘ_max
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- γ ερωτημα ------
max2 <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
Μ <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΑΝ ΒΑΘ[i,j]>80 ΤΟΤΕ
Μ <-- Μ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Μ>=2 ΤΟΤΕ
ΑΝ ΜΟ[i]>max2 ΤΟΤΕ
max2 <-- ΜΟ[i]
ON_max <-- ΟΝΜ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ max2
! ----- δ ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
βρ <-- ψευδής
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 6
ΑΝ ( ΒΑΘ[i,j]>ΒΑΘ[i,j-1]) ΚΑΙ (βρ=ψευδής) ΤΟΤΕ
ΓΡΑΨΕ 'Στο μάθημα',ΜΑΘ[j],'βελτιώθηκε για πρωτη φορά ή επίδοση του',ΟΝΜ[i]
βρ <-- αληθής
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- ε ερωτημα ------
ΓΡΑΨΕ 'δώσε όνομα μαθητή και μαθήματος προς αναζήτηση'
ΔΙΑΒΑΣΕ ΜΑΘΤ,ΜΑΘΜ
i <-- 1
βρ <-- ψευδής
ΟΣΟ (i<=10) ΚΑΙ (βρ=ψευδής) ΕΠΑΝΑΛΑΒΕ
ΑΝ ΟΝΜ[i]=ΜΑΘΤ ΤΟΤΕ
θ1 <-- i
βρ <-- αληθής
ΤΕΛΟΣ_ΑΝ
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
j <-- 1
βρ <-- ψευδής
ΟΣΟ (j<=10) ΚΑΙ (βρ=ψευδής) ΕΠΑΝΑΛΑΒΕ
ΑΝ ΜΑΘ[j]=ΜΑΘΜ ΤΟΤΕ
θ2 <-- j
βρ <-- αληθής
ΤΕΛΟΣ_ΑΝ
j <-- j+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΒΑΘ[θ1,θ2]
! ----- στ ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
Μ <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΑΝ ΒΑΘ[i,j]>75 ΤΟΤΕ
Μ <-- Μ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΟΝΜ[i],'είναι'
ΑΝ Μ<=2 ΤΟΤΕ
ΓΡΑΨΕ 'Μέτριος'
ΑΛΛΙΩΣ_ΑΝ Μ<=4 ΤΟΤΕ
ΓΡΑΨΕ 'Καλός'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Αριστος'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- ζ ερωτημα ------
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
ΑΝ ΟΝΜ[j-1]>ΟΝΜ[j] ΤΟΤΕ
temp2 <-- ΟΝΜ[j-1]
ΟΝΜ[j-1] <-- ΟΝΜ[j]
ΟΝΜ[j] <-- temp2
ΓΙΑ k ΑΠΟ 1 ΜΕΧΡΙ 6
temp3 <-- ΒΑΘ[j-1,k]
ΒΑΘ[j-1,k] <-- ΒΑΘ[j,k]
ΒΑΘ[j,k] <-- temp3
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
ΜΑΘ2[i,j] <-- ΜΑΘ[j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 6
ΓΙΑ k ΑΠΟ 6 ΜΕΧΡΙ j ΜΕ ΒΗΜΑ -1
ΑΝ ΒΑθ[i,k-1]<ΒΑθ[i,k] ΤΟΤΕ
temp3 <-- ΒΑθ[i,k-1]
ΒΑθ[i,k-1] <-- ΒΑθ[i,k]
ΒΑθ[i,k] <-- temp3
temp2 <-- ΜΑΘ2[i,k-1]
ΜΑθ2[i,k-1] <-- ΜΑθ2[i,k]
ΜΑθ2[i,k] <-- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ ΟΝΜ[i]
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
ΓΡΑΨΕ ΒΑθ[i,j],'στο μαθημα',ΜΑθ2[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ