ΠΡΟΓΡΑΜΜΑ ΑΕΠΠ_ΕΤΑΙΡΙΕΣ
! Επαναληπτικές 2011 ΘΕΜΑ Δ
! Ένας όμιλος αποτελείται από 20 εταιρίες. Να γράψετε πρόγραμμα το οποίο:
! Δ1. να περιλαμβάνει τμήμα δηλώσεων. Μονάδες 2
! Δ2. να διαβάζει τα ονόματα των εταιριών του ομίλου και τα κέρδη τους
! για κάθε ένα από τα έτη 2001 έως και 2005. (Θεωρήστε ότι τα κέρδη είναι θετικοί αριθμοί.)
! Μονάδες 2
! Δ3. για κάθε εταιρία του ομίλου να καλεί συνάρτηση για τον υπολογισμό του συνολικού
! κέρδους της εταιρίας στην πενταετία. Στη συνέχεια να υπολογίζει και να εμφανίζει το
! μέσο ετήσιο κέρδος του ομίλου. Μονάδες 5
! Δ4. για κάθε εταιρία να βρίσκει την τριετία με το μεγαλύτερο συνολικό κέρδος και να
! εμφανίζει το όνομα της εταιρίας και το πρώτο έτος της συγκεκριμένης τριετίας.
! (Θεωρήστε ότι η τριετία αυτή είναι μοναδική.) Μονάδες 5
! Δ5. Να κατασκευάσετε τη συνάρτηση που θα χρησιμοποιήσετε στο ερώτημα Δ3.
! Μονάδες 6
ΣΤΑΘΕΡΕΣ
  Ν = 20

!Δ1
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: όνομα[Ν] 
  ΠΡΑΓΜΑΤΙΚΕΣ: κέρδη[Ν, 5], ετήσιο_κέρδος_ομίλου
  ΠΡΑΓΜΑΤΙΚΕΣ: κέρδος3Α, κέρδος3Β, κέρδος3Γ, max
  ΑΚΕΡΑΙΕΣ: i, j, έτος

ΑΡΧΗ
! Δ2. να διαβάζει τα ονόματα των εταιριών του ομίλου και τα κέρδη τους
! για κάθε ένα από τα έτη 2001 έως και 2005. (Θεωρήστε ότι τα κέρδη είναι θετικοί αριθμοί.)
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΓΡΑΨΕ 'Δώστε όνομα ', i, 'ης εταιρίας : '
    ΔΙΑΒΑΣΕ όνομα[i] 
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 5
      ΓΡΑΨΕ 'Δώστε κέρδη έτους ', 2000 + j, ' : '
      ΔΙΑΒΑΣΕ κέρδη[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

! Δ3. για κάθε εταιρία του ομίλου να καλεί συνάρτηση για τον υπολογισμό του συνολικού
! κέρδους της εταιρίας στην πενταετία. Στη συνέχεια να υπολογίζει και να εμφανίζει το
! μέσο ετήσιο κέρδος του ομίλου. Μονάδες 5

  ετήσιο_κέρδος_ομίλου <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ετήσιο_κέρδος_ομίλου <- ετήσιο_κέρδος_ομίλου + κέρδος_εταιρίας (κέρδη[i, 1], κέρδη[i, 2], κέρδη[i, 3], κέρδη[i, 4], κέρδη[i, 5]) 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Μέσο ετήσιο κέρδος του ομίλου : ', ετήσιο_κέρδος_ομίλου/ Ν

! Δ4. για κάθε εταιρία να βρίσκει την τριετία με το μεγαλύτερο συνολικό κέρδος και να
! εμφανίζει το όνομα της εταιρίας και το πρώτο έτος της συγκεκριμένης τριετίας.
! (Θεωρήστε ότι η τριετία αυτή είναι μοναδική.) Μονάδες 5
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    κέρδος3Α <- κέρδη[i, 1] + κέρδη[i, 2] + κέρδη[i, 3] 
    κέρδος3Β <- κέρδη[i, 2] + κέρδη[i, 3] + κέρδη[i, 4] 
    κέρδος3Γ <- κέρδη[i, 3] + κέρδη[i, 4] + κέρδη[i, 5] 

    max <- κέρδος3Α
    έτος <- 2001

    ΑΝ κέρδος3Β > max ΤΟΤΕ
      max <- κέρδος3Β
      έτος <- 2002
    ΤΕΛΟΣ_ΑΝ

    ΑΝ κέρδος3Γ > max ΤΟΤΕ
      max <- κέρδος3Γ
      έτος <- 2003
    ΤΕΛΟΣ_ΑΝ

    ΓΡΑΨΕ 'Πρώτο έτος καλύτερης τριετίας το ', έτος, ' για την εταιρία ', όνομα[i] 

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


! Δ5. Να κατασκευάσετε τη συνάρτηση που θα χρησιμοποιήσετε στο ερώτημα Δ3.
ΣΥΝΑΡΤΗΣΗ κέρδος_εταιρίας (κ1, κ2, κ3, κ4, κ5): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: κ1, κ2, κ3, κ4, κ5
ΑΡΧΗ
  κέρδος_εταιρίας <- κ1 + κ2 + κ3 + κ4 + κ5
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ