ΠΡΟΓΡΑΜΜΑ ΑΕΡΟΠΛΑΝΟ_ΓΕΛ2021_Θ3
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: πλ, πλ_ΜΑΧ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΣΒ, ΜΣΟ, Β, ΟΓ, ΜΑΧ, Μ, ΣΒ, ΣΟ
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟ ΜΕΓΙΣΤΟ ΣΥΝΟΛΙΚΟ ΒΑΡΟΣ: '
    ΔΙΑΒΑΣΕ ΜΣΒ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΜΣΒ >= 5000
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟΝ ΜΕΓΙΣΤΟ ΣΥΝΟΛΙΚΟ ΟΓΚΟ: '
    ΔΙΑΒΑΣΕ ΜΣΟ
  ΜΕΧΡΙΣ_ΟΤΟΥ ΜΣΟ >= 300
  ΣΒ <- 0
  ΣΟ <- 0
  πλ <- 0
  ΜΑΧ <- 0
  πλ_ΜΑΧ <- 0
  ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟ ΒΑΡΟΣ ΚΑΙ ΤΟΝ ΟΓΚΟ ΤΟΥ ΚΙΒΩΤΙΟΥ: '
  ΔΙΑΒΑΣΕ Β, ΟΓ
  ΟΣΟ (Β + ΣΒ <= ΜΣΒ) ΚΑΙ (ΟΓ + ΣΟ <= ΜΣΟ) ΕΠΑΝΑΛΑΒΕ
    ΣΒ <- ΣΒ + Β
    ΣΟ <- ΣΟ + ΟΓ
    πλ <- πλ + 1
    ΑΝ Β > ΜΑΧ ΤΟΤΕ
      ΜΑΧ <- Β
      πλ_ΜΑΧ <- 1
    ΑΛΛΙΩΣ_ΑΝ Β = ΜΑΧ ΤΟΤΕ ! Πλήθος μεγίστων
      πλ_ΜΑΧ <- πλ_ΜΑΧ + 1
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟ ΒΑΡΟΣ ΚΑΙ ΤΟΝ ΟΓΚΟ ΤΟΥ ΚΙΒΩΤΙΟΥ: '
    ΔΙΑΒΑΣΕ Β, ΟΓ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Μ <- ΣΒ/πλ
  ΓΡΑΨΕ πλ, Μ, ΜΑΧ, πλ_ΜΑΧ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ