Δείτε και αυτή τη λύση:
ΠΡΟΓΡΑΜΜΑ φγ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: ΠΒ, ΓΒ, ατ, κ
ΑΚΕΡΑΙΕΣ: όρος
ΑΡΧΗ
ΔΙΑΒΑΣΕ ΓΒ, ΠΒ
ατ <- Α_Τ(ΠΒ - ΓΒ)
όρος <- Α_Μ(1 - Α_Μ(ατ/3)/20)
κ <- Α_Μ((ΠΒ - ΓΒ)/20 + 1)*2 - 1
ΠΒ <- ΠΒ*όρος + (1 - όρος)*κ*3 + ΓΒ*(1 - όρος)
ΓΡΑΨΕ ΠΒ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
όπου αν κάνετε τις πράξεις όρος = 1 αν η |ΠΒ-ΓΒ|<=3 και όρος =0 αν |ΠΒ-ΓΒ|>3
επίσης το κ=1 αν ΠΒ>=ΓΒ και κ=-1 αν ΠΒ<ΓΒ
Θεωρούμε ότι οι βαθμοί ανοίκουν στο [1,20].