ΠΡΟΓΡΑΜΜΑ Εφοπλιστες
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j,Δ,Σ,ΣΔ[40],min
ΧΑΡΑΚΤΗΡΕΣ:ΕΦΠ[10],ΟΡΓ[40],ΑΠ[10,40]
ΑΡΧΗ
! ----- α ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ 'Δώσε όνομα ',i,'ου εφοπλιστή'
ΔΙΑΒΑΣΕ ΕΦΠ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
ΓΡΑΨΕ 'Δώσε όνομα ',j,'ης οργάνωσης'
ΔΙΑΒΑΣΕ ΟΡΓ[j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- β ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ο εφοπλιστής ',ΕΦΠ[i],'έχει κανει δωρεά στην οργάνωση',ΟΡΓ[j],'? (ΝΑΙ,ΟΧΙ)'
ΔΙΑΒΑΣΕ ΑΠ[i,j]
ΜΕΧΡΙΣ_ΟΤΟΥ (ΑΠ[i,j]='NAI') Ή (ΑΠ[i,j]='OXI')
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- γ ερωτημα ------
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
Δ <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
ΑΝ ΑΠ[i,j]='NAI' ΤΟΤΕ
Δ <-- Δ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΕΦΠ[i],'έχει κανει ',Δ,'δωρεές'
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ----- δ ερωτημα ------
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
Σ <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΑΝ ΑΠ[i,j]='NAI' ΤΟΤΕ
Σ <-- Δ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΔ[j] <-- Σ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
min <-- ΣΔ[1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 40
ΑΝ min<ΣΔ[j] ΤΟΤΕ
min <-- ΣΔ[j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 40
ΑΝ ΣΔ[j]=min ΤΟΤΕ
ΓΡΑΨΕ ΟΡΓ[j],'έχει λαβει τις λιγοτερες δωρεές'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ