34249
|
e-ΜΑΘΗΜΑΤΑ |
|
Λύσεις ασκήσεων Τράπεζας Θεμάτων |
34249
ΠΡΟΓΡΑΜΜΑ τουριστικό_γραφείο_ΤΘ_34249
!ΘΕΜΑ 4
!Ένα τουριστικό γραφείο οργανώνει εκδρομές σε 20 δημοφιλείς προορισμούς στην ενδοχώρα.
!Για κάθε προορισμό αποθηκεύει το όνομα του προορισμού, το πλήθος των ημερών εκδρομής,
!το συνολικό κόστος και το ποσοστό πληρότητας.
!Να γραφτεί πρόγραμμα σε γλώσσα προγραμματισμού ΓΛΩΣΣΑ το οποίο:
!
!4.1 Να περιλαμβάνει το τμήμα δηλώσεων.
! Μονάδες 2
!4.2 Να διαβάζει τα ονόματα των προορισμών, τις ημέρες εκδρομής, το συνολικό κόστος
!και το ποσοστό πληρότητας και να τα καταχωρεί σε αντίστοιχους πίνακες.
!Να γίνεται έλεγχος εγκυρότητας ως προς τις ημέρες (αποδεκτές τιμές από 1 έως και 7)
!και ως προς το ποσοστό πληρότητας (αποδεκτές τιμές 40% έως 100%).
!Μονάδες 8
!4.3 Να υπολογίζει και να τυπώνει τον πιο ακριβό προορισμό, με βάση το κόστος
!ανά ημέρα και τον πιο δημοφιλή προορισμό, με βάση τη μέγιστη πληρότητα
!Μονάδες 11
!4.4 Να υπολογίζει και να τυπώνει το πλήθος των μη-δημοφιλών προορισμών
!(ένας προορισμός χαρακτηρίζεται μη-δημοφιλής όταν η πληρότητά του είναι κάτω από 65%).
!Μονάδες 4
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[20]
ΑΚΕΡΑΙΕΣ: ΗΜΕΡ[20], i, ΜηΔημοφιλείς, ΘέσηΑκριβότερου, ΘέσηΔημοφιλέστερου
ΠΡΑΓΜΑΤΙΚΕΣ: ΚΟΣΤ[20], ΠΛΗΡ[20], ΚόστοςΗμέρας
ΑΡΧΗ
! 4.2 Εισαγωγή με ελέγχους εγκυρότητας
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ 'Προορισμός ', i, ': Δώσε όνομα:'
ΔΙΑΒΑΣΕ ΟΝ[i]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε ημέρες εκδρομής (1..7) για ', ΟΝ[i], ':'
ΔΙΑΒΑΣΕ ΗΜΕΡ[i]
ΜΕΧΡΙΣ_ΟΤΟΥ ΗΜΕΡ[i] >= 1 ΚΑΙ ΗΜΕΡ[i] <= 7
ΓΡΑΨΕ 'Δώσε συνολικό κόστος (€) για ', ΟΝ[i], ':'
ΔΙΑΒΑΣΕ ΚΟΣΤ[i]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε ποσοστό πληρότητας (40..100) για ', ΟΝ[i], ':'
ΔΙΑΒΑΣΕ ΠΛΗΡ[i]
ΜΕΧΡΙΣ_ΟΤΟΥ ΠΛΗΡ[i] >= 40 ΚΑΙ ΠΛΗΡ[i] <= 100
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 4.3 Υπολογισμοί: ακριβότερος ανά ημέρα & πιο δημοφιλής
ΜηΔημοφιλείς <- 0
ΘέσηΑκριβότερου <- 1
ΘέσηΔημοφιλέστερου <- 1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ ΠΛΗΡ[i] < 65 ΤΟΤΕ
ΜηΔημοφιλείς <- ΜηΔημοφιλείς + 1
ΤΕΛΟΣ_ΑΝ
ΑΝ ΚΟΣΤ[i]/ ΗΜΕΡ[i] > ΚΟΣΤ[ΘέσηΑκριβότερου]/ ΗΜΕΡ[ΘέσηΑκριβότερου] ΤΟΤΕ
ΘέσηΑκριβότερου <- i
ΤΕΛΟΣ_ΑΝ
ΑΝ ΠΛΗΡ[i] > ΠΛΗΡ[ΘέσηΔημοφιλέστερου] ΤΟΤΕ
ΘέσηΔημοφιλέστερου <- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚόστοςΗμέρας <- ΚΟΣΤ[ΘέσηΑκριβότερου]/ ΗΜΕΡ[ΘέσηΑκριβότερου]
ΓΡΑΨΕ 'Πιο ακριβός προορισμός (€/ημέρα): ', ΟΝ[ΘέσηΑκριβότερου],
& ' με κόστος/ημ = ', ΚόστοςΗμέρας
ΓΡΑΨΕ 'Πιο δημοφιλής προορισμός: ', ΟΝ[ΘέσηΔημοφιλέστερου],
& ' με πληρότητα = ', ΠΛΗΡ[ΘέσηΔημοφιλέστερου], '%'
! 4.4 Πλήθος μη-δημοφιλών (<65%)
ΓΡΑΨΕ 'Πλήθος μη-δημοφιλών προορισμών (<65%): ', ΜηΔημοφιλείς
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
