Θέμα Δ

[gpapargi]

Εδώ σχολιάζουμε το θέμα Δ

[Sergio]

Μια λύση..

ΠΡΟΓΡΑΜΜΑ Μοντέλα
!Δ1
ΣΤΑΘΕΡΕΣ
  Ν = 15
  Μ = 30
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[Ν], ΜΟΝ, ψ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΑΤ[Ν, Μ], μιν, ΜΟ[Ν], χ
  ΑΚΕΡΑΙΕΣ: ι, κ, θ, θ_μιν
  ΛΟΓΙΚΕΣ: βρεθ
ΑΡΧΗ
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν ! Μοντέλο (ΓΡ)
    ΔΙΑΒΑΣΕ ΟΝ[ι]
    ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ Μ ! Ημέρα (ΣΤ)
      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
        ΔΙΑΒΑΣΕ ΚΑΤ[ι, κ]
      ΜΕΧΡΙΣ_ΟΤΟΥ ΚΑΤ[ι, κ] > 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !κ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !ι

!Δ2
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν ! Μοντέλο (ΓΡ)
    ΜΟ[ι] <- ΜΕΣΟΣ(ΚΑΤ, ι)
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

!Δ3
  ΔΙΑΒΑΣΕ ΜΟΝ
  θ <- 0
  βρεθ <- ΨΕΥΔΗΣ
  ι <- 1
  ΟΣΟ ι <= Ν ΚΑΙ βρεθ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΟΝ[ι] = ΜΟΝ ΤΟΤΕ
      βρεθ <- ΑΛΗΘΗΣ
      θ <- ι
    ΑΛΛΙΩΣ
      ι <- ι + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ βρεθ = ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'Το μοντέλο ΤΝ δεν υπάρχει'
  ΑΛΛΙΩΣ
    μιν <- ΚΑΤ[θ, 1]
    θ_μιν <- 1
    ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Μ ! Ημέρα (ΣΤ)
      ΑΝ ΚΑΤ[θ, ι] < μιν ΤΟΤΕ
        μιν <- ΚΑΤ[θ, ι]
        θ_μιν <- ι
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ θ_μιν
  ΤΕΛΟΣ_ΑΝ

!Δ4
  ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ κ ΑΠΟ Ν ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
      ΑΝ ΜΟ[κ] > ΜΟ[κ - 1] ΤΟΤΕ
        χ <- ΜΟ[κ]
        ΜΟ[κ] <- ΜΟ[κ - 1]
        ΜΟ[κ - 1] <- χ
        ψ <- ΟΝ[κ]
        ΟΝ[κ] <- ΟΝ[κ - 1]
        ΟΝ[κ - 1] <- ψ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !κ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !ι

  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ ΟΝ[ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

!Δ5
ΣΥΝΑΡΤΗΣΗ ΜΕΣΟΣ(Π, Χ): ΠΡΑΓΜΑΤΙΚΗ
ΣΤΑΘΕΡΕΣ
  Ν = 15
  Μ = 30
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Π[Ν, Μ], Σ
  ΑΚΕΡΑΙΕΣ: Χ, ι
ΑΡΧΗ
  Σ <- 0
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Μ ! Στήλη
    Σ <- Σ + Π[Χ, ι]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΕΣΟΣ <- Σ/ Μ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

[nikolasmer]

Το Θ <- 0 στην αναζήτηση το βάζουμε απλά για λόγους πληρότητας;

[petrosp13]

To ερώτημα που έχει την αναζήτηση είναι κάκιστα διατυπωμένο
Ο μαθητής έπρεπε να καταλάβει από μόνος του ότι έπρεπε να βρει το ελάχιστο ΓΙΑ ΤΟ ΣΥΓΚΕΚΡΙΜΕΝΟ ΟΝΟΜΑ
Λείπουν κάποιες καθοριστικές λέξεις
Υπάρχουν παιδιά που βρήκαν το ελάχιστο όλου του πίνακα
Θα έπρεπε να σκεφτούν πονηρά, αλλά φταίει και η διατύπωση