ΠΡΟΓΡΑΜΜΑ ασκηση
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: κ
ΑΡΧΗ

  ΚΑΛΕΣΕ τα_παντα_ολα(κ) 
  
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ





ΔΙΑΔΙΚΑΣΙΑ διαβασμα_θερμ_πολεων(θερμ, πολη) 
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, ξ
  ΠΡΑΓΜΑΤΙΚΕΣ: θερμ[πολεις, βδ] 

  ΧΑΡΑΚΤΗΡΕΣ: πολη[πολεις] 
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις
    ΔΙΑΒΑΣΕ πολη[ι] 
    ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ βδ
      ΔΙΑΒΑΣΕ θερμ[ι, ξ] 
      ΟΣΟ θερμ[ι, ξ] > 50 Η θερμ[ι, ξ] < -30 ΕΠΑΝΑΛΑΒΕ
        ΓΡΑΨΕ "δωσε απο -30 μεχρι 50 βαθμους γιατι θα μας παγωσεις η θα μας καψεις"
        ΔΙΑΒΑΣΕ θερμ[ι, ξ] 
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 



ΣΥΝΑΡΤΗΣΗ μεση_θερμ(πινακ, θ, αρχ, τελ): ΠΡΑΓΜΑΤΙΚΗ
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: πινακ[πολεις, βδ], σ

  ΑΚΕΡΑΙΕΣ: ξ, θ, αρχ, τελ

ΑΡΧΗ
  σ <- 0

  ΓΙΑ ξ ΑΠΟ αρχ ΜΕΧΡΙ τελ
    σ <- πινακ[θ, ξ] + σ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  μεση_θερμ <- σ/(τελ - αρχ + 1) 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ βρες_μεση(μεση, πολη, θερμ) 
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: μεση, θερμ[πολεις, βδ] 
  ΑΚΕΡΑΙΕΣ: ι, ξ
  ΧΑΡΑΚΤΗΡΕΣ: πολη[πολεις] 
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις
    μεση <- μεση_θερμ(θερμ, ι, 1, βδ) 
    ΓΡΑΨΕ "στην ", πολη[ι], " μεση θερμ=", μεση
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 


ΔΙΑΔΙΚΑΣΙΑ καθημερινεςvsσκ( θερμ, πολη) 
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: θερμ[πολεις, βδ] 
  ΑΚΕΡΑΙΕΣ: ι, ξ
  ΠΡΑΓΜΑΤΙΚΕΣ: μεση, μεση2
  ΧΑΡΑΚΤΗΡΕΣ: πολη[πολεις] 
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις
    μεση <- μεση_θερμ(θερμ, ι, 6, βδ) 
    μεση2 <- μεση_θερμ(θερμ, ι, 1, 5) 
    ΓΡΑΨΕ "πολεις με μεση_θερμ_σκ>20%μεση_θερμ_καθημερινων:"
    ΑΝ μεση >= μεση2*20/100 ΤΟΤΕ
      ΓΡΑΨΕ πολη[ι] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 

ΔΙΑΔΙΚΑΣΙΑ τα_παντα_ολα(κ) 
ΣΤΑΘΕΡΕΣ
  πολεις = 5
  βδ = 7
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, ξ, κ
  ΠΡΑΓΜΑΤΙΚΕΣ: θερμ[πολεις, βδ], μεση, μεση2
  ΧΑΡΑΚΤΗΡΕΣ: πολη[πολεις] 
  ΛΟΓΙΚΕΣ: φλαγκ
ΑΡΧΗ
  ΚΑΛΕΣΕ διαβασμα_θερμ_πολεων(θερμ, πολη) 
  ΚΑΛΕΣΕ βρες_μεση(μεση, πολη, θερμ) 

  ΚΑΛΕΣΕ καθημερινεςvsσκ( θερμ, πολη) 
  κ <- 0
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις
    φλαγκ <- ΨΕΥΔΗΣ
    ΓΙΑ ξ ΑΠΟ 2 ΜΕΧΡΙ βδ
      ΑΝ θερμ[ι, ξ - 1] > θερμ[ι, ξ] ΤΟΤΕ
        φλαγκ <- ΑΛΗΘΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ φλαγκ = ΨΕΥΔΗΣ ΤΟΤΕ
      κ <- 1
      ΓΡΑΨΕ "σε αυξουσα σειρα η ", πολη[ι] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ κ = 0 ΤΟΤΕ
    ΓΡΑΨΕ "δεν υπαρχουν πολεις με θερμοκρασιες σε αυξουσα σειρα"
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ