ΠΡΟΓΡΑΜΜΑ άσκηση_9_Παραρτήματος_Α_σελ_120
ΣΤΑΘΕΡΕΣ
  Ν = 10
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΜΕΡΑ[Ν], ΜΗΝΑ[Ν], Ι, Κ, τεμπ, Η1, Μ1, Η2, Μ2, Αρχική_ημερομηνία, Τελική_ημερομηνία, ΑΑ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤΟΣ[Ν], τεμπ2, Σ
  ΧΑΡΑΚΤΗΡΕΣ: ΠΕΡΙΓΡΑΦΗ[Ν], τεμπ3
  ΛΟΓΙΚΕΣ: βρέθηκε1, βρέθηκε2
ΑΡΧΗ
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
    ΔΙΑΒΑΣΕ ΜΕΡΑ[Ι], ΜΗΝΑ[Ι], ΠΕΡΙΓΡΑΦΗ[Ι], ΚΟΣΤΟΣ[Ι] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ Κ ΑΠΟ Ν ΜΕΧΡΙ Ι ΜΕ_ΒΗΜΑ -1
      ΑΝ ΜΗΝΑ[Κ] < ΜΗΝΑ[Κ - 1] Η (ΜΗΝΑ[Κ] = ΜΗΝΑ[Κ - 1] ΚΑΙ ΜΕΡΑ[Κ] < ΜΕΡΑ[Κ - 1]) ΤΟΤΕ
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(ΜΗΝΑ[Κ], ΜΗΝΑ[Κ - 1]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ1(ΜΕΡΑ[Κ], ΜΕΡΑ[Κ - 1]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ2(ΚΟΣΤΟΣ[Κ], ΚΟΣΤΟΣ[Κ - 1]) 
        ΚΑΛΕΣΕ ΑΝΤΙΜΕΤΑΘΕΣΗ3(ΠΕΡΙΓΡΑΦΗ[Κ], ΠΕΡΙΓΡΑΦΗ[Κ - 1]) 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΔΙΑΒΑΣΕ Η1, Μ1, Η2, Μ2
  ΚΑΛΕΣΕ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΩΝ(Η1, Μ1, Η2, Μ2) 
  βρέθηκε1 <- ΨΕΥΔΗΣ
  Ι <- 1
  ΟΣΟ Ι <= Ν ΚΑΙ βρέθηκε1 = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ Μ1 = ΜΗΝΑ[Ι] ΚΑΙ Η1 = ΜΕΡΑ[Ι] ΤΟΤΕ
      Αρχική_ημερομηνία <- Ι
      βρέθηκε1 <- ΑΛΗΘΗΣ
    ΤΕΛΟΣ_ΑΝ
    Ι <- Ι + 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ βρέθηκε1 = ΑΛΗΘΗΣ ΤΟΤΕ
    βρέθηκε2 <- ΨΕΥΔΗΣ
    Ι <- Ι - 1
    ΟΣΟ Ι <= Ν ΚΑΙ βρέθηκε2 = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
      ΑΝ Μ2 = ΜΗΝΑ[Ι] ΚΑΙ Η2 = ΜΕΡΑ[Ι] ΤΟΤΕ
        Τελική_ημερομηνία <- Ι
        βρέθηκε2 <- ΑΛΗΘΗΣ
      ΤΕΛΟΣ_ΑΝ
      Ι <- Ι + 1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΑΝ
  ΑΝ βρέθηκε1 = ΨΕΥΔΗΣ Η βρέθηκε2 = ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'δεν δόθηκαν σωστές ημερομηνίες'
  ΑΛΛΙΩΣ
    Σ <- 0
    ΑΑ <- 1
    ΓΙΑ Ι ΑΠΟ Αρχική_ημερομηνία ΜΕΧΡΙ Τελική_ημερομηνία
      Σ <- Σ + ΚΟΣΤΟΣ[Ι] 
      ΓΡΑΨΕ ΑΑ, 'η δαπάνη ', ΠΕΡΙΓΡΑΦΗ[Ι], ' ', ΚΟΣΤΟΣ[Ι], ΜΕΡΑ[Ι], '/', ΜΗΝΑ[Ι] 
      ΑΑ <- ΑΑ + 1
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Συνολικό κόστος δαπανών ΓΙΑ τις ημερομηνίες από ', Η1, '/', Μ1, ' έως ', Η2, '/', Μ2, ' ήταν ', Σ
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ1(Κ, Λ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Κ, Λ, ΤΕΜΠ
ΑΡΧΗ
  ΤΕΜΠ <- Κ
  Κ <- Λ
  Λ <- ΤΕΜΠ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ2(Κ, Λ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Κ, Λ, ΤΕΜΠ
ΑΡΧΗ
  ΤΕΜΠ <- Κ
  Κ <- Λ
  Λ <- ΤΕΜΠ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
ΔΙΑΔΙΚΑΣΙΑ ΑΝΤΙΜΕΤΑΘΕΣΗ3(Κ, Λ) 
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: Κ, Λ, ΤΕΜΠ
ΑΡΧΗ
  ΤΕΜΠ <- Κ
  Κ <- Λ
  Λ <- ΤΕΜΠ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ 
ΔΙΑΔΙΚΑΣΙΑ ΕΛΕΓΧΟΣ_ΗΜΕΡΟΜΗΝΙΩΝ(Η1, Μ1, Η2, Μ2) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Η1, Μ1, Η2, Μ2, τεμπ1, τεμπ2
ΑΡΧΗ
  ΑΝ Μ1 = Μ2 ΤΟΤΕ
    ΑΝ Η1 > Η2 ΤΟΤΕ
      τεμπ1 <- Η2
      Η2 <- Η1
      Η1 <- τεμπ1
    ΤΕΛΟΣ_ΑΝ
  ΑΛΛΙΩΣ_ΑΝ Μ1 > Μ2 ΤΟΤΕ
    τεμπ2 <- Μ2
    Μ2 <- Μ1
    Μ1 <- τεμπ2
    τεμπ1 <- Η2
    Η2 <- Η1
    Η1 <- τεμπ1
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!ArxeioEisodou
10
1
Αγορά Αναλώσιμων
1000
11
2
Μεταφορικά
500
4
1
Μισθοί
10000
5
2
Αποζημιώσεις
5000
20
1
Καθαριστικά
300
15
2
ΔΕΗ
5000
18
1
ΔΕΗΑΝ
500
2
1
Ενοίκια
6000
4
1
Φαγητό
300
2
2
Ενοίκια 
6000