ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 10

ΠΡΟΓΡΑΜΜΑ Εταιρία

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ: i, j, Π[70,250], σημείο, ΣΥΝ[70], Θ1, Θ2

ΠΡΑΓΜΑΤΙΚΕΣ: T[70], S, ΕΙΣΣ[250], ΕΙΣΠ[70], max, t1

ΧΑΡΑΚΤΗΡΕΣ: E[70],t2

ΑΡΧΗ

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 70

ΔΙΑΒΑΣΕ Ε[i], T[i]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 70

ΓΙΑ j ΑΠΟ 1 MEXΡΙ 250

S<--S+Π[i,j]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΕΙΣΠ[i]<--Σ*Τ[i]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ...εύρεση μεγίστων και θέσης για τους πίνακες ΕΙΣΠ και ΣΥΝΠ

ΓΡΑΨΕ ΕΙΣΠ[Θ1],ΣΥΝΠ[Θ2]

ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 250

S<--0

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 70

S<--S+Π[i,j]*T[i]

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

max<--ΕΙΣΣ[1]

σημείο<--1

ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 250 ! εισπράξεις ανά ημέρα

ΑΝ ΕΙΣΣ[j]>max ΤΟΤΕ

max<--ΕΙΣΣ[j]

σημείο<--j

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

max <--Π[1,σημείο] !μεγιστο στήλης σημείο

ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 70

ΑΝ Π[i,σημείο]>max ΤΟΤΕ

max<--Π[i,σημείο]

TEΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 70

ΑΝ Π[i,σημείο]=max ΤΟΤΕ

ΓΡΑΨΕ Ε[i]

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! ... φθίνουσα ταξινόμηση πίνακα Τ με ταυτόχρονη αντιμετάθεση πινάκων Ε και ΕΙΣΠ

! προσοχή στη χρήση των βοηθητικών μεταβλητών

ΓΙΑ i AΠΟ 1 ΜΕΧΡΙ 3

ΓΡΑΨΕ Ε[i], ΕΙΣΠ[i]

ΤΕΛΟΣ_ΕΠΕΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Εταιρία