2_5 Απουσίες
ΠΡΟΓΡΑΜΜΑ Απουσίες
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Δικ, Αδικ
ΠΡΑΓΜΑΤΙΚΕΣ: Μέσος_όρος
ΑΡΧΗ
ΓΡΑΨΕ ‘Δώστε Μέσο όρο του μαθητή : ‘
ΔΙΑΒΑΣΕ Μέσος_όρος
ΓΡΑΨΕ ‘Δώστε σύνολο Δικαιολογημένων απουσιών: ‘
ΔΙΑΒΑΣΕ Δικ
ΓΡΑΨΕ ‘Δώστε σύνολο Αδικαιολόγητων απουσιών : ‘
ΔΙΑΒΑΣΕ Αδικ
ΑΝ (Δικ + Αδικ <= 100 ΚΑΙ Αδικ <= 40) Η (Δικ + Αδικ <= 160 ΚΑΙ Αδικ <= 40 ΚΑΙ Μέσος_όρος > 15) ΤΟΤΕ
ΓΡΑΨΕ ‘Φοίτηση επαρκής’
ΑΛΛΙΩΣ
ΓΡΑΨΕ ‘Φοίτηση ανεπαρκής’
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 6 σελ 45
Α)
ΠΡΟΓΡΑΜΜΑ Παρ_3
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i
ΠΡΑΓΜΑΤΙΚΕΣ: sum, x
ΑΡΧΗ
sum <- 10
ΔΙΑΒΑΣΕ x
sum <- sum + x
ΔΙΑΒΑΣΕ x
ΟΣΟ x > 0 ΕΠΑΝΑΛΑΒΕ
sum <- sum + x
ΔΙΑΒΑΣΕ x
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
B)
ΠΡΟΓΡΑΜΜΑ 6_3
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i
ΠΡΑΓΜΑΤΙΚΕΣ: sum, x
ΑΡΧΗ
sum <- 10
ΔΙΑΒΑΣΕ x
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 2
sum <- sum + x
ΔΙΑΒΑΣΕ x
ΑΝ x > 0 ΤΟΤΕ
i <- 1
ΑΛΛΙΩΣ
i <- 2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ sum
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 7 σελ 45
α β
5 2
2 2
1 2
13 φορές το 2
Άσκηση 7 σελ 45
ΠΡΟΓΡΑΜΜΑ Αθροίσματα
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, sum1
ΠΡΑΓΜΑΤΙΚΕΣ: sum2, sum3
ΑΡΧΗ
!1+3+5+….+99
sum1 <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 99 ΜΕ ΒΗΜΑ 2
sum1 <- sum1 + i
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘1: ‘, sum1
!1/2+1/4+1/6+….+1/100
sum2 <- 0
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100 ΜΕ ΒΗΜΑ 2
sum2 <- sum2 + 1/i
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘2: ‘, sum2
!2^2+4^2+…..+100^2
sum3 <- 0
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100 ΜΕ ΒΗΜΑ 2
sum3 <- sum3 + i^ 2
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘3: ‘, sum3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 8 σελ 45
ΠΡΟΓΡΑΜΜΑ ΑθροισμΑ_Μέγιστος
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: N, x, sum, max
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘Δώστε θετικό αριθμό που θέλουμε να φτάσουμε:’
ΔΙΑΒΑΣΕ N
ΑΝ N <= 0 ΤΟΤΕ
ΓΡΑΨΕ ‘Μη αποδεκτή τιμή’
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ N > 0
sum <- 0
max <- –1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘Δώστε θετικό αριθμό : ‘
ΔΙΑΒΑΣΕ x
ΑΝ x <= 0 ΤΟΤΕ
ΓΡΑΨΕ ‘Μη αποδεκτή τιμή’
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ x > 0
sum <- sum + x
ΑΝ x > max ΤΟΤΕ
max <- x
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ sum > N
ΓΡΑΨΕ ‘Αθροισμα :’, sum
ΓΡΑΨΕ ‘Μέγιστος :’, max
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Άσκηση 9 σελ46
ΠΡΟΓΡΑΜΜΑ Μέγιστα_Ελάχιστα_Βαθμολογίας
ΣΤΑΘΕΡΕΣ
ΠΛΗΘΟΣ_ΜΑΘΗΤΩΝ = 26
ΠΛΗΘΟΣ_ΒΑΘΜΩΝ = 10
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: όνομα, όνομα_max, όνομα_min
ΑΚΕΡΑΙΕΣ: i, j, sum, βαθμό
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ, max, min
ΑΡΧΗ
max <- –1
min <- 21
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ_ΜΑΘΗΤΩΝ
ΓΡΑΨΕ ‘Δώστε όνομα ‘, i, ‘ου μαθητή’
ΔΙΑΒΑΣΕ όνομα
sum <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ ΠΛΗΘΟΣ_ΒΑΘΜΩΝ
ΓΡΑΨΕ ‘Δώστε ‘, j, ‘ο βαθμό’
ΔΙΑΒΑΣΕ βαθμό
sum <- sum + βαθμό
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΟ <- sum/ ΠΛΗΘΟΣ_ΒΑΘΜΩΝ
ΑΝ ΜΟ > max ΤΟΤΕ
max <- ΜΟ
όνομα_max <- όνομα
ΤΕΛΟΣ_ΑΝ
ΑΝ ΜΟ < min ΤΟΤΕ
min <- ΜΟ
όνομα_min <- όνομα
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ‘Μεγαλύτερος μέσος όρος: ‘, max, ‘από τον ‘, όνομα_max
ΓΡΑΨΕ ‘Μικρότερος μέσος όρος: ‘, min, ‘από τον ‘, όνομα_min
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ στατιστικά_ηλικιών
ΠΡΟΓΡΑΜΜΑ στατιστικά_ηλικιών
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.1
!
! Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο να διαβάζει τις ηλικίες
! και τα ονόματα 100 ανθρώπων.
! Τα δεδομένα να καταχωρούνται σε πίνακες, κάνοντας έλεγχο εγκυρότητας
! για την ηλικία που πρέπει να είναι θετικός αριθμός.
! Κατόπιν να υπολογίζει και να εμφανίζει:
! 1) Το μέσο όρο των ηλικιών.
! 2) Τη μέγιστη ηλικία καθώς πόσοι και ποιοι την έχουν.
! 3) Το πλήθος και τα ονόματα των ανθρώπων που είναι άνω των 50 ετών.
ΣΤΑΘΕΡΕΣ
Ν = 100
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ηλικία[Ν], i, max, πλήθος
ΧΑΡΑΚΤΗΡΕΣ: όνομα[Ν]
ΑΡΧΗ
! Διάβασμα τιμών
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώστε ', i, 'o όνομα :'
ΔΙΑΒΑΣΕ όνομα[i]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώστε ηλικία : '
ΔΙΑΒΑΣΕ ηλικία[i]
ΑΝ ηλικία[i] <= 0 ΤΟΤΕ
ΓΡΑΨΕ 'Μη αποδεκτή τιμή'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ηλικία[i] > 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! εύρεση μέγιστης ηλικίας
max <- ηλικία[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] > max ΤΟΤΕ
max <- ηλικία[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Μέγιστη ηλικία: ', max
ΓΡΑΨΕ 'Τη μέγιστη ηλικία έχουν:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] = max ΤΟΤΕ
ΓΡΑΨΕ όνομα[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
πλήθος <- 0
ΓΡΑΨΕ 'Τα ονόματα των ανθρώπων που είναι άνω των 50 ετών:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ηλικία[i] > 50 ΤΟΤΕ
ΓΡΑΨΕ όνομα[i]
πλήθος <- πλήθος + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος άνω των 50 ετών : ', πλήθος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΠΡΟΓΡΑΜΜΑ Τμήμα_Προσωπικού_Επιχείρησης
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 4.10.2
!
! Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ", το οποίο να διαβάζει για τους 176 υπαλλήλους
! μιας επιχείρησης τα ονόματα, το έτος πρόσληψης, τα έτη προϋπηρεσίας σε άλλες
! επιχειρήσεις και να αποθηκεύονται στους πίνακες ΟΝΟΜΑΤΑ, ΕΤΟΣ_ΠΡΟΣΛΗΨΗΣ και
! ΕΤΗ_ΥΠΗΡΕΣΙΑΣ αντίστοιχα. Στη συνέχεια να:
! 1) Εμφανίζει τα ονόματα των υπαλλήλων που θα συνταξιοδοτηθούν την επόμενη
! πενταετία καθώς και το πλήθος τους.
! Σύνταξη δίνεται στα 40 έτη συνολικής υπηρεσίας και άνω.
! 2) Δημιουργηθεί πίνακας με το όνομα ΝΕΟΙ_ΕΡΓΑΖΟΜΕΝΟΙ, με τα ονόματα των
! εργαζομένων που έχουν συνολικά έτη υπηρεσίας (μαζί και η προϋπηρεσία τους)
! λιγότερα από 5 και στη συνέχεια να τα εμφανίζει.
ΣΤΑΘΕΡΕΣ
! Ν = 176
Ν = 3
φέτος = 2017
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΕΤΟΣ_ΠΡΟΣΛΗΨΗΣ[Ν], ΕΤΗ_ΥΠΗΡΕΣΙΑΣ[Ν], i, πλήθος, new
ΧΑΡΑΚΤΗΡΕΣ: ΟΝΟΜΑΤΑ[Ν], ΝΕΟΙ_ΕΡΓΑΖΟΜΕΝΟΙ[Ν]
ΑΡΧΗ
! Διάβασμα τιμών
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώστε ', i, 'o όνομα : '
ΔΙΑΒΑΣΕ ΟΝΟΜΑΤΑ[i]
ΓΡΑΨΕ 'Δώστε έτος πρόσληψης : '
ΔΙΑΒΑΣΕ ΕΤΟΣ_ΠΡΟΣΛΗΨΗΣ[i]
ΓΡΑΨΕ 'Δώστε έτη προϋπηρεσίας : '
ΔΙΑΒΑΣΕ ΕΤΗ_ΥΠΗΡΕΣΙΑΣ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ονόματα υπαλλήλων που θα συνταξιοδοτηθούν την επόμενη πενταετία:'
πλήθος <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ( φέτος - ΕΤΟΣ_ΠΡΟΣΛΗΨΗΣ[i]) + ΕΤΗ_ΥΠΗΡΕΣΙΑΣ[i] + 5 >= 40 ΤΟΤΕ
ΓΡΑΨΕ ΟΝΟΜΑΤΑ[i]
πλήθος <- πλήθος + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος : ', πλήθος
ΓΡΑΨΕ 'Αντιγραφή νέων σε πίνακα και εμφάνιση'
new <- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ ( φέτος - ΕΤΟΣ_ΠΡΟΣΛΗΨΗΣ[i]) + ΕΤΗ_ΥΠΗΡΕΣΙΑΣ[i] < 5 ΤΟΤΕ
new <- new + 1
ΝΕΟΙ_ΕΡΓΑΖΟΜΕΝΟΙ[new] <- ΟΝΟΜΑΤΑ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ new
ΓΡΑΨΕ ΝΕΟΙ_ΕΡΓΑΖΟΜΕΝΟΙ[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ