234 / 306
233
ΑΕΠΠ – Εκδόσεις ΜΠΑΧΑΡΑΚΗ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΤΑΙΡ[i]
Σ_ΕΤΑΙΡ (ΚΕΡΔΗ, i)
ΓΡΑΨΕ
ΕΤΑΙΡ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ
SUM /20
ΓΡΑΨΕ
ΜΟ
ΓΙΑ
i
ΑΠΟ
1
ΜΕΧΡΙ
20
ΤΑ[i]
0
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
3
ΤΑ[i]
ΤΑ[i]+ΚΕΡΔΗ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΒ[i]
0
ΓΙΑ
j
ΑΠΟ
2
ΜΕΧΡΙ
4
ΤΒ[i]
ΤΒ[i]+ΚΕΡΔΗ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΓ[i]
0
ΓΙΑ
j
ΑΠΟ
3
ΜΕΧΡΙ
5
ΤΓ[i]
ΤΓ[i]+ΚΕΡΔΗ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ
i
ΑΠΟ
1
ΜΕΧΡΙ
20
AΝ
ΤΑ[i] > ΤΒ[i]
ΚΑΙ
ΤΑ[i] > ΤΓ[i]
ΤΟΤΕ
ΓΡΑΨΕ
ΟΝ[i], ‘2001’
ΑΛΛΙΩΣ_ΑΝ
ΤΒ[i] > ΤΑ[i]
ΚΑΙ
ΤΒ[i] >ΤΓ[i]
ΤΟΤΕ
ΓΡΑΨΕ
ΟΝ[i], ‘2002’
ΑΛΛΙΩΣ
ΓΡΑΨΕ
ΟΝ[i], ‘2003’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!
Η συνάρτηση που καλεί το πρόγραμμα είναι:
ΣΥΝΑΡΤΗΣΗ
Σ_ΕΤΑΙΡ(ΚΕΡΔ, γραμμη):
ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ
: j,γραμμη
ΠΡΑΓΜΑΤΙΚΕΣ
: ΚΕΡΔ[20,5], sum
ΑΡΧΗ
Σ_ΕΤΑΙΡ
0
ΓΙΑ
j
ΑΠΟ ΜΕΧΡΙ
5
Σ_ΕΤΑΙΡ
Σ_ΕΤΑΙΡ+ ΚΕΡΔ [γραμμη, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ