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

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

ΠΡΟΓΡΑΜΜΑ εταιρεία_κατασκευής_αυτοκινήτων_ΤΘ_28932

!ΘΕΜΑ 4

!Μια πολυεθνική εταιρεία κατασκευής αυτοκινήτων διαθέτει δέκα εργοστάσια σε

!διαφορετικές χώρες. Η ονομασία κάθε εργοστασίου καταχωρείται σε μονοδιάστατο

!πίνακα ON[10] και η παραγωγή κατά μήνα για το έτος 2021 καταχωρείται σε ένα

!δισδιάστατο πίνακα ακεραίων ΠΑΡ[10,12]. Να γραφτεί πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

!4.1  Να διαβάζει τα δεδομένα της παραγωγής κάθε εργοστασίου στον πίνακα ΠΑΡ,

!όπου ΠΑΡ[i, j] είναι η παραγωγή του εργοστασίου i για το μήνα j.

!Απαιτείται έλεγχος εγκυρότητας με αποδεκτές τιμές μεγαλύτερες του μηδενός

!   Μονάδες 4

!4.2 Να υπολογίζει την ετήσια παραγωγή κάθε εργοστασίου, να τα ταξινομεί

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

!Μονάδες 15

!4.3 Ποιο μήνα του έτους η συνολική παραγωγή της εταιρείας ήταν η μέγιστη και

!ποιο η ελάχιστη;

!Μονάδες 6





! 4.1 Δήλωση μεταβλητών

ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: ΠΑΡ[10, 12], ετησια_παραγωγη[10], συνολικη_παραγωγη_μηνα[12] 

  ΑΚΕΡΑΙΕΣ: i, j, temp, max_μηνας, min_μηνας, max_παραγωγη, min_παραγωγη

  ΧΑΡΑΚΤΗΡΕΣ: ON[10], temp_ονομα



ΑΡΧΗ



! Αρχικοποίηση συνολικών παραγωγών

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

    συνολικη_παραγωγη_μηνα[j] <- 0

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



! Εισαγωγή δεδομένων παραγωγής με έλεγχο εγκυρότητας

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

    ΓΡΑΨΕ "Δώσε το όνομα του εργοστασίου ", i, ":"

    ΔΙΑΒΑΣΕ ON[i] 

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

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

        ΓΡΑΨΕ "Δώσε την παραγωγή του εργοστασίου ", ON[i], " για τον μήνα ", j, ":"

        ΔΙΑΒΑΣΕ ΠΑΡ[i, j] 

      ΜΕΧΡΙΣ_ΟΤΟΥ ΠΑΡ[i, j] > 0

      συνολικη_παραγωγη_μηνα[j] <- συνολικη_παραγωγη_μηνα[j] + ΠΑΡ[i, j] 

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

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



! Υπολογισμός ετήσιας παραγωγής

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

    ετησια_παραγωγη[i] <- 0

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

      ετησια_παραγωγη[i] <- ετησια_παραγωγη[i] + ΠΑΡ[i, j] 

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

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



! ταξινόμηση κατά φθίνουσα σειρά

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

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

      ΑΝ ετησια_παραγωγη[j - 1] < ετησια_παραγωγη[j] ΤΟΤΕ

        temp <- ετησια_παραγωγη[j - 1] 

        ετησια_παραγωγη[j - 1] <- ετησια_παραγωγη[j] 

        ετησια_παραγωγη[j] <- temp



        temp_ονομα <- ON[j - 1] 

        ON[j - 1] <- ON[j] 

        ON[j] <- temp_ονομα

      ΤΕΛΟΣ_ΑΝ

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

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



                                            ! Εμφάνιση ταξινομημένων εργοστασίων

  ΓΡΑΨΕ "Εργοστάσια κατά φθίνουσα σειρά ετήσιας παραγωγής:"

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

    ΓΡΑΨΕ "Εργοστάσιο: ", ON[i], " - Ετήσια Παραγωγή: ", ετησια_παραγωγη[i] 

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



                         ! Εύρεση μήνα με μέγιστη και ελάχιστη συνολική παραγωγή

  max_μηνας <- 1

  min_μηνας <- 1

  max_παραγωγη <- συνολικη_παραγωγη_μηνα[1] 

  min_παραγωγη <- συνολικη_παραγωγη_μηνα[1] 



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

    ΑΝ συνολικη_παραγωγη_μηνα[i] > max_παραγωγη ΤΟΤΕ

      max_παραγωγη <- συνολικη_παραγωγη_μηνα[i] 

      max_μηνας <- i

    ΤΕΛΟΣ_ΑΝ

    ΑΝ συνολικη_παραγωγη_μηνα[i] < min_παραγωγη ΤΟΤΕ

      min_παραγωγη <- συνολικη_παραγωγη_μηνα[i] 

      min_μηνας <- i

    ΤΕΛΟΣ_ΑΝ

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



                               ! Εμφάνιση μηνών με μέγιστη και ελάχιστη παραγωγή

  ΓΡΑΨΕ "Μήνας με μέγιστη παραγωγή: ", max_μηνας, " με συνολική παραγωγή: ", max_παραγωγη

  ΓΡΑΨΕ "Μήνας με ελάχιστη παραγωγή: ", min_μηνας, " με συνολική παραγωγή: ", min_παραγωγη



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