Να και μια βιαστική λύση για το θέμα Δ.
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑΔ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι, Κ, Μ
ΠΡΑΓΜΑΤΙΚΕΣ:Τ, ΘΤ, Σ, ΜΟ, Θ[1000,1000], Π[1000,1000]
ΛΟΓΙΚΕΣ: ΙΣΧΥΕΙ
ΑΡΧΗ
ΔΙΑΒΑΣΕ Τ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 1000
ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 1000
Θ[Ι,Κ] <- Τ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΘΤ
ΜΕΧΡΙΣ_ΟΤΟΥ ΘΤ >= Τ+50
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 1000
Θ[Ι,1] <- ΘΤ
Θ[Ι,1000] <- ΘΤ
Θ[1,Ι] <- ΘΤ
Θ[1000,Ι] <- ΘΤ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Μ <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 999
ΓΙΑ Κ ΑΠΟ 2 ΜΕΧΡΙ 999
Π[Ι,Κ] <- Φ(Θ, Ι, Κ)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Σ <- 0
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 999
ΓΙΑ Κ ΑΠΟ 2 ΜΕΧΡΙ 999
Θ[Ι,Κ] <- Π[Ι,Κ]
Σ <- Σ + Θ[Ι,Κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <- Σ/998^2
Μ <- Μ + 1
ΜΕΧΡΙΣ_ΟΤΟΥ ΘΤ-ΜΟ<0.5
ΓΡΑΨΕ Μ
ΙΣΧΥΕΙ <- ΑΛΗΘΗΣ
Ι <- 2
ΟΣΟ Ι <= 500 ΚΑΙ ΙΣΧΥΕΙ ΕΠΑΝΑΛΑΒΕ
ΑΝ Θ[Ι,Ι]>Θ[Ι-1,Ι-1] Ή Θ[500+Ι,500+Ι]<Θ[500+Ι-1,500+Ι-1] ΤΟΤΕ
ΙΣΧΥΕΙ <- ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
Ι <- Ι + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΙΣΧΥΕΙ ΤΟΤΕ
ΓΡΑΨΕ 'ΙΣΧΥΕΙ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΔΕΝ ΙΣΧΥΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ Φ(Θ, Ι, Κ):ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:Ι, Κ, Μ, Ν
ΠΡΑΓΜΑΤΙΚΕΣ:Σ, Θ[1000,1000]
ΑΡΧΗ
Σ <- 0
ΓΙΑ Μ ΑΠΟ Ι-1 ΜΕΧΡΙ Ι+1
ΓΙΑ Ν ΑΠΟ Κ-1 ΜΕΧΡΙ Κ+1
Σ <- Σ + Θ[Μ,Ν]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Σ <- Σ + Θ[Ι,Κ]
Φ <- Σ/10
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ