ΘΕΜΑ4.γλωσσα

ΘΕΜΑ4.γλωσσα

ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ4
ΣΤΑΘΕΡΕΣ
!ΜΕΤΡΗΤΗΣ = 4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[10, 12], Χ, Ψ, ΑΘΡ_ΓΡ[10], ΑΘΡ_ΣΤ[12], Σ
ΑΡΧΗ
  ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
      Α[Χ, Ψ] <- 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ
  ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΓΡΑΨΕ 'ΠΟΣΕΣ ΠΩΛΗΣΕΙΣ ΕΓΙΝΑΝ ΤΟΝ ', Ψ, 'ο ΜΗΝΑ ΤΟΥ ', 1999 + Χ, ';'
      ΔΙΑΒΑΣΕ Α[Χ, Ψ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΑ
  ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΓΡΑΨΕ 'ΤΟΝ ', Ψ, 'ο ΜΗΝΑ ΤΟΥ ', 1999 + Χ, ' ΕΓΙΝΑΝ ', Α[Χ, Ψ], ' ΠΩΛΗΣΕΙΣ'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΑΘΡΟΙΣΜΑΤΩΝ ΓΡΑΜΜΩΝ
  ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
    Σ <- 0
    ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
      Σ <- Σ + Α[Χ, Ψ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΤΟ ', 1999 + Χ, ' ΕΓΙΝΑΝ ', Σ, ' ΠΩΛΗΣΕΙΣ'
    ΑΘΡ_ΓΡ[Χ] <- Σ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΘΡΟΙΣΜΑ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ
  Σ <- 0
  ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
      Σ <- Σ + Α[Χ, Ψ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΣΥΝΟΛΙΚΑ ΤΗΝ 10ΕΤΙΑ 2000-2009 ΕΓΙΝΑΝ ', Σ, ' ΠΩΛΗΣΕΙΣ'

!ΑΘΡΟΙΣΜΑ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ
  Σ <- 0
  ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12
    Σ <- 0
    ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10
      Σ <- Σ + Α[Χ, Ψ] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΤΟΝ ', Ψ, 'ο ΜΗΝΑ ΓΙΑ ΤΗ ΔΕΚΑΕΤΙΑ 2000-2009 ΕΓΙΝΑΝ ', Σ, ' ΠΩΛΗΣΕΙΣ'
    ΑΘΡ_ΣΤ[Ψ] <- Σ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ