243 / 306
Εκδόσεις ΜΠΑΧΑΡΑΚΗ – ΑΕΠΠ
242
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ[i]
ΜΕΣΟΣ_ΟΡΟΣ (ΠΛ_Θ , i)
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
5
Σ_ΕΡΓ
Σ_ΕΡΓ+ ΠΛ_Θ [i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ
j
ΑΠΟ
6
ΜΕΧΡΙ
7
Σ_ΣΚ
Σ_ΣΚ+ ΠΛ_Θ [i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ_ΕΡΓ[i]
Σ_ΕΡΓ/5
ΜΟ_ΣΚ[i]
Σ_ΣΚ/2
ΑΝ
ΜΟ_ΣΚ[i]/ΜΟ_ΕΡΓ[i] >= 1.1
ΤΟΤΕ
ΓΡΑΨΕ
ΟΝ[i]
ΤΕΛΟΣ_ΑΝ
ΠΛ
0
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
6
ΑΝ
ΠΛ_Θ [i, j] < ΠΛ_Θ[i, j+1]
ΤΟΤΕ
ΠΛ
ΠΛ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ
ΠΛ = 6
ΤΟΤΕ
ΓΡΑΨΕ
ΟΝ[i]
ΠΛ_ΣΤ
ΠΛ_ΣΤ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ
ΠΛ_ΣΤ = 0
ΤΟΤΕ
ΓΡΑΨΕ
‘Κανένας σταθμός δεν είχε συνεχή αύξηση τηλεθέασης’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! Η συνάρτηση που καλεί το πρόγραμμα είναι:
ΣΥΝΑΡΤΗΣΗ
MΕΣΟΣ_ΟΡΟΣ (ΠΛ_Θ_ΣΥΝ, ΓΡΑΜΜΗ)
: ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:
ΓΡΑΜΜΗ, j, ΠΛ_Θ_ΣΥΝ[5,7], SUM
AΡΧΗ
SUM
0
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
7
SUM
SUM + ΠΛ_Θ_ΣΥΝ[ΓΡΑΜΜΗ, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΣΟΣ_ΟΡΟΣ
SUM/7
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ