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

ΣΤΑΘΕΡΕΣ
  Ν = 20


ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: όνομα[Ν], όνομα_κερδοφόρας, κλειδί
  ΠΡΑΓΜΑΤΙΚΕΣ: κέρδη[Ν, 5], max, ετήσιο_κέρδος, min
  ΑΚΕΡΑΙΕΣ: i, j, pos
  ΛΟΓΙΚΕΣ: βρέθηκε

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

  max <- 0
!Δ2. να υπολογίζει για κάθε εταιρία το συνολικό κέρδος της στην πενταετία.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ετήσιο_κέρδος <- κέρδη[i, 1] + κέρδη[i, 2] + κέρδη[i, 3] + κέρδη[i, 4] + κέρδη[i, 5] 


!Δ3. να εμφανίζει το όνομα της εταιρίας με τα περισσότερα κέρδη στην πενταετία.
!(Θεωρήστε ότι η εταιρία αυτή είναι μοναδική.)
    ΑΝ ετήσιο_κέρδος > max ΤΟΤΕ
      max <- ετήσιο_κέρδος
      όνομα_κερδοφόρας <- όνομα[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'H εταιρία με τα περισσότερα κέρδη στην πενταετία είναι η ', όνομα_κερδοφόρας

!Δ4. να διαβάζει το όνομα μιας εταιρίας και, αν η εταιρία αυτή δεν ανήκει στον όμιλο,
!να εμφανίζει κατάλληλο μήνυμα. Διαφορετικά να υπολογίζει και να εμφανίζει το έτος με
!τα λιγότερα κέρδη για την εταιρία αυτή.
!(Θεωρήστε ότι το έτος αυτό είναι μοναδικό για κάθε εταιρία.)
  ΓΡΑΨΕ 'Δώσε όνομα εταιρίας για αναζήτηση : '
  ΔΙΑΒΑΣΕ κλειδί

  βρέθηκε <- ΨΕΥΔΗΣ
  i <- 1
  ΟΣΟ (i <= Ν) ΚΑΙ (βρέθηκε = ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
    ΑΝ κλειδί = όνομα[i] ΤΟΤΕ
      βρέθηκε <- ΑΛΗΘΗΣ
    ΑΛΛΙΩΣ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΝ βρέθηκε = ΑΛΗΘΗΣ ΤΟΤΕ
   ! να υπολογίζει και να εμφανίζει το έτος με τα λιγότερα κέρδη
    min <- κέρδη[i, 1] 
    pos <- 1
    
    ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 5
      ΑΝ min > κέρδη[i, j] ΤΟΤΕ
        min <- κέρδη[i, j] 
        pos <- j
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Το έτος με τα λιγότερα κέρδη ήταν το ', 2000 + pos
    
  ΑΛΛΙΩΣ
    
    ΓΡΑΨΕ 'Η εταιρία αυτή δεν ανήκει στον όμιλο'
  ΤΕΛΟΣ_ΑΝ


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