33280
|
e-ΜΑΘΗΜΑΤΑ |
|
Λύσεις ασκήσεων Τράπεζας Θεμάτων |
33280
ΠΡΟΓΡΑΜΜΑ Λιμάνια_ΤΘ_33280
!ΘΕΜΑ 4
!Να αναπτύξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:
!4.1 Μετά το τμήμα δηλώσεων να καταχωρεί σε κατάλληλο πίνακα τα ονόματα
!των 50 μεγαλύτερων λιμένων της χώρας.
!Μονάδες 9
!4.2 Να καταχωρεί σε κατάλληλο πίνακα τις αφίξεις πλοίων σε κάθε λιμάνι
!για κάθε μέρα κατά τη διάρκεια του Ιανουαρίου.
!Μονάδες 5
!4.3 Να ταξινομεί τα λιμάνια με φθίνουσα σειρά συνολικών αφίξεων πλοίων.
!Μονάδες 8
!4.4 Να εμφανίζει ποια λιμάνια είχαν συνολικές αφίξεις μικρότερες από τον Μ.Ο.
!όλων των λιμανιών.
!Μονάδες 3
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ[50]
ΑΚΕΡΑΙΕΣ: ΑΦΙΞΕΙΣ[50, 31], ΣΥΝΟΛΟ[50]
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
ΑΚΕΡΑΙΕΣ: i, j, k, tempΑ
ΧΑΡΑΚΤΗΡΕΣ: tempON
ΑΡΧΗ
! 4.1 Διάβασμα ονομάτων λιμανιών
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ 'Δώσε όνομα λιμανιού ', i, ': '
ΔΙΑΒΑΣΕ ΟΝΟΜΑ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.2 Διάβασμα αφίξεων (Ιανουάριος 31 ημέρες)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 31
ΓΡΑΨΕ 'Δώσε αφίξεις λιμανιού ', ΟΝΟΜΑ[i], ' για την ημέρα ', j, ': '
ΔΙΑΒΑΣΕ ΑΦΙΞΕΙΣ[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Υπολογισμός συνολικών αφίξεων για κάθε λιμάνι
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΣΥΝΟΛΟ[i] <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 31
ΣΥΝΟΛΟ[i] <- ΣΥΝΟΛΟ[i] + ΑΦΙΞΕΙΣ[i, j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.3 Ταξινόμηση σε φθίνουσα σειρά
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 50
ΓΙΑ j ΑΠΟ 50 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ ΣΥΝΟΛΟ[j] > ΣΥΝΟΛΟ[j - 1] ΤΟΤΕ
tempΑ <- ΣΥΝΟΛΟ[j]
ΣΥΝΟΛΟ[j] <- ΣΥΝΟΛΟ[j - 1]
ΣΥΝΟΛΟ[j - 1] <- tempΑ
tempON <- ΟΝΟΜΑ[j]
ΟΝΟΜΑ[j] <- ΟΝΟΜΑ[j - 1]
ΟΝΟΜΑ[j - 1] <- tempON
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Εμφάνιση ταξινομημένων αποτελεσμάτων
ΓΡΑΨΕ 'Λιμάνια σε φθίνουσα σειρά αφίξεων:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ ΟΝΟΜΑ[i], ' -> ', ΣΥΝΟΛΟ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.4 Υπολογισμός Μ.Ο. και εμφάνιση λιμανιών κάτω από Μ.Ο.
ΜΟ <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΜΟ <- ΜΟ + ΣΥΝΟΛΟ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <- ΜΟ/ 50
ΓΡΑΨΕ 'Λιμάνια με αφίξεις κάτω από τον Μ.Ο. (', ΜΟ, '):'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ΣΥΝΟΛΟ[i] < ΜΟ ΤΟΤΕ
ΓΡΑΨΕ ΟΝΟΜΑ[i], ' -> ', ΣΥΝΟΛΟ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
