ΠΡΟΓΡΑΜΜΑ φωτοβολταϊκά
! ΘΕΜΑ 2012 Δ
! Μια εταιρεία ασχολείται με εγκαταστάσεις φωτοβολταϊκών συστημάτων,
! με τα οποία οι πελάτες της έχουν τη δυνατότητα αφενός να παράγουν
! ηλεκτρική ενέργεια για να καλύπτουν τις ανάγκες της οικίας τους,
! αφετέρου να πωλούν την πλεονάζουσα ενέργεια προς 0,55€/kWh,
! εξασφαλίζοντας επιπλέον έσοδα. Η εταιρεία αποφάσισε να ερευνήσει
! τις εγκαταστάσεις που πραγματοποίησε την προηγούμενη χρονιά σε
! δέκα (10) πελάτες που βρίσκονται ο καθένας σε διαφορετική πόλη της Ελλάδας.

!Να αναπτύξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:
!Δ1. α. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. (μονάδα 1)
!    β. Να διαβάζει για κάθε πελάτη το όνομά του και το όνομα
!       της πόλης στην οποία διαμένει και να τα αποθηκεύει
!       στον δισδιάστατο πίνακα ΟΝ[10,2]. (μονάδα 1)
!    γ. Να διαβάζει το ποσό της ηλεκτρικής ενέργειας σε kWh που παρήγαγαν
!       τα φωτοβολταϊκά συστήματα κάθε πελάτη, καθώς και το ποσό της ηλεκτρικής
!       ενέργειας που κατανάλωσε κάθε πελάτης για κάθε μήνα του έτους,
!       και να τα αποθηκεύει στους πίνακες Π[10,12] για την παραγωγή και Κ[10,12]
!       για την κατανάλωση αντίστοιχα (δεν απαιτείται έλεγχος εγκυρότητας
!       των δεδομένων). (μονάδες 2)
!Δ2. Να υπολογίζει την ετήσια παραγωγή και κατανάλωση ανά πελάτη καθώς και τα
!    ετήσια έσοδά του σε ευρώ (€). Θεωρήστε ότι για κάθε πελάτη η ετήσια
!    παραγόμενη ηλεκτρική ενέργεια είναι μεγαλύτερη ή ίση της ενέργειας που
!    έχει καταναλώσει. Μονάδες 4
!Δ3. Να εμφανίζει το όνομα της πόλης στην οποία σημειώθηκε η μεγαλύτερη ετήσια παραγωγή
!    ηλεκτρικού ρεύματος. Μονάδες 3
!Δ4. Να καλεί κατάλληλο υποπρόγραμμα με τη βοήθεια του οποίου θα εμφανίζονται τα
!    ετήσια έσοδα κάθε πελάτη κατά φθίνουσα σειρά. Να κατασκευάσετε το υποπρόγραμμα
!    που χρειάζεται για το σκοπό αυτό. Μονάδες 5
!Δ5. Να εμφανίζει τον αριθμό του μήνα με τη μικρότερη παραγωγή ηλεκτρικής ενέργειας.
!    Θεωρήστε ότι υπάρχει μόνο ένας τέτοιος μήνας. Μονάδες 4


ΜΕΤΑΒΛΗΤΕΣ
!Δ1. α. Να περιλαμβάνει κατάλληλο τμήμα δηλώσεων. (μονάδα 1)
  ΑΚΕΡΑΙΕΣ: i, j, θέση
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[10, 2] 
  ΠΡΑΓΜΑΤΙΚΕΣ: Π[10, 12], Κ[10, 12], Συνολική_παραγωγή[10], Συνολική_κατανάλωση[10], 
  & ετήσια_έσοδα[10], σύνολο_μήνα[12], max, min

ΑΡΧΗ
!Δ1. β. Να διαβάζει για κάθε πελάτη το όνομά του και το όνομα της πόλης
! στην οποία διαμένει και να τα αποθηκεύει στον δισδιάστατο πίνακα ΟΝ[10,2].
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ 'Δώσε όνομα πελάτη: '
    ΔΙΑΒΑΣΕ ΟΝ[i, 1] 
    ΓΡΑΨΕ 'Δώσε όνομα πόλης πελάτη: '
    ΔΙΑΒΑΣΕ ΟΝ[i, 2] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

!Δ1. γ. Να διαβάζει το ποσό της ηλεκτρικής ενέργειας σε kWh που παρήγαγαν
! τα φωτοβολταϊκά συστήματα κάθε πελάτη, καθώς και το ποσό της ηλεκτρικής
! ενέργειας που κατανάλωσε κάθε πελάτης για κάθε μήνα του έτους,
! και να τα αποθηκεύει στους πίνακες Π[10,12] για την παραγωγή και Κ[10,12]
! για την κατανάλωση αντίστοιχα (δεν απαιτείται έλεγχος εγκυρότητας
! των δεδομένων).
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ 'Πελάτης : ', i
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      ΓΡΑΨΕ 'Μήνας: ', j
      ΓΡΑΨΕ 'Δώσε παραγωγή : '
      ΔΙΑΒΑΣΕ Π[i, j] 
      ΓΡΑΨΕ 'Δώσε κατανάλωση : '
      ΔΙΑΒΑΣΕ Κ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


!Δ2. Να υπολογίζει την ετήσια παραγωγή και κατανάλωση ανά πελάτη καθώς και τα
!    ετήσια έσοδά του σε ευρώ (€). Θεωρήστε ότι για κάθε πελάτη η ετήσια
!    παραγόμενη ηλεκτρική ενέργεια είναι μεγαλύτερη ή ίση της ενέργειας που
!    έχει καταναλώσει. Μονάδες 4
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    Συνολική_παραγωγή[i] <- 0.0
    Συνολική_κατανάλωση[i] <- 0.0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      Συνολική_παραγωγή[i] <- Συνολική_παραγωγή[i] + Π[i, j] 
      Συνολική_κατανάλωση[i] <- Συνολική_κατανάλωση[i] + Κ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ετήσια_έσοδα[i] <- (Συνολική_παραγωγή[i] - Συνολική_κατανάλωση[i])* 0.55
    ΓΡΑΨΕ i, '. ετήσια έσοδα: ', ετήσια_έσοδα[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ


!Δ3. Να εμφανίζει το όνομα της πόλης στην οποία σημειώθηκε η μεγαλύτερη ετήσια παραγωγή
!    ηλεκτρικού ρεύματος.
  max <- Συνολική_παραγωγή[1] 
  θέση <- 1
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΑΝ max < Συνολική_παραγωγή[i] ΤΟΤΕ
      max <- Συνολική_παραγωγή[i] 
      θέση <- i
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Η πόλη με τη μεγαλύτερη ετήσια παραγωγή: ', ΟΝ[θέση, 2] 
  
  
!Δ4. Να καλεί κατάλληλο υποπρόγραμμα με τη βοήθεια του οποίου θα εμφανίζονται τα
!    ετήσια έσοδα κάθε πελάτη κατά φθίνουσα σειρά. Να κατασκευάσετε το υποπρόγραμμα
!    που χρειάζεται για το σκοπό αυτό.
  ΚΑΛΕΣΕ ταξινόμησε_και_εμφάνισε (ετήσια_έσοδα) 



!Δ5. Να εμφανίζει τον αριθμό του μήνα με τη μικρότερη παραγωγή ηλεκτρικής ενέργειας.
!    Θεωρήστε ότι υπάρχει μόνο ένας τέτοιος μήνας.
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
    σύνολο_μήνα[j] <- 0.0
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
      σύνολο_μήνα[j] <- σύνολο_μήνα[j] + Π[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  min <- σύνολο_μήνα[1] 
  θέση <- 1
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΑΝ min > σύνολο_μήνα[i] ΤΟΤΕ
      min <- σύνολο_μήνα[i] 
      θέση <- i
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Αριθμός μήνα με τη μικρότερη παραγωγή ηλεκτρικής ενέργειας', θέση


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


!------------------------------------

ΔΙΑΔΙΚΑΣΙΑ ταξινόμησε_και_εμφάνισε (έσοδα) 
! υποπρόγραμμα με τη βοήθεια του οποίου θα εμφανίζονται τα
! ετήσια έσοδα κάθε πελάτη κατά φθίνουσα σειρά.
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: έσοδα[10], temp
  ΑΚΕΡΑΙΕΣ: i, j

ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ έσοδα[j - 1] < έσοδα[j] ΤΟΤΕ
        temp <- έσοδα[j] 
        έσοδα[j] <- έσοδα[j - 1] 
        έσοδα[j - 1] <- temp
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ έσοδα[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ