Κυριακή 25 Ιανουαρίου 2015

ΑΠΑΝΤΗΣΕΙΣ 6ης ΕΡΓΑΣΙΑΣ

1.
ΠΡΟΓΡΑΜΜΑ ΔΡ1
  ΜΕΤΑΒΛΗΤΕΣ
      ΑΚΕΡΑΙΕΣ: x, y, z
ΑΡΧΗ
    ΔΙΑΒΑΣΕ x, y
    z <- y
    ΟΣΟ z <> 0 ΕΠΑΝΑΛΑΒΕ
              z <- x mod y
              x <- y
              y <- z
     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
     ΓΡΑΨΕ
 x
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



ΠΡΟΓΡΑΜΜΑ ΔΡ2
  ΜΕΤΑΒΛΗΤΕΣ
      ΑΚΕΡΑΙΕΣ: i
ΑΡΧΗ
    i <- 1
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                 ΓΡΑΨΕ
 i
                  i <- i + 1
   ΜΕΧΡΙΣ_ΟΤΟΥ i >= 10
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



ΠΡΟΓΡΑΜΜΑ ΔΡ3
  ΜΕΤΑΒΛΗΤΕΣ
      ΑΚΕΡΑΙΕΣ: A, B
ΑΡΧΗ
    A <- 20
    ΟΣΟ A > 0 ΕΠΑΝΑΛΑΒΕ
              B <- A + 1
              ΓΡΑΨΕ B
              ΑΝ B = 11 ΤΟΤΕ ΓΡΑΨΕ '-'
              A <- A - 1
     ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



ΠΡΟΓΡΑΜΜΑ ΔΡ4
  ΜΕΤΑΒΛΗΤΕΣ
       ΑΚΕΡΑΙΕΣ: A, B, i
ΑΡΧΗ
    ΔΙΑΒΑΣΕ A, B
    ΑΝ A <= B ΤΟΤΕ
           ΓΙΑ i ΑΠΟ A ΜΕΧΡΙ 9
                    ΓΡΑΨΕ i
           ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



ΠΡΟΓΡΑΜΜΑ ΔΡ5
  ΜΕΤΑΒΛΗΤΕΣ
      ΑΚΕΡΑΙΕΣ: A,i
ΑΡΧΗ
    i <- 1
    ΔΙΑΒΑΣΕ A
    ΑΝ A <= 100 ΤΟΤΕ
           ΟΣΟ i <= 11 ΕΠΑΝΑΛΑΒΕ
                     ΓΡΑΨΕ A - i
                     i <- i + 1
           ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΛΛΙΩΣ
           ΟΣΟ i <= 11 ΕΠΑΝΑΛΑΒΕ
                    ΓΡΑΨΕ A + i
                    i <- i + 1
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



ΠΡΟΓΡΑΜΜΑ ΔΡ6
  ΜΕΤΑΒΛΗΤΕΣ
       ΑΚΕΡΑΙΕΣ: A,B
ΑΡΧΗ
    ΔΙΑΒΑΣΕ A, B
    S <- 0
    ΟΣΟ B > 0 ΕΠΑΝΑΛΑΒΕ
              ΑΝ B MOD 2 = 1 ΤΟΤΕ
                      S <- S + A
              ΤΕΛΟΣ_ΑΝ
              A <- A * 2
              B <- B DIV 2
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ



2. 
Αλγόριθμος ασκ2
Εμφάνισε 'δώσε όριο αναλήψεων'
Διάβασε όριο
μεγ  -1
ελαχ  όριο + 1
αθρ  0
πλ  0
πλ1000  0
Εμφάνισε 'δώσε ποσό ανάληψης'
Διάβασε ποσ_αν
Όσο όριο - ποσ_αν  0 επανάλαβε
          όριο  όριο - ποσ_αν
          πλ  πλ + 1
          αθρ  αθρ + ποσό
          Αν ποσ_αν > μεγ τότε
                 μεγ  ποσ_αν
                 αα_μεγ  πλ
         Τέλος_αν
         Αν
 ποσ_αν < ελαχ τότε
                ελαχ  ποσ_αν
                αα_ελαχ  πλ
          Τέλος_αν
          Αν ποσ_αν > 1000 τότε
                πλ1000  πλ1000 + 1
          Τέλος_αν
          Εμφάνισε 'δώσε ποσό ανάληψης'
         Διάβασε ποσ_αν
Τέλος_επανάληψης
Εμφάνισε
 αθρ, πλ, πλ1000, μεγ, αα_μεγ, ελαχ, αα_ελαχ
Αν πλ  0 τότε
      μο  αθρ/πλ
      Εμφάνισε μο
Τέλος_αν
Τέλος
 ασκ2


3. 
ΠΡΟΓΡΑΜΜΑ ασκ3
  ΜΕΤΑΒΛΗΤΕΣ
      ΑΚΕΡΑΙΕΣ: κιβεσ, κιβεξ, αθρεσ, αθρεξ
ΑΡΧΗ
    αθρεσ <- 0
    αθρεξ <- 0
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
               ΓΡΑΨΕ 'δώστε κιβώτια για εσωτερικό και για εξωτερικό'
               ΔΙΑΒΑΣΕ κιβεσ, κιβεξ
               αθρεσ <- αθρεσ + κιβεσ* 15
               αθρεξ <- αθρεξ + κιβεξ* 20
    ΜΕΧΡΙΣ_ΟΤΟΥ κιβεσ = -9999 Η κιβεξ = -9999
    ΓΡΑΨΕ αθρεσ, αθρεξ, αθρεσ + αθρεξ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


4.
ΠΡΟΓΡΑΜΜΑ ασκ4
  ΣΤΑΘΕΡΕΣ
     πάγιο = 5
  ΜΕΤΑΒΛΗΤΕΣ
     ΑΚΕΡΑΙΕΣ: αρμετρ, κμ
     ΧΑΡΑΚΤΗΡΕΣ: ονεπ
     ΠΡΑΓΜΑΤΙΚΕΣ: χρ, τελχρ, φόρος
ΑΡΧΗ
  ΓΡΑΨΕ 'δώστε αριθμό μετρητή'
  ΔΙΑΒΑΣΕ αρμετρ
  ΟΣΟ αρμετρ <> 0 ΕΠΑΝΑΛΑΒΕ
             ΓΡΑΨΕ 'δώστε ονομ/μο και κατανάλωση σε κυβικά'
             ΔΙΑΒΑΣΕ ονεπ, κμ
             ΑΝ κμ <= 15 ΤΟΤΕ
                    χρ <- κμ * 0.34
             ΑΛΛΙΩΣ_ΑΝ κμ <= 60 ΤΟΤΕ
                    χρ <- 15 * 0.34 + (κμ - 15)* 0.52
             ΑΛΛΙΩΣ_ΑΝ κμ <= 81 ΤΟΤΕ
                    χρ <- 15 * 0.34 + 45 * 0.52 + (κμ - 60) * 1.51
             ΑΛΛΙΩΣ_ΑΝ κμ <= 105 ΤΟΤΕ
                    χρ <- 15 * 0.34 + 45 * 0.52 + 21 * 1.51 + (κμ - 81) * 2.11
             ΑΛΛΙΩΣ
                    χρ <- 15 * 0.34 + 45 * 0.52 + 21 * 1.51 + 24 * 2.11 + (κμ - 105) * 2.64
             ΤΕΛΟΣ_ΑΝ
             τελχρ <- χρ + 0.4 * χρ + 0.01*(χρ*1.4) + πάγιο
             φόρος <- 19/100 * τελχρ
             τελχρ <- τελχρ + φόρος
             ΓΡΑΨΕ τελχρ
             ΓΡΑΨΕ 'δώστε αριθμό μετρητή'
             ΔΙΑΒΑΣΕ αρμετρ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ


5.
Αλγόριθμος ασκ5
αθρ  0
πλ4  0
πλ7  0
Για i από 1 μέχρι 200
       Εμφάνισε 'πόσα χρόνια φοίτησε;'
       Διάβασε χρ
       αθρ  αθρ + χρ
       Αν χρ = 4 τότε
             πλ4  πλ4 + 1
       Τέλος_αν
       Αν
 χρ > 7 τότε
            πλ7  πλ7 + 1
       Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε
 αθρ/πλ
ποσ4  πλ4/2
Εμφάνισε ποσ4 , '%'
ποσ7  πλ7/2 , '%'
Εμφάνισε ποσ7 , '%'
Τέλος ασκ5


6.
ΠΡΟΓΡΑΜΜΑ ασκ6
  ΜΕΤΑΒΛΗΤΕΣ
      ΠΡΑΓΜΑΤΙΚΕΣ: κόστος, υπολ, ποσμ, ποσε, ποσφ
      ΧΑΡΑΚΤΗΡΕΣ: τυπ
      ΑΚΕΡΑΙΕΣ: πλμ, πλε, πλφ
ΑΡΧΗ
  ΓΡΑΨΕ 'δώσε προυπολογισμό έργου'
  ΔΙΑΒΑΣΕ κόστος
  πλμ <- 0
  πλε <- 0
  πλφ <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
             ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                         ΓΡΑΨΕ
 'δώσε τύπο οχήματος'
                          ΔΙΑΒΑΣΕ τυπ
             ΜΕΧΡΙΣ_ΟΤΟΥ τυπ = 'Μ' Η τυπ = 'Ε' Η τυπ = 'Φ'
             ΑΝ τυπ = 'Μ' ΤΟΤΕ
                     ΓΡΑΨΕ '1 €'
                     κόστος <- κόστος - 1
                     πλμ <- πλμ + 1
             ΑΛΛΙΩΣ_ΑΝ τυπ = 'Ε' ΤΟΤΕ
                     ΓΡΑΨΕ '2 €'
                     κόστος <- κόστος - 2
                     πλε <- πλε + 1
            ΑΛΛΙΩΣ
                     ΓΡΑΨΕ '3 €'
                     κόστος <- κόστος - 2
                     πλε <- πλε + 1
            ΤΕΛΟΣ_ΑΝ
            ΓΡΑΨΕ κόστος
  ΜΕΧΡΙΣ_ΟΤΟΥ κόστος <= 0
  ποσμ <- πλμ/(πλμ + πλε + πλφ)*100
  ποσε <- πλε/(πλμ + πλε + πλφ)*100
  ποσφ <- πλφ/(πλμ + πλε + πλφ)*100
  ΓΡΑΨΕ ποσμ, ποσε, ποσφ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου