ΠΡΟΓΡΑΜΜΑ ΕΡΕΥΝΑ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[20], τ, όνομα
ΛΟΓΙΚΕΣ: Υ[20, 300]
ΠΡΑΓΜΑΤΙΚΕΣ: Π[20]
ΑΚΕΡΑΙΕΣ: i, j, σύνολο, άρρωστα
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
σύνολο <- 0
άρρωστα <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 300
ΑΝ Υ[i, j] = ΨΕΥΔΗΣ Η Υ[i, j] = ΑΛΗΘΗΣ ΤΟΤΕ
σύνολο <- σύνολο + 1
ΑΝ Υ[i, j] ΤΟΤΕ
άρρωστα <- άρρωστα + 1
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ "ΜΗ ΕΓΚΥΡΗ ΤΙΜΗ ΣΤΗΝ ΘΕΣΗ ", i, ", ", j
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ σύνολο > 0 ΤΟΤΕ
Π[i] <- άρρωστα/σύνολο
ΑΛΛΙΩΣ
Π[i] <- 0
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ Ο[i], " Ποσοστό άρρωστων: ", Π[i]*100, "%"
ΑΝ Π[i] = 0 ΤΟΤΕ
ΓΡΑΨΕ "Δεν υπάρχει κρούσμα της νόσου"
ΑΛΛΙΩΣ_ΑΝ Π[i] < 0.3 ΤΟΤΕ
ΓΡΑΨΕ "Πρέπει να κληθεί ανώτερο κλιμάκιο υγείας"
ΑΛΛΙΩΣ_ΑΝ Π[i] > 0.5 ΤΟΤΕ
ΓΡΑΨΕ "Το ορνιθοτροφείο πρέπει να κλείσει άμεσα"
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 20 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ Π[i - 1] < Π[i] ΤΟΤΕ
Π[i - 1] <- Π[i - 1] + Π[i]
Π[i] <- Π[i - 1] - Π[i]
Π[i - 1] <- Π[i - 1] - Π[i]
τ <- Ο[i - 1]
Ο[i - 1] <- Ο[i]
Ο[i] <- τ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "Υψηλότερα ποσοστά:"
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ Ο[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "Δώσε όνομα ορνιθοτροφείου:"
ΔΙΑΒΑΣΕ όνομα
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ Ο[i] = όνομα ΤΟΤΕ
ΑΝ Π[i] = 0 ΤΟΤΕ
ΓΡΑΨΕ "Υγιές"
ΑΛΛΙΩΣ
ΓΡΑΨΕ "Άρρωστο"
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ