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

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

ΠΡΟΓΡΑΜΜΑ ΑΕΡΟΣΥΝΟΔΟΙ_ΤΘ_24646

!ΘΕΜΑ 4

!Μια αεροπορική εταιρεία καταγράφει σε ηλεκτρονικό αρχείο τα στοιχεία

!των ιπτάμενων φροντιστών (αεροσυνοδών) που απασχολεί.

!Συγκεκριμένα σε πίνακα ΟΝ[1000] αποθηκεύει τα ονοματεπώνυμά τους,

!σε πίνακα ΜΙΛΙΑ[1000,12] τα μίλια πτήσεων που πραγματοποίησαν ανά μήνα

!κατά το περασμένο έτος και σε πίνακα ΑΠΟΔ[1000] τις ετήσιες αποδοχές τους σε ευρώ.

!Να γραφεί πρόγραμμα σε ΓΛΩΣΣΑ που:

!4.1 Περιλαμβάνει κατάλληλο τμήμα δηλώσεων.

!Μονάδες 2

!4.2 Διαβάζει το πλήθος (ΠΛΗΘ) των ιπτάμενων φροντιστών που απασχολεί η εταιρεία,

!ελέγχοντας ότι ΠΛΗΘ<=1000. Στη συνέχεια, διαβάζει κι αποθηκεύει στους

!πίνακες ΟΝ, ΜΙΛΙΑ, ΑΠΟΔ, που αναφέρθηκαν παραπάνω, τα στοιχεία των ιπτάμενων

!φροντιστών, χωρίς να πραγματοποιείται έλεγχος ορθότητας των δεδομένων που εισάγονται.

!Μονάδες 8

!4.3 Υπολογίζει κι αποθηκεύει σε πίνακα Σ_ΜΙΛ τα συνολικά ετήσια μίλια πτήσης

!κάθε φροντιστή αέρος.

!Μονάδες 7

!4.4 Βρίσκει κι εμφανίζει το όνομα του φροντιστή αέρος με τα περισσότερα

!ετήσια μίλια πτήσης, καθώς και τις ετήσιες αποδοχές του. Θεωρούμε

!πως οι ιπτάμενοι φροντιστές πραγματοποίησαν διαφορετικά μίλια πτήσης ετησίως.

!Μονάδες 8



ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΠΛΗΘ, i, j, θέση

  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΙΛΙΑ[1000, 12], ΑΠΟΔ[1000], Σ_ΜΙΛ[1000], max_μίλια

  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[1000] 

ΑΡΧΗ

                                            ! 4.2 Ανάγνωση πλήθους και δεδομένων

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

    ΓΡΑΨΕ 'Δώστε το πλήθος των ιπτάμενων φροντιστών (<=1000): '

    ΔΙΑΒΑΣΕ ΠΛΗΘ

  ΜΕΧΡΙΣ_ΟΤΟΥ ΠΛΗΘ > 0 ΚΑΙ ΠΛΗΘ <= 1000



  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ

    ΓΡΑΨΕ 'Δώστε το ονοματεπώνυμο του φροντιστή ', i, ': '

    ΔΙΑΒΑΣΕ ΟΝ[i] 

    ΓΡΑΨΕ 'Δώστε τα μηνιαία μίλια πτήσης του φροντιστή ', ΟΝ[i], ' :'

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

      ΓΡΑΨΕ 'Μήνας ', j, ': '

      ΔΙΑΒΑΣΕ ΜΙΛΙΑ[i, j] 

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

    ΓΡΑΨΕ 'Δώστε τις ετήσιες αποδοχές του φροντιστή ', ΟΝ[i], ' : '

    ΔΙΑΒΑΣΕ ΑΠΟΔ[i] 

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



                                              ! 4.3 Υπολογισμός συνολικών μιλίων

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘ

    Σ_ΜΙΛ[i] <- 0

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

      Σ_ΜΙΛ[i] <- Σ_ΜΙΛ[i] + ΜΙΛΙΑ[i, j] 

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

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



                                  ! 4.4 Εύρεση φροντιστή με τα περισσότερα μίλια

  max_μίλια <- Σ_ΜΙΛ[1] 

  θέση <- 1

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ ΠΛΗΘ

    ΑΝ Σ_ΜΙΛ[i] > max_μίλια ΤΟΤΕ

      max_μίλια <- Σ_ΜΙΛ[i] 

      θέση <- i

    ΤΕΛΟΣ_ΑΝ

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



                                                        ! Εμφάνιση αποτελεσμάτων

  ΓΡΑΨΕ 'Ο φροντιστής με τα περισσότερα μίλια πτήσης είναι: ', ΟΝ[θέση] 

  ΓΡΑΨΕ 'Συνολικά ετήσια μίλια: ', max_μίλια

  ΓΡΑΨΕ 'Ετήσιες αποδοχές: ', ΑΠΟΔ[θέση] 

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