ΠΡΟΓΡΑΜΜΑ Άσκηση_5_4_9
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ημέρα[Ν], Μήνας[Ν], Κόστος[Ν], Απο_Ημέρα, Απο_Μήνας, Μέχρι_Ημέρα, Μέχρι_Μήνας
  ΧΑΡΑΚΤΗΡΕΣ: Περιγραφή[Ν], ΕΠΙΛΟΓΗ
ΑΡΧΗ
  ΚΑΛΕΣΕ ΚΑΤΑΧΩΡΗΣΗ(Ημέρα, Μήνας, Περιγραφή, Κόστος) 
  ΚΑΛΕΣΕ ΤΑΞΙΝΟΜΗΣΗ(Ημέρα, Μήνας, Περιγραφή, Κόστος) 
  ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ(Ημέρα, Μήνας, Περιγραφή, Κόστος, 1, Ν) ! ΔΕΝ ΖΗΤΕΙΤΑΙ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΠΕΡΙΟΔΟΣ ΔΑΠΑΝΗΣ [<ENTER> ΓΙΑ ΣΥΝΕΧΕΙΑ, <ESC> ΓΙΑ ΔΙΑΚΟΠΗ] : "
    ΔΙΑΒΑΣΕ ΕΠΙΛΟΓΗ
    ΑΝ ΕΠΙΛΟΓΗ = "" ΤΟΤΕ
      ΚΑΛΕΣΕ ΠΕΡΙΟΔΟΣ_ΔΑΠΑΝΗΣ(Απο_Ημέρα, Απο_Μήνας, Μέχρι_Ημέρα, Μέχρι_Μήνας) 
      ΚΑΛΕΣΕ ΣΥΝΟΛΙΚΗ_ΔΑΠΑΝΗ(Ημέρα, Μήνας, Περιγραφή, Κόστος, Απο_Ημέρα, Απο_Μήνας, Μέχρι_Ημέρα, Μέχρι_Μήνας) 
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΕΠΙΛΟΓΗ <> ""
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΚΑΤΑΧΩΡΗΣΗ(Ημέρα1, Μήνας1, Περιγραφή1, Κόστος1) 
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, Ημέρα1[Ν], Μήνας1[Ν], Κόστος1[Ν] 
  ΧΑΡΑΚΤΗΡΕΣ: Περιγραφή1[Ν] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ i, "η ΔΑΠΆΝΗ"
    ΓΡΑΨΕ "ΗΜΈΡΑ : "
    ΔΙΑΒΑΣΕ Ημέρα1[i] 
    ΓΡΑΨΕ "ΜΗΝΑΣ : "
    ΔΙΑΒΑΣΕ Μήνας1[i] 
    ΓΡΑΨΕ "ΠΕΡΙΓΡΑΦΗ : "
    ΔΙΑΒΑΣΕ Περιγραφή1[i] 
    ΓΡΑΨΕ "ΚΟΣΤΟΣ : "
    ΔΙΑΒΑΣΕ Κόστος1[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΤΑΞΙΝΟΜΗΣΗ(Ημέρα2, Μήνας2, Περιγραφή2, Κόστος2) 
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, Ημέρα2[Ν], Μήνας2[Ν], Κόστος2[Ν] 
  ΧΑΡΑΚΤΗΡΕΣ: Περιγραφή2[Ν] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Μήνας2[j - 1] > Μήνας2[j] ΤΟΤΕ
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Μήνας2[j - 1], Μήνας2[j]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Ημέρα2[j - 1], Ημέρα2[j]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ2(Περιγραφή2[j - 1], Περιγραφή2[j]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Κόστος2[j - 1], Κόστος2[j]) 
      ΑΛΛΙΩΣ_ΑΝ Μήνας2[j - 1] = Μήνας2[j] ΤΟΤΕ
        ΑΝ Ημέρα2[j - 1] > Ημέρα2[j] ΤΟΤΕ
          ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Ημέρα2[j - 1], Ημέρα2[j]) 
          ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ2(Περιγραφή2[j - 1], Περιγραφή2[j]) 
          ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Κόστος2[j - 1], Κόστος2[j]) 
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΚΤΥΠΩΣΗ(Ημέρα3, Μήνας3, Περιγραφή3, Κόστος3, Α3, Τ3) 
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, Α3, Τ3, Ημέρα3[Ν], Μήνας3[Ν], Κόστος3[Ν] 
  ΧΑΡΑΚΤΗΡΕΣ: Περιγραφή3[Ν] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ Α3 ΜΕΧΡΙ Τ3
    ΓΡΑΨΕ i, "η ΔΑΠΆΝΗ :"
    ΓΡΑΨΕ "ΗΜΕΡΟΜΗΝΙΑ : ", Ημέρα3[i], "/", Μήνας3[i], "  ΠΕΡΙΓΡΑΦΗ : ", Περιγραφή3[i], "  ΚΟΣΤΟΣ : ", Κόστος3[i], " €"
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΠΕΡΙΟΔΟΣ_ΔΑΠΑΝΗΣ(day1, month1, day2, month2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: day1, month1, day2, month2
ΑΡΧΗ
  ΓΡΑΨΕ "ΑΠΟ ΗΜΕΡΑ : "
  ΔΙΑΒΑΣΕ day1
  ΓΡΑΨΕ "ΑΠΟ ΜΗΝΑ : "
  ΔΙΑΒΑΣΕ month1
  ΓΡΑΨΕ "ΜΕΧΡΙ ΗΜΕΡΑ : "
  ΔΙΑΒΑΣΕ day2
  ΓΡΑΨΕ "ΜΕΧΡΙ ΜΗΝΑ : "
  ΔΙΑΒΑΣΕ month2
  ΚΑΛΕΣΕ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΑΣ(day1, month1, day2, month2) 
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΑΣ(Η1, Μ1, Η2, Μ2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Η1, Μ1, Η2, Μ2
ΑΡΧΗ
  ΑΝ Μ1 > Μ2 Η (Μ1 = Μ2 ΚΑΙ Η1 > Η2) ΤΟΤΕ
    ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Η1, Η2) 
    ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Μ1, Μ2) 
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΣΥΝΟΛΙΚΗ_ΔΑΠΑΝΗ(Ημέρα5, Μήνας5, Περιγραφή5, Κόστος5, ΗΗ1, ΜΜ1, ΗΗ2, ΜΜ2) 
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ημέρα5[Ν], Μήνας5[Ν], Κόστος5[Ν], ΗΗ1, ΜΜ1, ΗΗ2, ΜΜ2, i, Σ, Θ1, Θ2
  ΧΑΡΑΚΤΗΡΕΣ: Περιγραφή5[Ν] 
ΑΡΧΗ
  Σ <- 0
  Θ1 <- ΑΝΑΖΗΤΗΣΗ_Θ1(Ημέρα5, Μήνας5, ΗΗ1, ΜΜ1) 
  Θ2 <- ΑΝΑΖΗΤΗΣΗ_Θ2(Ημέρα5, Μήνας5, ΗΗ2, ΜΜ2) 
  ΑΝ Θ1 <> 0 ΚΑΙ Θ2 <> 0 ΤΟΤΕ
    ΚΑΛΕΣΕ ΕΚΤΥΠΩΣΗ(Ημέρα5, Μήνας5, Περιγραφή5, Κόστος5, Θ1, Θ2) 
    ΓΙΑ i ΑΠΟ Θ1 ΜΕΧΡΙ Θ2
      Σ <- Σ + Κόστος5[i] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ "ΣΥΝΟΛΙΚΗ ΔΑΠΑΝΗ ΓΙΑ ΤΗ ΣΥΓΚΕΚΡΙΜΕΝΗ ΠΕΡΙΟΔΟ : ", Σ, " €"
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "ΔΩΣΑΤΕ ΛΑΘΟΣ ΗΜΕΡΟΜΗΝΙΕΣ"
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ ΑΝΑΖΗΤΗΣΗ_Θ1(ΗΧ, ΜΧ, ΑΧ, ΤΧ): ΑΚΕΡΑΙΑ
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΗΧ[Ν], ΜΧ[Ν], ΑΧ, ΤΧ, i
ΑΡΧΗ
  ΑΝΑΖΗΤΗΣΗ_Θ1 <- 0 ! ΔΕΝ ΒΡΕΘΗΚΕ ΑΚΟΜΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΑΝ (ΜΧ[i] = ΤΧ ΚΑΙ ΗΧ[i] >= ΑΧ) Η ΜΧ[i] > ΤΧ ΤΟΤΕ
      ΑΝΑΖΗΤΗΣΗ_Θ1 <- i
      i <- Ν ! ΔΙΑΚΟΠΗ ΕΠΑΝΑΛΗΨΕΩΝ - ΒΡΕΘΗΚΕ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΣΥΝΑΡΤΗΣΗ ΑΝΑΖΗΤΗΣΗ_Θ2(ΗΧ, ΜΧ, ΑΧ, ΤΧ): ΑΚΕΡΑΙΑ
ΣΤΑΘΕΡΕΣ
  Ν = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΗΧ[Ν], ΜΧ[Ν], ΑΧ, ΤΧ, i
ΑΡΧΗ
  ΑΝΑΖΗΤΗΣΗ_Θ2 <- 0 ! ΔΕΝ ΒΡΕΘΗΚΕ ΑΚΟΜΗ
  ΓΙΑ i ΑΠΟ Ν ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
    ΑΝ (ΜΧ[i] = ΤΧ ΚΑΙ ΗΧ[i] <= ΑΧ) Η ΜΧ[i] < ΤΧ ΤΟΤΕ
      ΑΝΑΖΗΤΗΣΗ_Θ2 <- i
      i <- 0 ! ΔΙΑΚΟΠΗ ΕΠΑΝΑΛΗΨΕΩΝ - ΒΡΕΘΗΚΕ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Ακέραιος1, Ακέραιος2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ακέραιος1, Ακέραιος2, temp1
ΑΡΧΗ
  temp1 <- Ακέραιος1
  Ακέραιος1 <- Ακέραιος2
  Ακέραιος2 <- temp1
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ2(Κείμενο1, Κείμενο2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Κείμενο1, Κείμενο2, temp2
ΑΡΧΗ
  temp2 <- Κείμενο1
  Κείμενο1 <- Κείμενο2
  Κείμενο2 <- temp2
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ