! ============= ΕΣΠΕΡΙΝΟ ΙΟΥΛΙΟΣ 2007 - Θέμα 3 ========================
! Ένας καταναλωτής διαθέτει 150 € για αγορά ρυζιού, προκειμένου να το
! δωρίσει σε ένα φιλανθρωπικό ίδρυμα. Σε ένα πολυκατάστημα διατίθενται
! πακέτα ρυζιού σε τέσσερις διαφορετικές συσκευασίες από διαφορετικές
! εταιρείες.
! Να γράψετε αλγόριθμο ο οποίος:
!   α. Διαβάζει το όνομα της εταιρείας, την αξία και την ποσότητα σε
!      γραμμάρια για κάθε μία από τις τέσσερις συσκευασίες ρυζιού.
!   β. Υπολογίζει και εμφανίζει το όνομα της εταιρείας που προσφέρει
!      το ρύζι στην πλέον συμφέρουσα για τον καταναλωτή συσκευασία
!      (να θεωρήσετε ότι υπάρχει μόνο μία τέτοια εταιρεία).
!   γ. Υπολογίζει και εμφανίζει τον αριθμό των πακέτων που μπορεί να
!      αγοράσει από την πλέον συμφέρουσα για τον καταναλωτή συσκευασία
!      (σύμφωνα με το ερώτημα β).
! =====================================================================

ΠΡΟΓΡΑΜΜΑ ESP_2007_03
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i , k , n
  ΠΡΑΓΜΑΤΙΚΕΣ: β[4] , τ[4] , min
  ΧΑΡΑΚΤΗΡΕΣ: ετ[4]
ΑΡΧΗ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
    ΓΡΑΨΕ 'Δώσε το όνομα της εταιρείας Νο :' , i
    ΔΙΑΒΑΣΕ ετ[i]
    ΓΡΑΨΕ 'Δώσε το βάρος σε γραμμάρια της συσκευασίας της' , ετ[i]
    ΔΙΑΒΑΣΕ β[i]
    ΓΡΑΨΕ 'Δώσε και την τιμή της συσκευασίας.'
    ΔΙΑΒΑΣΕ τ[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  min <-- τ[1] / β[1]
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 4
    ΑΝ τ[i]/β[i] <= min ΤΟΤΕ
      min <-- τ[i]/β[i]
      k <-- i
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ 'Συμφέρει να αγοραστεί ρύζι της εταιρείας' , ετ[k]
  n <-- Α_Μ(150/τ[k])
  ΓΡΑΨΕ 'Με τα 150 EURO θα αγοραστούν' , n , 'πακέτα ρύζι.'

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