ΑΕΠΠ Οδηγίες Μελέτης (Παράρτημα Α) λύσεις ασκήσεων

ΑΕΠΠ Οδηγίες Μελέτης (Παράρτημα Α) λύσεις ασκήσεων

ΑΕΠΠ Οδηγίες Μελέτης (Παράρτημα Α) λύσεις ασκήσεων 9-15 ΑΠΟ ΤΙΣ ΣΕΛΙΔΕΣ 59-60 (Παράρτημα Α)

ΑΣΚΗΣΗ 9 – ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΑΣΚ9
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν
  ΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΑΘΡ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΕΓ
ΑΡΧΗ
  ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΑΚΕΡΑΙΟ Ν'
  ΔΙΑΒΑΣΕ Ν
  ΟΣΟ Ν<=0 ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'ΛΑΘΟΣ. ΔΩΣΕ ΘΕΤΙΚΟ ΑΚΕΡΑΙΟ'
    ΔΙΑΒΑΣΕ Ν
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΑΘΡ <- 0  ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'
  ΔΙΑΒΑΣΕ Χ
  ΟΣΟ Χ<=0 ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'ΛΑΘΟΣ. ΔΩΣΕ ΘΕΤΙΚΟ'
    ΔΙΑΒΑΣΕ Χ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΜΕΓ <- Χ
  ΑΘΡ <- ΑΘΡ + Χ  ΟΣΟ ΑΘΡ <= Ν ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ 'ΔΩΣΕ ΘΕΤΙΚΟ ΑΡΙΘΜΟ'
    ΔΙΑΒΑΣΕ Χ
    ΟΣΟ Χ<=0 ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'ΛΑΘΟΣ. ΔΩΣΕ ΘΕΤΙΚΟ'
      ΔΙΑΒΑΣΕ Χ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ    ΑΘΡ <- ΑΘΡ + Χ
    ΑΝ Χ > ΜΕΓ ΤΟΤΕ
      ΜΕΓ <- Χ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΓΡΑΨΕ 'ΜΕΓΑΛΥΤΕΡΟΣ ΑΡΙΘΜΟΣ:', ΜΕΓ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 10 – ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΑΣΚ10
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ι, J
  ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΘ, ΑΘΡ, ΜΟ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΕΓΜΟ, ΜΙΝΜΟ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑ, ΟΝΟΜΑ_ΜΕΓ, ΟΝΟΜΑ_ΜΙΝ
ΑΡΧΗ
  ΜΕΓΜΟ <- -1
  ΜΙΝΜΟ <- 100  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 26
    ΓΡΑΨΕ 'ΟΝΟΜΑ ΜΑΘΗΤΗ'
    ΔΙΑΒΑΣΕ ΟΝΟΜΑ    ΑΘΡ <- 0
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 10
      ΔΙΑΒΑΣΕ ΒΑΘ
      ΑΘΡ <- ΑΘΡ + ΒΑΘ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ    ΜΟ <- ΑΘΡ / 10
    ΓΡΑΨΕ 'ΜΕΣΟΣ ΟΡΟΣ:', ΜΟ    ΑΝ ΜΟ > ΜΕΓΜΟ ΤΟΤΕ
      ΜΕΓΜΟ <- ΜΟ
      ΟΝΟΜΑ_ΜΕΓ <- ΟΝΟΜΑ
    ΤΕΛΟΣ_ΑΝ    ΑΝ ΜΟ < ΜΙΝΜΟ ΤΟΤΕ
      ΜΙΝΜΟ <- ΜΟ
      ΟΝΟΜΑ_ΜΙΝ <- ΟΝΟΜΑ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΓΡΑΨΕ 'ΜΕΓΙΣΤΟΣ ΜΟ:', ΟΝΟΜΑ_ΜΕΓ, ΜΕΓΜΟ
  ΓΡΑΨΕ 'ΕΛΑΧΙΣΤΟΣ ΜΟ:', ΟΝΟΜΑ_ΜΙΝ, ΜΙΝΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 11 – ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΑΣΚ11
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, Ι
  ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΘ
  ΑΚΕΡΑΙΕΣ: Κ1, Κ2, Κ3
  ΠΡΑΓΜΑΤΙΚΕΣ: Π1, Π2, Π3
ΑΡΧΗ
  ΔΙΑΒΑΣΕ Ν  Κ1 <- 0
  Κ2 <- 0
  Κ3 <- 0  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΔΙΑΒΑΣΕ ΒΑΘ
    ΟΣΟ ΒΑΘ <1 Ή ΒΑΘ >20 ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ 'Μη αποδεκτή βαθμολογία. Ξαναπροσπαθήστε....'
      ΔΙΑΒΑΣΕ ΒΑΘ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ    ΑΝ ΒΑΘ <10 ΤΟΤΕ
      Κ1 <- Κ1 + 1
    ΑΛΛΙΩΣ_ΑΝ ΒΑΘ <=18 ΤΟΤΕ
      Κ2 <- Κ2 + 1
    ΑΛΛΙΩΣ
      Κ3 <- Κ3 + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  Π1 <- Κ1*100/Ν
  Π2 <- Κ2*100/Ν
  Π3 <- Κ3*100/Ν  ΓΡΑΨΕ Κ1, Π1
  ΓΡΑΨΕ Κ2, Π2
  ΓΡΑΨΕ Κ3, Π3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 12 – ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΑΣΚ12
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Χ, ΑΘΡ
  ΑΚΕΡΑΙΕΣ: ΠΛ
ΑΡΧΗ
  ΑΘΡ <- 0
  ΠΛ <- 0  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ Χ
    ΑΘΡ <- ΑΘΡ + Χ
    ΠΛ <- ΠΛ + 1
  ΜΕΧΡΙΣ_ΟΤΟΥ Χ=100 Ή ΑΘΡ>=1000000  ΓΡΑΨΕ 'ΑΘΡΟΙΣΜΑ:', ΑΘΡ
  ΓΡΑΨΕ 'ΠΛΗΘΟΣ:', ΠΛ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 13 – ΛΥΣΗ

ΠΡΟΓΡΑΜΜΑ ΑΣΚ13
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, ΨΗΦ, ΑΘΡ, ΠΛ
ΑΡΧΗ
  ΔΙΑΒΑΣΕ Ν  ΑΘΡ <- 0
  ΠΛ <- 0  ΟΣΟ Ν > 0 ΕΠΑΝΑΛΑΒΕ
    ΨΗΦ <- Ν MOD 10
    ΑΘΡ <- ΑΘΡ + ΨΗΦ
    ΠΛ <- ΠΛ + 1
    Ν <- Ν DIV 10
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΓΡΑΨΕ 'ΑΘΡΟΙΣΜΑ ΨΗΦΙΩΝ:', ΑΘΡ
  ΓΡΑΨΕ 'ΠΛΗΘΟΣ ΨΗΦΙΩΝ:', ΠΛ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 14 – ΛΥΣΗ (ΠΑΝΕΠΙΣΤΗΜΙΟ)

ΠΡΟΓΡΑΜΜΑ ΑΣΚ14
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΤΜ, Ι, ΑΡΙΣΤ, ΜΕΓΤΜ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΘ, ΠΟΣ, ΜΕΓ
ΑΡΧΗ
  ΜΕΓ <- -1  ΓΙΑ ΤΜ ΑΠΟ 1 ΜΕΧΡΙ 4
    ΑΡΙΣΤ <- 0    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 150
      ΔΙΑΒΑΣΕ ΒΑΘ      ΑΝ ΒΑΘ >=19 ΤΟΤΕ
        ΑΡΙΣΤ <- ΑΡΙΣΤ + 1
      ΤΕΛΟΣ_ΑΝ      ΑΝ ΒΑΘ > ΜΕΓ ΤΟΤΕ
        ΜΕΓ <- ΒΑΘ
        ΜΕΓΤΜ <- ΤΜ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ    ΠΟΣ <- ΑΡΙΣΤ *100 /150
    ΓΡΑΨΕ 'ΤΜΗΜΑ', ΤΜ, 'ΠΟΣΟΣΤΟ:', ΠΟΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ  ΓΡΑΨΕ 'ΤΜΗΜΑ ΜΕ ΜΕΓΙΣΤΟ ΒΑΘΜΟ:', ΜΕΓΤΜ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

---

ΑΣΚΗΣΗ 15 – ΛΥΣΗ (ΑΣΑΝΣΕΡ)

Στην άσκση αυτή θεωρούμε δεδομένο ότι η διαδρομή του ασανσέρ γίνεται μόνο μία φορά και όχι συνεχώς

ΠΡΟΓΡΑΜΜΑ ΑΣΚ15
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΟΡ, ΠΛ, ΕΙΣ, ΕΞ
  ΠΡΑΓΜΑΤΙΚΕΣ: ΒΑΡΟΣ, ΣΥΝΒΑΡ, Β
  ΧΑΡΑΚΤΗΡΕΣ: ΑΠ
ΑΡΧΗ
  ΠΛ <- 0
  ΣΥΝΒΑΡ <- 0  ΓΙΑ ΟΡ ΑΠΟ 1 ΜΕΧΡΙ 8    ΕΙΣ <- 0
    ΕΞ <- 0    ! ΕΞΟΔΟΣ (εκτός 1ου)
    ΑΝ ΟΡ > 1 ΤΟΤΕ
      ΓΡΑΨΕ 'Υπάρχει άτομο να εξέλθει;'
      ΔΙΑΒΑΣΕ ΑΠ
      ΟΣΟ ΑΠ = 'ΝΑΙ' ΕΠΑΝΑΛΑΒΕ
        ΔΙΑΒΑΣΕ Β
        ΠΛ <- ΠΛ - 1
        ΣΥΝΒΑΡ <- ΣΥΝΒΑΡ - Β
        ΕΞ <- ΕΞ + 1
        ΓΡΑΨΕ 'Υπάρχει άτομο να εξέλθει;'
        ΔΙΑΒΑΣΕ ΑΠ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ    ! ΕΙΣΟΔΟΣ (εκτός 8ου)
    ΑΝ ΟΡ < 8 ΤΟΤΕ
      ΓΡΑΨΕ 'Υπάρχει άτομο να εισέλθει;'
      ΔΙΑΒΑΣΕ ΑΠ
      ΟΣΟ ΑΠ = 'ΝΑΙ' ΚΑΙ ΠΛ < 8 ΚΑΙ ΣΥΝΒΑΡ < 900 ΕΠΑΝΑΛΑΒΕ
        ΔΙΑΒΑΣΕ Β
        ΠΛ <- ΠΛ + 1
        ΣΥΝΒΑΡ <- ΣΥΝΒΑΡ + Β
        ΕΙΣ <- ΕΙΣ + 1        ΑΝ ΠΛ = 8 Ή ΣΥΝΒΑΡ >= 900 ΤΟΤΕ
          ΕΞΟΔΟΣ
        ΤΕΛΟΣ_ΑΝ        ΓΡΑΨΕ 'Υπάρχει άτομο να εισέλθει;'
        ΔΙΑΒΑΣΕ ΑΠ
      ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ    ΑΝ ΟΡ < 8 ΤΟΤΕ
      ΓΡΑΨΕ 'ΕΙΣΗΛΘΑΝ:', ΕΙΣ
      ΓΡΑΨΕ 'ΕΞΗΛΘΑΝ:', ΕΞ
      ΓΡΑΨΕ 'ΑΤΟΜΑ ΣΤΟΝ ΘΑΛΑΜΟ:', ΠΛ
      ΓΡΑΨΕ 'ΣΥΝΟΛΙΚΟ ΒΑΡΟΣ:', ΣΥΝΒΑΡ
    ΤΕΛΟΣ_ΑΝ  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ