Άσκηση 1
ΠΡΟΓΡΑΜΜΑ ΣυγκρισηΠινακων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Π1[3,3], Π2[3,3], i, j, ιδια, συνολο
ΠΡΑΓΜΑΤΙΚΕΣ: ποσοστο
ΑΡΧΗ
ιδια <- 0
συνολο <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΔΙΑΒΑΣΕ Π1[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΔΙΑΒΑΣΕ Π2[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
συνολο <- συνολο + 1
ΑΝ Π1[i,j] = Π2[i,j] ΤΟΤΕ
ιδια <- ιδια + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ιδια = συνολο ΤΟΤΕ
ΓΡΑΨΕ 'Οι πίνακες είναι ίσοι.'
ΑΛΛΙΩΣ
ποσοστο <- (ιδια / συνολο) * 100
ΓΡΑΨΕ ποσοστο
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 2
ΠΡΟΓΡΑΜΜΑ ΑθροισμαΠινακων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Π1[3,3], Π2[3,3], ΑΘ[3,3], i, j
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΔΙΑΒΑΣΕ Π1[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΔΙΑΒΑΣΕ Π2[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΑΘ[i,j] <- Π1[i,j] + Π2[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΡΑΨΕ ΑΘ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 3
ΠΡΟΓΡΑΜΜΑ ΕλαχιστοΣτηλης_ΜεγιστοΓραμμης
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Π[4,4], i, j, στηλη, γραμμη, ελαχ, μεγ
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 4
ΔΙΑΒΑΣΕ Π[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ στηλη
ελαχ <- Π[1,στηλη]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 4
ΑΝ Π[i,στηλη] < ελαχ ΤΟΤΕ
ελαχ <- Π[i,στηλη]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ελαχ
ΔΙΑΒΑΣΕ γραμμη
μεγ <- Π[γραμμη,1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 4
ΑΝ Π[γραμμη,j] > μεγ ΤΟΤΕ
μεγ <- Π[γραμμη,j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ μεγ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 4
ΠΡΟΓΡΑΜΜΑ ΕλαχιστοΣτηλης_ΜεγιστοΓραμμης
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Π[4,4], ΕΛ[4], ΜΕ[4], i, j
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 4
ΔΙΑΒΑΣΕ Π[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 4
ΕΛ[j] <- Π[1,j]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 4
ΑΝ Π[i,j] < ΕΛ[j] ΤΟΤΕ
ΕΛ[j] <- Π[i,j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΜΕ[i] <- Π[i,1]
ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 4
ΑΝ Π[i,j] > ΜΕ[i] ΤΟΤΕ
ΜΕ[i] <- Π[i,j]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ ΕΛ[j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΓΡΑΨΕ ΜΕ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 5
ΠΡΟΓΡΑΜΜΑ ΑραιοςΠινακας
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Π[5,5], i, j, μηδενικα, συνολο
ΠΡΑΓΜΑΤΙΚΕΣ: ποσοστο
ΑΡΧΗ
μηδενικα <- 0
συνολο <- 25
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
ΔΙΑΒΑΣΕ Π[i,j]
ΑΝ Π[i,j] = 0 ΤΟΤΕ
μηδενικα <- μηδενικα + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ποσοστο <- (μηδενικα / συνολο) * 100
ΑΝ ποσοστο > 80 ΤΟΤΕ
ΓΡΑΨΕ 'Ο πίνακας είναι αραιός.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Ο πίνακας δεν είναι αραιός.'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 6
ΠΡΟΓΡΑΜΜΑ Ποδοσφαιρο
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΓΚΟΛ[16,32], i, j
ΑΚΕΡΑΙΕΣ: max_γκολ, ομαδα_max, αγωνιστικη_max
ΑΚΕΡΑΙΕΣ: συνολο_ομαδας, καλυτερη_ομαδα, χειροτερη_ομαδα
ΠΡΑΓΜΑΤΙΚΕΣ: μεσος[16]
ΑΚΕΡΑΙΕΣ: μετρητης[16]
ΑΡΧΗ
! Εισαγωγή γκολ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 32
ΔΙΑΒΑΣΕ ΓΚΟΛ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! i. Ομάδα και αγωνιστική με τα περισσότερα γκολ
max_γκολ <- ΓΚΟΛ[1,1]
ομαδα_max <- 1
αγωνιστικη_max <- 1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 32
ΑΝ ΓΚΟΛ[i,j] > max_γκολ ΤΟΤΕ
max_γκολ <- ΓΚΟΛ[i,j]
ομαδα_max <- i
αγωνιστικη_max <- j
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ομαδα_max, αγωνιστικη_max
! ii και iii. Καλύτερη και χειρότερη επίθεση
καλυτερη_ομαδα <- 1
χειροτερη_ομαδα <- 1
συνολο_ομαδας <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 32
συνολο_ομαδας <- συνολο_ομαδας + ΓΚΟΛ[1,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
μεσος[1] <- συνολο_ομαδας / 32
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 16
συνολο_ομαδας <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 32
συνολο_ομαδας <- συνολο_ομαδας + ΓΚΟΛ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
μεσος[i] <- συνολο_ομαδας / 32
ΑΝ συνολο_ομαδας > μεσος[καλυτερη_ομαδα] * 32 ΤΟΤΕ
καλυτερη_ομαδα <- i
ΤΕΛΟΣ_ΑΝ
ΑΝ συνολο_ομαδας < μεσος[χειροτερη_ομαδα] * 32 ΤΟΤΕ
χειροτερη_ομαδα <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ καλυτερη_ομαδα
ΓΡΑΨΕ χειροτερη_ομαδα
! iv. Πλήθος αγώνων με περισσότερα γκολ από το μέσο όρο κάθε ομάδας
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16
μετρητης[i] <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 32
ΑΝ ΓΚΟΛ[i,j] > μεσος[i] ΤΟΤΕ
μετρητης[i] <- μετρητης[i] + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 16
ΓΡΑΨΕ μετρητης[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 7
ΠΡΟΓΡΑΜΜΑ ΚρατησειςΣινεμα
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΕΡΓΟ[15,2], ζητουμενο_εργο
ΑΚΕΡΑΙΕΣ: ΧΩΡΗΤΙΚΟΤΗΤΑ[15], ΘΕΣΕΙΣ[15], i, διαθεσιμη_αιθουσα
ΧΑΡΑΚΤΗΡΕΣ: απαντηση
ΑΡΧΗ
! Αρχικοποίηση παραδειγματικών δεδομένων
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
ΔΙΑΒΑΣΕ ΕΡΓΟ[i,1] ! Όνομα έργου
ΔΙΑΒΑΣΕ ΕΡΓΟ[i,2] ! Ώρα προβολής κ.λπ.
ΔΙΑΒΑΣΕ ΧΩΡΗΤΙΚΟΤΗΤΑ[i]
ΔΙΑΒΑΣΕ ΘΕΣΕΙΣ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΠΑΝΑΛΑΒΕ
ΔΙΑΒΑΣΕ ζητουμενο_εργο
διαθεσιμη_αιθουσα <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
ΑΝ ΕΡΓΟ[i,1] = ζητουμενο_εργο ΚΑΙ ΘΕΣΕΙΣ[i] < ΧΩΡΗΤΙΚΟΤΗΤΑ[i] ΤΟΤΕ
διαθεσιμη_αιθουσα <- i
ΘΕΣΕΙΣ[i] <- ΘΕΣΕΙΣ[i] + 1
ΕΞΟΔΟΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ διαθεσιμη_αιθουσα = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Δεν υπάρχει διαθέσιμη αίθουσα για το έργο.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Κράτηση πραγματοποιήθηκε στην αίθουσα ', διαθεσιμη_αιθουσα
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Θέλετε να καταχωρήσετε νέα κράτηση; (ΝΑΙ/ΟΧΙ)'
ΔΙΑΒΑΣΕ απαντηση
ΜΕΧΡΙΣ_ΟΤΟΥ απαντηση = 'ΟΧΙ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8
ΠΡΟΓΡΑΜΜΑ ΣτατιστικαΤαμειων
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΤΑΜΕΙΑ[80]
ΠΡΑΓΜΑΤΙΚΕΣ: ΕΙΣΠΡΑΞΕΙΣ[80,360], συνολα[80], συνολο, μεσος
ΑΚΕΡΑΙΕΣ: i, j, max_ταμειο, min_ταμειο_2ου_τριμηνου
ΑΡΧΗ
! Εισαγωγή ονομάτων ταμείων
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 80
ΔΙΑΒΑΣΕ ΤΑΜΕΙΑ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Εισαγωγή εισπράξεων
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 80
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 360
ΔΙΑΒΑΣΕ ΕΙΣΠΡΑΞΕΙΣ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Υπολογισμός ετήσιων συνολικών εισπράξεων για κάθε ταμείο
συνολο <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 80
συνολα[i] <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 360
συνολα[i] <- συνολα[i] + ΕΙΣΠΡΑΞΕΙΣ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
συνολο <- συνολο + συνολα[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! i. Ταμείο με τις περισσότερες εισπράξεις
max_ταμειο <- 1
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 80
ΑΝ συνολα[i] > συνολα[max_ταμειο] ΤΟΤΕ
max_ταμειο <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΤΑΜΕΙΑ[max_ταμειο]
! ii. Ταμείο με τις λιγότερες εισπράξεις στο 2ο τρίμηνο (μέρες 91–180)
min_ταμειο_2ου_τριμηνου <- 1
min_ποσό <- 0
ΓΙΑ j ΑΠΟ 91 ΜΕΧΡΙ 180
min_ποσό <- min_ποσό + ΕΙΣΠΡΑΞΕΙΣ[1,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 80
συνολο_2ου <- 0
ΓΙΑ j ΑΠΟ 91 ΜΕΧΡΙ 180
συνολο_2ου <- συνολο_2ου + ΕΙΣΠΡΑΞΕΙΣ[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ συνολο_2ου < min_ποσό ΤΟΤΕ
min_ποσό <- συνολο_2ου
min_ταμειο_2ου_τριμηνου <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΤΑΜΕΙΑ[min_ταμειο_2ου_τριμηνου]
! iii. Ταμεία που ξεπέρασαν το συνολικό μέσο όρο
μεσος <- συνολο / 80
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 80
ΑΝ συνολα[i] > μεσος ΤΟΤΕ
ΓΡΑΨΕ ΤΑΜΕΙΑ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ