-
-
Save dmaroulidis/6bc911eb7d2d4f7f46b8b9854ac42c56 to your computer and use it in GitHub Desktop.
ΘΕΜΑ4.γλωσσα
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ΠΡΟΓΡΑΜΜΑ ΘΕΜΑ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 ΕΓΙΝΑΝ ', Σ, ' ΠΩΛΗΣΕΙΣ' | |
ΑΘΡ_ΣΤ[Ψ] <- Σ | |
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ | |
!ΜΕΣΟΣ ΟΡΟΣ | |
Σ <- 0 | |
ΓΙΑ Χ ΑΠΟ 1 ΜΕΧΡΙ 10 | |
ΓΙΑ Ψ ΑΠΟ 1 ΜΕΧΡΙ 12 | |
Σ <- Σ + Α[Χ, Ψ] | |
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ | |
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ | |
ΓΡΑΨΕ 'Ο Μ.Ο. ΠΩΛΗΣΕΩΝ ΓΙΑ ΤΗΝ ΔΕΚΑΕΤΙΑ 2000-2009 ΕΙΝΑΙ ', Σ/120 | |
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment