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


ΔΙΑΔΙΚΑΣΙΑ ελεγχος(ημ1, μην1, ημ2, μην2, λογι) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ημ1, μην1, ημ2, μην2
  ΛΟΓΙΚΕΣ: λογι
ΑΡΧΗ
  ΑΝ (μην1 < μην2) Η (μην1 = μην2 ΚΑΙ ημ1 < ημ2) ΤΟΤΕ
    λογι <- ΑΛΗΘΗΣ
  ΑΛΛΙΩΣ
    λογι <- ΨΕΥΔΗΣ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ αντιμεταθεση(ημ1, μην1, ημ2, μην2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ημ1, ημ2, μην1, μην2, τεμπ1, τεμπ2
ΑΡΧΗ
  τεμπ1 <- ημ1
  ημ1 <- ημ2
  ημ2 <- τεμπ1
  τεμπ2 <- μην1
  μην1 <- μην2
  μην2 <- τεμπ2
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ



!ArxeioEisodou
3
12
Α
30
5
7
Β
70
8
1
Γ
60
6
23
Δ
50
1
20
Ε
20
5
13
Ζ
90
5
12
Η
40
2
14
Θ
100
4
5
Ι
30
3
16
Κ
40
5
5
Λ
40
6
23
Μ
50
1
16
Ν
40
4
8
Ξ
30
5
10
Ο
60
4
2
Π
50
5
12
Ρ
20
1
10
Σ
30
4
14
Τ
30
5
1
Υ
40
5
14
Φ
60
6
6
Χ
20
5
30
Ψ
30
3
18
Ω
10
6
9
AA
10
4
30
1
20