Άσκηση 1: Άθροισμα και Μέσος Όρος
Να γραφεί πρόγραμμα που διαβάζει 5 αριθμούς και εμφανίζει το άθροισμά τους και τον μέσο όρο.
ΠΡΟΓΡΑΜΜΑ AthroismaMo
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ i
ΠΡΑΓΜΑΤΙΚΕΣ x, sum, mo
ΑΡΧΗ
sum ← 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ 'Δώσε αριθμό:'
ΔΙΑΒΑΣΕ x
sum ← sum + x
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
mo ← sum / 5
ΓΡΑΨΕ 'Άθροισμα = ', sum
ΓΡΑΨΕ 'Μέσος όρος = ', mo
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 2: Ελεγχος Άρτιου ή Περιττού
Να γραφεί πρόγραμμα που διαβάζει έναν ακέραιο και εμφανίζει αν είναι άρτιος ή περιττός.
ΠΡΟΓΡΑΜΜΑ ArtiosPerittos
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ n
ΑΡΧΗ
ΔΙΑΒΑΣΕ n
ΑΝ n MOD 2 = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Άρτιος'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Περιττός'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 3: Μέγιστος από 3 Αριθμούς
Να γραφεί πρόγραμμα που διαβάζει 3 ακέραιους και εμφανίζει τον μεγαλύτερο.
ΠΡΟΓΡΑΜΜΑ Max3
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ a, b, c, max
ΑΡΧΗ
ΔΙΑΒΑΣΕ a, b, c
max ← a
ΑΝ b > max ΤΟΤΕ max ← b ΤΕΛΟΣ_ΑΝ
ΑΝ c > max ΤΟΤΕ max ← c ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Μέγιστος: ', max
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 4: Υπολογισμός Βαθμολογίας Μαθήματος
Να γραφεί πρόγραμμα που δέχεται την προφορική και γραπτή βαθμολογία μαθητή και υπολογίζει τον τελικό βαθμό ως μέσο όρο. Αν ο τελικός βαθμός είναι μικρότερος από 10, να εμφανίζει μήνυμα «Αποτυχία», αλλιώς «Επιτυχία».
ΠΡΟΓΡΑΜΜΑ TelikosVathmos
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ prof, grapta, tel
ΑΡΧΗ
ΓΡΑΨΕ 'Προφορικά, Γραπτά:'
ΔΙΑΒΑΣΕ prof, grapta
tel ← (prof + grapta) / 2
ΓΡΑΨΕ 'Τελικός: ', tel
ΑΝ tel < 10 ΤΟΤΕ
ΓΡΑΨΕ 'Αποτυχία'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Επιτυχία'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 5: Πολλαπλασιαστικός Πίνακας
Να γραφεί πρόγραμμα που δέχεται έναν αριθμό και εμφανίζει τον πολλαπλασιαστικό πίνακα από το 1 έως το 10.
ΠΡΟΓΡΑΜΜΑ PinakasPollaplasiasmou
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ n, i
ΑΡΧΗ
ΔΙΑΒΑΣΕ n
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ n, ' x ', i, ' = ', n*i
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 6: Υπολογισμός Παραγοντικού
Να γραφεί πρόγραμμα που διαβάζει έναν ακέραιο Ν και υπολογίζει το παραγοντικό του (Ν!).
ΠΡΟΓΡΑΜΜΑ Paragontiko
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ N, i
ΜΕΓΑΛΟΙ ΑΚΕΡΑΙΟΙ fact ! αν δεν υποστηρίζεται, άφησε ΑΚΕΡΑΙΕΣ
ΑΡΧΗ
ΔΙΑΒΑΣΕ N
fact ← 1
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ N
fact ← fact * i
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ N, '! = ', fact
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 7: Αθροιστική Επανάληψη
Να γραφεί πρόγραμμα που διαβάζει αριθμούς μέχρι να δοθεί ο αριθμός 0 και εμφανίζει το άθροισμά τους.
ΠΡΟΓΡΑΜΜΑ AthroismaMexriMiden
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ x, sum
ΑΡΧΗ
sum ← 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ x
sum ← sum + x
ΜΕΧΡΙΣ_ΟΤΟΥ x = 0
ΓΡΑΨΕ 'Άθροισμα = ', sum
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8: Υπολογισμός Έκπτωσης
Να γραφεί πρόγραμμα που διαβάζει την τιμή ενός προϊόντος και το ποσοστό έκπτωσης, και υπολογίζει την τελική τιμή. Αν η τελική τιμή είναι μικρότερη από 50€, να εμφανίζει μήνυμα «Ειδική προσφορά».
ΠΡΟΓΡΑΜΜΑ EkptosiTimis
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ timi, poso, teliki
ΑΡΧΗ
ΓΡΑΨΕ 'Τιμή και ποσοστό έκπτωσης (%):'
ΔΙΑΒΑΣΕ timi, poso
teliki ← timi * (1 - poso/100)
ΓΡΑΨΕ 'Τελική τιμή: ', teliki
ΑΝ teliki < 50 ΤΟΤΕ
ΓΡΑΨΕ 'Ειδική προσφορά'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 9: Έλεγχος Ηλικίας
Να γραφεί πρόγραμμα που διαβάζει την ηλικία ενός ατόμου και εμφανίζει:
- «Ανήλικος» αν η ηλικία < 18
- «Ενήλικος» αν 18 ≤ ηλικία < 65
- «Συνταξιούχος» αν ηλικία ≥ 65
ΠΡΟΓΡΑΜΜΑ KatigoriaHlikias
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ age
ΑΡΧΗ
ΔΙΑΒΑΣΕ age
ΑΝ age < 18 ΤΟΤΕ
ΓΡΑΨΕ 'Ανήλικος'
ΑΛΛΙΩΣ_ΑΝ age < 65 ΤΟΤΕ
ΓΡΑΨΕ 'Ενήλικος'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Συνταξιούχος'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 10: Μετρητής Θετικών και Αρνητικών
Να γραφεί πρόγραμμα που διαβάζει 20 αριθμούς και εμφανίζει πόσοι είναι θετικοί και πόσοι αρνητικοί.
ΠΡΟΓΡΑΜΜΑ PlithosThetArnit
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ i, x, th, ar
ΑΡΧΗ
th ← 0
ar ← 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΔΙΑΒΑΣΕ x
ΑΝ x > 0 ΤΟΤΕ
th ← th + 1
ΑΛΛΙΩΣ_ΑΝ x < 0 ΤΟΤΕ
ar ← ar + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Θετικοί: ', th, ' Αρνητικοί: ', ar
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ