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
ΓΡΑΨΕ ποσμ, ποσε, ποσφ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ