2ο ΓΕΛ Γέρακα - ΠΛΗΡΟΦΟΡΙΚΗ - ΛΥΣΕΙΣ ΤΡΑΠΕΖΑΣ ΘΕΜΑΤΩΝ 35686

e-ΜΑΘΗΜΑΤΑ
ΠΛΗΡΟΦΟΡΙΚΗ
Λύσεις ασκήσεων Τράπεζας Θεμάτων
35686

ΠΡΟΓΡΑΜΜΑ Αεροπορικές_ΤΘ_35686



!ΘΕΜΑ 4

!Από το αεροδρόμιο ενός νησιού των Κυκλάδων αναχωρούν πτήσεις 10 αεροπορικών εταιρειών.

!Να αναπτύξετε πρόγραμμα σε ΓΛΩΣΣΑ, το οποίο:

!4.1. Να διαβάζει το όνομα κάθε εταιρείας και το πλήθος των εισιτηρίων

!κάθε εταιρείας ξεχωριστά για όλους τους μήνες του προηγούμενου έτους,

!αποθηκεύοντας τα δεδομένα σε κατάλληλους πίνακες. Να γίνεται έλεγχος

!στην καταχώριση του πλήθους των εισιτηρίων, που πρέπει να είναι αριθμός

!μεγαλύτερος ή ίσος του μηδενός. Στην περίπτωση εισαγωγής αρνητικής τιμής,

!το πρόγραμμα πρέπει να ζητάει νέα τιμή μέχρι να δοθεί έγκυρη.

!Μονάδες 7

!

!4.2. Να υπολογίζει και να εμφανίζει τα συνολικά εισιτήρια  του προηγούμενου

!έτους για κάθε εταιρεία.

!Μονάδες 8

!

!4.3. Να υπολογίζει και να εμφανίζει τις 6 εταιρείες με το μεγαλύτερο συνολικά

!αριθμό εισιτηρίων. Αν σε αυτές τις 6 υπάρχουν εταιρείες με ίδιο αριθμό εισιτηρίων

!να εμφανίζει αυτήν που προηγείται αλφαβητικά. Θεωρείστε ότι η 6η  και 7η εταιρεία

!δεν έχουν ίδιο αριθμό εισιτηρίων.

!Μονάδες 10





ΜΕΤΑΒΛΗΤΕΣ

  ΧΑΡΑΚΤΗΡΕΣ: εταιρεια[10], temp_ονομα

  ΑΚΕΡΑΙΕΣ: εισητ[10, 12], συνολο[10], i, j, k, temp_αριθ

ΑΡΧΗ

! 4.1 Ανάγνωση δεδομένων

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10

    ΓΡΑΨΕ 'Δώσε το όνομα της εταιρείας ', i, ':'

    ΔΙΑΒΑΣΕ εταιρεια[i] 



    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12

      ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

        ΓΡΑΨΕ 'Δώσε εισιτήρια για τον μήνα ', j, ' της εταιρείας ', εταιρεια[i], ': '

        ΔΙΑΒΑΣΕ εισητ[i, j] 

      ΜΕΧΡΙΣ_ΟΤΟΥ εισητ[i, j] >= 0

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



! 4.2 Υπολογισμός συνολικών εισιτηρίων ανά εταιρεία

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10

    συνολο[i] <- 0

    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12

      συνολο[i] <- συνολο[i] + εισητ[i, j] 

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ 'Η εταιρεία ', εταιρεια[i], ' είχε συνολικά ', συνολο[i], ' εισιτήρια.'

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



! 4.3 Εύρεση 6 εταιρειών με τα περισσότερα εισιτήρια

! Θα γίνει ταξινόμηση καθοδική με κριτήριο 1) συνολο, 2) αλφαβητικά

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10

    ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1

      ΑΝ (συνολο[j - 1] < συνολο[j]) 

        & Η (συνολο[j - 1] = συνολο[j] ΚΑΙ εταιρεια[j - 1] > εταιρεια[j]) ΤΟΤΕ

                                                             ! Ανταλλαγή αριθμών

        temp_αριθ <- συνολο[j - 1] 

        συνολο[j - 1] <- συνολο[j] 

        συνολο[j] <- temp_αριθ

                                                            ! Ανταλλαγή ονομάτων

        temp_ονομα <- εταιρεια[j - 1] 

        εταιρεια[j - 1] <- εταιρεια[j] 

        εταιρεια[j] <- temp_ονομα

      ΤΕΛΟΣ_ΑΝ

    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



  ΓΡΑΨΕ 'Οι 6 πρώτες εταιρείες είναι:'

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 6

    ΓΡΑΨΕ εταιρεια[i], ' με ', συνολο[i], ' εισιτήρια.'

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ