67 / 306
Εκδόσεις ΜΠΑΧΑΡΑΚΗ – ΑΕΠΠ
66
ΜΕΧΡΙΣ_ΟΤΟΥ
ΚΡΑΤ[i,j] = 'Κ'
Ή
ΚΡΑΤ[i,j] = 'Δ'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
S ← 0
ΓΙΑ
j
ΑΠΟ
1
ΜΕΧΡΙ
7
S ← S + ΚΕΡΔΟΣ(ΚΡΑΤ,j)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ
S > 0
ΤΟΤΕ
ΓΡΑΨΕ
'ΣΥΝΟΛΙΚΟ ΚΕΡΔΟΣ ΕΒΔΟΜΑΔΑΣ=',S,'ΕΥΡΩ'
ΑΛΛΙΩΣ_ΑΝ
S < 0
ΤΟΤΕ
ΓΡΑΨΕ
'ΣΥΝΟΛΙΚΗ ZHMIA ΕΒΔΟΜΑΔΑΣ=',S,'ΕΥΡΩ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ
'ΜΗΔΕΝΙΚΟ ΟΙΚΟΝΟΜΙΚΟ ΑΠΟΤΕΛΕΣΜΑ ΕΒΔΟΜΑΔΟΣ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ
ΚΕΡΔΟΣ(ΚΡΑΤ_Σ , j)
:ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ
: ΠΛ, i, j, ΑΡ_ΥΠ,ΕΣΟΔΑ_ΗΜΕΡΑΣ, ΕΞΟΔΑ_ΗΜΕΡΑΣ
ΧΑΡΑΚΤΗΡΕΣ
: ΚΡΑΤ_Σ[25,7]
ΑΡΧΗ
ΠΛ ← 0
ΓΙΑ
i
ΑΠΟ
1
ΜΕΧΡΙ
25
ΑΝ
ΚΡΑΤ_Σ[i,j] = 'Κ'
ΤΟΤΕ
ΠΛ ← ΠΛ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ
ΠΛ <= 4
ΤΟΤΕ
ΑΡ_ΥΠ ← 3
ΑΛΛΙΩΣ_ΑΝ
ΠΛ <= 8
ΤΟΤΕ
ΑΡ_ΥΠ ← 4
ΑΛΛΙΩΣ_ΑΝ
ΠΛ <= 12
ΤΟΤΕ
ΑΡ_ΥΠ ← 5
ΑΛΛΙΩΣ
ΑΡ_ΥΠ ← 6
ΤΕΛΟΣ_ΑΝ
ΕΣΟΔΑ_ΗΜΕΡΑΣ ← ΠΛ * 75
ΕΞΟΔΑ_ΗΜΕΡΑΣ ← ΑΡ_ΥΠ * 45
ΚΕΡΔΟΣ ← ΕΣΟΔΑ_ΗΜΕΡΑΣ - ΕΞΟΔΑ_ΗΜΕΡΑΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ