ΑΣΚΗΣΕΙΣ ΜΕ ΠΙΝΑΚΕΣ
Κάντε κλικ για να μεταφερθείτε στην άσκηση που θέλετε..
ΜΟΝΟΔΙΑΣΤΑΤΟΙ ΠΙΝΑΚΕΣ
ΑΣΚΗΣΗ ΜΠ1 *
Να φτιάξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει πίνακα πραγματικών αριθμών 100 θέσεων και να υπολογίζει και να εμφανίζει τα εξής:
- Το γινόμενο των στοιχείων του πίνακα.
- Το πλήθος των μηδενικών στοιχείων.
- Το ποσοστό των μη μηδενικών στοιχείων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ1
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Π[100], ΓΙΝ, ΠΟΣΟΣΤΟ
ΑΚΕΡΑΙΕΣ : ΠΛ, i
ΑΡΧΗ
ΓΙΝ<-1
ΠΛ<-0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ
ΔΙΑΒΑΣΕ Π[100]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΥΠΟΛΟΓΙΣΜΟΣ ΓΙΝΟΜΕΝΟΥ
ΓΙΝ<-ΓΙΝ*Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΓΙΝ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΕΥΡΕΣΗ ΠΛΗΘΟΥΣ ΜΗΔΕΝΙΚΩΝ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ
ΑΝ Π[i] =0 ΤΟΤΕ
ΠΛ<-ΠΛ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΟΣΟΣΤΟ<-100 - ΠΛ
ΓΡΑΨΕ ΠΟΣΟΣΤΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να φτιάξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει πίνακα πραγματικών αριθμών 100 θέσεων και να υπολογίζει και να εμφανίζει τα εξής:
- Το γινόμενο των στοιχείων του πίνακα.
- Το πλήθος των μηδενικών στοιχείων.
- Το ποσοστό των μη μηδενικών στοιχείων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ1
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Π[100], ΓΙΝ, ΠΟΣΟΣΤΟ
ΑΚΕΡΑΙΕΣ : ΠΛ, i
ΑΡΧΗ
ΓΙΝ<-1
ΠΛ<-0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ
ΔΙΑΒΑΣΕ Π[100]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΥΠΟΛΟΓΙΣΜΟΣ ΓΙΝΟΜΕΝΟΥ
ΓΙΝ<-ΓΙΝ*Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΓΙΝ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100 !ΕΥΡΕΣΗ ΠΛΗΘΟΥΣ ΜΗΔΕΝΙΚΩΝ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ
ΑΝ Π[i] =0 ΤΟΤΕ
ΠΛ<-ΠΛ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΟΣΟΣΤΟ<-100 - ΠΛ
ΓΡΑΨΕ ΠΟΣΟΣΤΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ2 **
Να φτιάξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε 3 πίνακες το επίθετο, το φύλο και τον ΓΜΟ 50 μαθητών μιας τάξης. Το φύλο μπορεί να πάρει τιμές Α ή Κ και ο ΓΜΟ είναι πραγματικός αριθμός στο διάστημα [0 -20]. Κατά την εισαγωγή του φύλου και του ΓΜΟ να γίνεται έλεγχος ορθότητας.
Να εμφανίζει το ποσοστό αγοριών και κοριτσιών της τάξης.
Να εμφανίζει όλα τα στοιχεία του ή των μαθητών με το μεγαλύτερο ΓΜΟ
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ2
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : ΓΜΟ[50], ΠΟΑ, ΠΟΚ
ΧΑΡΑΚΤΗΡΕΣ: Φ[50], ΕΠ[50]
ΑΚΕΡΑΙΕΣ : ι, ΠΛΑ, ΠΛΚ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΕΠΙΘΕΤΩΝ
ΔΙΑΒΑΣΕ ΕΠ[ι]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΦΥΛΟΥ ΜΕ ΕΛΕΓΧΟ ΟΡΘΟΤΗΤΑΣ
ΔΙΑΒΑΣΕ Φ[ι]
ΜΕΧΡΙΣ_ΟΤΟΥ Φ[ι]='Α' Ή Φ[ι]='Κ'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΓΜΟ ΜΕ ΕΛΕΓΧΟ ΟΡΘΟΤΗΤΑΣ
ΔΙΑΒΑΣΕ ΓΜΟ[ι]
ΜΕΧΡΙΣ_ΟΤΟΥ ΓΜΟ[ι]>=0 ΚΑΙ ΓΜΟ[ι]<=20
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΛΑ<-0
ΠΛΚ<-0
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ Φ[ι]='Α' ΤΟΤΕ
ΠΛΑ<-ΠΛΑ+1
ΑΛΛΙΩΣ
ΠΛΚ<-ΠΛΚ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΟΑ<-ΠΛΑ*100/50
ΓΡΑΨΕ ΠΟΑ
ΠΟΚ<-ΠΛΚ*100/50
ΓΡΑΨΕ ΠΟΚ
ΜΑΧΒ<-0 !ΕΥΡΕΣΗ ΜΕΓΑΛΥΤΕΡΟΥ ΓΜΟ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ΓΜΟ[ι]>ΜΑΧΒ ΤΟΤΕ
ΜΑΧΒ<-ΓΜΟ[ι]
ΤΕΛΟΣ_ΑΝ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΕΜΦΑΝΙΣΗ ΣΤΟΙΧΕΙΩΝ ΜΑΘΗΤΩΝ ΜΕ ΤΟΝ ΜΕΓΑΛΥΤΕΡΟ ΒΑΘΜΟ
ΑΝ ΓΜΟ[ι]= ΜΑΧΒ ΤΟΤΕ
ΓΡΑΨΕ ΕΠ[ι], Φ[ι], ΓΜΟ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να φτιάξετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε 3 πίνακες το επίθετο, το φύλο και τον ΓΜΟ 50 μαθητών μιας τάξης. Το φύλο μπορεί να πάρει τιμές Α ή Κ και ο ΓΜΟ είναι πραγματικός αριθμός στο διάστημα [0 -20]. Κατά την εισαγωγή του φύλου και του ΓΜΟ να γίνεται έλεγχος ορθότητας.
Να εμφανίζει το ποσοστό αγοριών και κοριτσιών της τάξης.
Να εμφανίζει όλα τα στοιχεία του ή των μαθητών με το μεγαλύτερο ΓΜΟ
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ2
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : ΓΜΟ[50], ΠΟΑ, ΠΟΚ
ΧΑΡΑΚΤΗΡΕΣ: Φ[50], ΕΠ[50]
ΑΚΕΡΑΙΕΣ : ι, ΠΛΑ, ΠΛΚ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΕΠΙΘΕΤΩΝ
ΔΙΑΒΑΣΕ ΕΠ[ι]
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΦΥΛΟΥ ΜΕ ΕΛΕΓΧΟ ΟΡΘΟΤΗΤΑΣ
ΔΙΑΒΑΣΕ Φ[ι]
ΜΕΧΡΙΣ_ΟΤΟΥ Φ[ι]='Α' Ή Φ[ι]='Κ'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ ΓΜΟ ΜΕ ΕΛΕΓΧΟ ΟΡΘΟΤΗΤΑΣ
ΔΙΑΒΑΣΕ ΓΜΟ[ι]
ΜΕΧΡΙΣ_ΟΤΟΥ ΓΜΟ[ι]>=0 ΚΑΙ ΓΜΟ[ι]<=20
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΛΑ<-0
ΠΛΚ<-0
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ Φ[ι]='Α' ΤΟΤΕ
ΠΛΑ<-ΠΛΑ+1
ΑΛΛΙΩΣ
ΠΛΚ<-ΠΛΚ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΠΟΑ<-ΠΛΑ*100/50
ΓΡΑΨΕ ΠΟΑ
ΠΟΚ<-ΠΛΚ*100/50
ΓΡΑΨΕ ΠΟΚ
ΜΑΧΒ<-0 !ΕΥΡΕΣΗ ΜΕΓΑΛΥΤΕΡΟΥ ΓΜΟ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ΓΜΟ[ι]>ΜΑΧΒ ΤΟΤΕ
ΜΑΧΒ<-ΓΜΟ[ι]
ΤΕΛΟΣ_ΑΝ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΕΜΦΑΝΙΣΗ ΣΤΟΙΧΕΙΩΝ ΜΑΘΗΤΩΝ ΜΕ ΤΟΝ ΜΕΓΑΛΥΤΕΡΟ ΒΑΘΜΟ
ΑΝ ΓΜΟ[ι]= ΜΑΧΒ ΤΟΤΕ
ΓΡΑΨΕ ΕΠ[ι], Φ[ι], ΓΜΟ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ3 ** (σειριακή αναζήτηση πρώτου στοιχείου- με χρήση λογικής μεταβλητής ΒΡΕΘΗΚΕ)
Μια εταιρεία κρατά σε λίστα τα ονόματα 100 προμηθευτών καθώς και τα χρήματα που χρωστάει στον καθένα.
Να φτιάξετε πρόγραμμα με το οποίο να καταχωρούνται τα παραπάνω στοιχεία σε δύο πίνακες Π[100] και Χ[100].
Να εμφανίζει το ή τα ονόματα των προμηθευτών στους οποίους η εταιρεία χρωστά τα περισσότερα χρήματα.
Να μπορεί να δέχεται ώς είσοδο το όνομα ενός προμηθευτή και να εμφανίζει το ποσό που του χρωστάει. Αν το όνομα δεν υπάρχει να εμφανίζει μήνυμα ότι ο συγκεκριμένος προμηθευτής δεν υπάρχει.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ3
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Π[100], Χ[100], ΜΑΧ
ΑΚΕΡΑΙΕΣ : ι
ΧΑΡΑΚΤΗΡΕΣ : ΠΡΟΜΗΘΕΥΤΗΣ
ΛΟΓΙΚΕΣ : ΒΡΕΘΗΚΕ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Π[ι], Χ[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ<- 0 !ΕΥΡΕΣΗ ΤΟΥ ΜΕΓΙΣΤΟΥ ΧΡΕΟΥΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ Χ[ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<-Χ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΣΑΡΩΣΗ ΠΙΝΑΚΑ ΧΡΕΩΝ ΚΑΙ ΕΛΕΧΓΟΣ ΓΙΑ ΚΑΘΕ ΘΕΣΗ ΑΝ ΕΙΝΑΙ ΙΣΟ ΜΕ ΜΑΧ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΚΑΙ ΕΜΦΑΝΙΣΗ ΠΡΟΜΗΘΕΥΤΗ
ΑΝ Χ[ι]=ΜΑΧ ΤΟΤΕ
ΓΡΑΨΕ Π[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΠΡΟΜΗΘΕΥΤΗΣ !ΑΝΑΖΗΤΗΣΗ ΠΡΟΜΗΘΕΥΤΗ ΣΤΟΝ Π[100]
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ ! Η ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΣΤΑΜΑΤΑ ΜΟΛΙΣ ΒΡΕΘΕΙ Ο ΠΡΟΜΗΘΕΥΤΗΣ ΜΕ ΤΗ ΒΟΗΘΕΙΑ ΤΗΣ ΒΡΕΘΗΚΕ
ι<- 1
ΟΣΟ ι <=100 ΚΑΙ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Π[ι] = ΠΡΟΜΗΘΕΥΤΗΣ ΤΟΤΕ
ΓΡΑΨΕ Π[ι]
ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ι<- ι +1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΑΠΟΤΥΧΗΜΕΝΗΣ ΑΝΑΖΗΤΗΣΗΣ
ΓΡΑΨΕ 'Ο ΠΡΟΜΗΘΕΤΗΣ ΠΟΥ ΔΩΣΑΤΕ ΔΕΝ ΥΠΑΡΧΕΙ ΣΤΟΝ ΠΙΝΑΚΑ ΠΡΟΜΗΘΕΤΩΝ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Μια εταιρεία κρατά σε λίστα τα ονόματα 100 προμηθευτών καθώς και τα χρήματα που χρωστάει στον καθένα.
Να φτιάξετε πρόγραμμα με το οποίο να καταχωρούνται τα παραπάνω στοιχεία σε δύο πίνακες Π[100] και Χ[100].
Να εμφανίζει το ή τα ονόματα των προμηθευτών στους οποίους η εταιρεία χρωστά τα περισσότερα χρήματα.
Να μπορεί να δέχεται ώς είσοδο το όνομα ενός προμηθευτή και να εμφανίζει το ποσό που του χρωστάει. Αν το όνομα δεν υπάρχει να εμφανίζει μήνυμα ότι ο συγκεκριμένος προμηθευτής δεν υπάρχει.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ3
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Π[100], Χ[100], ΜΑΧ
ΑΚΕΡΑΙΕΣ : ι
ΧΑΡΑΚΤΗΡΕΣ : ΠΡΟΜΗΘΕΥΤΗΣ
ΛΟΓΙΚΕΣ : ΒΡΕΘΗΚΕ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Π[ι], Χ[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΑΧ<- 0 !ΕΥΡΕΣΗ ΤΟΥ ΜΕΓΙΣΤΟΥ ΧΡΕΟΥΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ Χ[ι]>ΜΑΧ ΤΟΤΕ
ΜΑΧ<-Χ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΣΑΡΩΣΗ ΠΙΝΑΚΑ ΧΡΕΩΝ ΚΑΙ ΕΛΕΧΓΟΣ ΓΙΑ ΚΑΘΕ ΘΕΣΗ ΑΝ ΕΙΝΑΙ ΙΣΟ ΜΕ ΜΑΧ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΚΑΙ ΕΜΦΑΝΙΣΗ ΠΡΟΜΗΘΕΥΤΗ
ΑΝ Χ[ι]=ΜΑΧ ΤΟΤΕ
ΓΡΑΨΕ Π[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΠΡΟΜΗΘΕΥΤΗΣ !ΑΝΑΖΗΤΗΣΗ ΠΡΟΜΗΘΕΥΤΗ ΣΤΟΝ Π[100]
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ ! Η ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΣΤΑΜΑΤΑ ΜΟΛΙΣ ΒΡΕΘΕΙ Ο ΠΡΟΜΗΘΕΥΤΗΣ ΜΕ ΤΗ ΒΟΗΘΕΙΑ ΤΗΣ ΒΡΕΘΗΚΕ
ι<- 1
ΟΣΟ ι <=100 ΚΑΙ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Π[ι] = ΠΡΟΜΗΘΕΥΤΗΣ ΤΟΤΕ
ΓΡΑΨΕ Π[ι]
ΒΡΕΘΗΚΕ <- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ι<- ι +1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΑΠΟΤΥΧΗΜΕΝΗΣ ΑΝΑΖΗΤΗΣΗΣ
ΓΡΑΨΕ 'Ο ΠΡΟΜΗΘΕΤΗΣ ΠΟΥ ΔΩΣΑΤΕ ΔΕΝ ΥΠΑΡΧΕΙ ΣΤΟΝ ΠΙΝΑΚΑ ΠΡΟΜΗΘΕΤΩΝ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ3Β ** (σειριακή αναζήτηση σε όλο τον πίνακα)
Ένα κατάστημα παιχνιδιών διαθέτει 10000 διαφορετικά προϊόντα προς πώληση. Να φτιάξετε πρόγραμμα το οποίο διαβάζει τους κωδικούς, το όνομα του παιχνιδιού και το όνομα του προμηθευτή του αντίστοιχου παιχνιδιού σε 3 πίνακες Κ[ι], Ο[ι] και Π[ι].
Στη συνέχεια να διαβάζει σε μία μεταβλητή το όνομα ενός προμηθευτή και μετά από αναζήτηση να εμφανίζει όλα τα διαθέσιμα παιχνίδια (κωδικό και όνομα παιχνιδιού) που αντιστοιχούν σε αυτόν. Σε περίπτωση που ο προμηθευτής δεν βρεθεί να εμφανίζει κατάλληλο μήνυμα στην οθόνη.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ4
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[10000], Π[10000]
ΑΚΕΡΑΙΕΣ : Κ[10000], i
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10000 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Κ[ι], Ο[ι], Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΒΡΕΘΗΚΕ<-ΨΕΥΔΗΣ
ΔΙΑΒΑΣΕ ΠΡΟΜΗΘΕΥΤΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10000 !ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΟΛΟΥ ΤΟΥ ΠΙΝΑΚΑ ΓΙΑ ΕΥΡΕΣΗ ΟΛΩΝ ΤΩΝ ΠΡΟΜΗΘΕΥΤΩΝ
ΑΝ Π[ι] = ΠΡΟΜΗΘΕΥΤΗ ΤΟΤΕ
ΓΡΑΨΕ Κ[ι], Ο[ι], Π[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΠΟΥ ΔΕΝ ΒΡΕΘΗΚΕ Ο ΠΡΟΜΗΘΕΥΤΗΣ
ΓΡΑΨΕ 'Ο ΠΡΟΜΗΘΕΥΤΗΣ ΔΕΝ ΒΡΕΘΗΚΕ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Ένα κατάστημα παιχνιδιών διαθέτει 10000 διαφορετικά προϊόντα προς πώληση. Να φτιάξετε πρόγραμμα το οποίο διαβάζει τους κωδικούς, το όνομα του παιχνιδιού και το όνομα του προμηθευτή του αντίστοιχου παιχνιδιού σε 3 πίνακες Κ[ι], Ο[ι] και Π[ι].
Στη συνέχεια να διαβάζει σε μία μεταβλητή το όνομα ενός προμηθευτή και μετά από αναζήτηση να εμφανίζει όλα τα διαθέσιμα παιχνίδια (κωδικό και όνομα παιχνιδιού) που αντιστοιχούν σε αυτόν. Σε περίπτωση που ο προμηθευτής δεν βρεθεί να εμφανίζει κατάλληλο μήνυμα στην οθόνη.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ4
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[10000], Π[10000]
ΑΚΕΡΑΙΕΣ : Κ[10000], i
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10000 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Κ[ι], Ο[ι], Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΒΡΕΘΗΚΕ<-ΨΕΥΔΗΣ
ΔΙΑΒΑΣΕ ΠΡΟΜΗΘΕΥΤΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10000 !ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΟΛΟΥ ΤΟΥ ΠΙΝΑΚΑ ΓΙΑ ΕΥΡΕΣΗ ΟΛΩΝ ΤΩΝ ΠΡΟΜΗΘΕΥΤΩΝ
ΑΝ Π[ι] = ΠΡΟΜΗΘΕΥΤΗ ΤΟΤΕ
ΓΡΑΨΕ Κ[ι], Ο[ι], Π[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΒΡΕΘΗΚΕ = ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΠΟΥ ΔΕΝ ΒΡΕΘΗΚΕ Ο ΠΡΟΜΗΘΕΥΤΗΣ
ΓΡΑΨΕ 'Ο ΠΡΟΜΗΘΕΥΤΗΣ ΔΕΝ ΒΡΕΘΗΚΕ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ4 ** (σειριακή αναζήτηση σε όλο τον πίνακα και αποθήκευση θέσεων ζητουμένου σε νέο πίνακα)
Να γράψετε πρόγραμμα το οποίο θα κάνει αναζήτηση ενός στοιχείου, το οποίο μπορεί να βρεθεί σε πολλές θέσεις του πίνακα Α και να αποθηκεύσετε τις θέσεις αυτές σε νέο πίνακα Β. Τα υπόλοιπα στοιχεία του Β να είναι μηδενικά. Και οι δύο πίνακες αφορούν ακεραίους αριθμούς. Το μέγεθος των πινάκων να δίνεται μα τη βοήθεια μιας σταθεράς. Στο τέλος να εμφανίζει μέσω του πίνακα Β τις θέσεις που βρέθηκε το ζητούμενο.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ4
ΣΤΑΘΕΡΕΣ
Ν = 100
ΜΕΤΑΒΛΗΤΕΣ
ΛΟΓΙΚΕΣ: βρ
ΑΚΕΡΑΙΕΣ : i, Α[Ν], Β[Ν]
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
Β[ι] <- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
βρ<-ΨΕΥΔΗΣ
ΔΙΑΒΑΣΕ ζητ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν !ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΟΛΟΥ ΤΟΥ ΠΙΝΑΚΑ ΓΙΑ ΕΥΡΕΣΗ ΟΛΩΝ ΤΩΝ ζητ
ΑΝ Α[ι] = ζητ ΤΟΤΕ
Β[ι] <- ι
βρ<- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ= ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΠΟΥ ΔΕΝ ΒΡΕΘΗΚΕ Ο ΠΡΟΜΗΘΕΥΤΗΣ
ΓΡΑΨΕ 'Το ζητούμενο ΔΕΝ ΒΡΕΘΗΚΕ'
ΑΛΛΙΩΣ !ΕΜΦΑΝΙΣΗ ΘΕΣΕΩΝ ΑΠΟ ΤΟΝ Β ΠΟΥ ΒΡΕΘΗΚΕ ΤΟ ΖΗΤΟΥΜΕΝΟ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ Β[ι]<>0 ΤΟΤΕ ΓΡΑΨΕ Β[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο θα κάνει αναζήτηση ενός στοιχείου, το οποίο μπορεί να βρεθεί σε πολλές θέσεις του πίνακα Α και να αποθηκεύσετε τις θέσεις αυτές σε νέο πίνακα Β. Τα υπόλοιπα στοιχεία του Β να είναι μηδενικά. Και οι δύο πίνακες αφορούν ακεραίους αριθμούς. Το μέγεθος των πινάκων να δίνεται μα τη βοήθεια μιας σταθεράς. Στο τέλος να εμφανίζει μέσω του πίνακα Β τις θέσεις που βρέθηκε το ζητούμενο.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ4
ΣΤΑΘΕΡΕΣ
Ν = 100
ΜΕΤΑΒΛΗΤΕΣ
ΛΟΓΙΚΕΣ: βρ
ΑΚΕΡΑΙΕΣ : i, Α[Ν], Β[Ν]
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
Β[ι] <- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
βρ<-ΨΕΥΔΗΣ
ΔΙΑΒΑΣΕ ζητ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν !ΣΕΙΡΙΑΚΗ ΑΝΑΖΗΤΗΣΗ ΟΛΟΥ ΤΟΥ ΠΙΝΑΚΑ ΓΙΑ ΕΥΡΕΣΗ ΟΛΩΝ ΤΩΝ ζητ
ΑΝ Α[ι] = ζητ ΤΟΤΕ
Β[ι] <- ι
βρ<- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ= ΨΕΥΔΗΣ ΤΟΤΕ !ΕΜΦΑΝΙΣΗ ΜΗΝΥΜΑΤΟΣ ΣΕ ΠΕΡΙΠΤΩΣΗ ΠΟΥ ΔΕΝ ΒΡΕΘΗΚΕ Ο ΠΡΟΜΗΘΕΥΤΗΣ
ΓΡΑΨΕ 'Το ζητούμενο ΔΕΝ ΒΡΕΘΗΚΕ'
ΑΛΛΙΩΣ !ΕΜΦΑΝΙΣΗ ΘΕΣΕΩΝ ΑΠΟ ΤΟΝ Β ΠΟΥ ΒΡΕΘΗΚΕ ΤΟ ΖΗΤΟΥΜΕΝΟ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΑΝ Β[ι]<>0 ΤΟΤΕ ΓΡΑΨΕ Β[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ5 ** (ταξινόμηση ευθείας ανταλλαγής σε αύξουσα σειρά (φυσαλίδα))
Να γράψετε πρόγραμμα το οποίο να διαβάζει ένα πίνακα 100 πραγματικούς αριθμούς και να εμφανίζει τους 10 μικρότερους.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ5
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Π[100]
ΑΚΕΡΑΙΕΣ : i, j
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ
ΔΙΑΒΑΣΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΠΙΝΑΚΑ ΣΕ ΑΥΞΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100
ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Π[j-1] > Π[j] ΤΟΤΕ
temp<-Π[j-1]
Π[j-1]<-Π[j]
Π[j]<-temp
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει ένα πίνακα 100 πραγματικούς αριθμούς και να εμφανίζει τους 10 μικρότερους.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ5
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Π[100]
ΑΚΕΡΑΙΕΣ : i, j
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ
ΔΙΑΒΑΣΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΠΙΝΑΚΑ ΣΕ ΑΥΞΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 100
ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Π[j-1] > Π[j] ΤΟΤΕ
temp<-Π[j-1]
Π[j-1]<-Π[j]
Π[j]<-temp
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ Π[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ6 ** (Ταξινομηση ευθείας ανταλλαγής σε φθίνουσα σειρα)
Δημιουργήστε 2 πίνακες σε ΓΛΩΣΣΑ, ο ένας Ο[50] για να κρατά 50 ονόματα μαθητών μιας τάξης και ο δεύτερος Β[50] για τους βαθμούς τους στο μάθημα των Νέων Ελληνικών. Στη συνέχεια να ταξινομήστε τους πίνακας έτσι ώστε να εμφανίσετε σε φθίνουσα σειρά τους βαθμούς και τα ονόματα των παραπάνω μαθητών.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ6
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[50]
ΠΡΑΓΜΑΤΙΚΕΣ: Β[50], Τ, Τ1
ΑΚΕΡΑΙΕΣ : κ, λ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ ΜΕ ΣΤΟΙΧΕΙΑ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Ο[κ], Β[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΦΥΣΑΛΙΔΑΣ ΜΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ 50
ΓΙΑ λ ΑΠΟ 50 ΜΕΧΡΙ κ ΜΕ_ΒΗΜΑ -1
ΑΝ Β[λ-1] < Β[λ] ΤΟΤΕ
Τ<-Β[λ-1] !ΑΝΤΑΛΛΑΓΗ ΣΤΟΙΧΕΙΩΝ ΣΤΟΝ Β ΠΙΝΑΚΑ
Β[λ-1]<-Β[λ]
Β[λ]<-Τ
Τ1<-Ο[λ-1] !ΑΝΤΑΛΛΑΓΗ ΑΝΤΙΣΤΟΙΧΩΝ ΣΤΟΙΧΕΙΩΝ ΣΤΟΝ Ο ΠΙΝΑΚΑ
Ο[λ-1]<-Ο[λ]
Ο[λ]<-Τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΜΑΘΗΤΩΝ ΚΑΙ ΒΑΘΜΩΝ ΣΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ Ο[κ], Β[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Δημιουργήστε 2 πίνακες σε ΓΛΩΣΣΑ, ο ένας Ο[50] για να κρατά 50 ονόματα μαθητών μιας τάξης και ο δεύτερος Β[50] για τους βαθμούς τους στο μάθημα των Νέων Ελληνικών. Στη συνέχεια να ταξινομήστε τους πίνακας έτσι ώστε να εμφανίσετε σε φθίνουσα σειρά τους βαθμούς και τα ονόματα των παραπάνω μαθητών.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ6
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[50]
ΠΡΑΓΜΑΤΙΚΕΣ: Β[50], Τ, Τ1
ΑΚΕΡΑΙΕΣ : κ, λ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ ΜΕ ΣΤΟΙΧΕΙΑ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Ο[κ], Β[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΦΥΣΑΛΙΔΑΣ ΜΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ 50
ΓΙΑ λ ΑΠΟ 50 ΜΕΧΡΙ κ ΜΕ_ΒΗΜΑ -1
ΑΝ Β[λ-1] < Β[λ] ΤΟΤΕ
Τ<-Β[λ-1] !ΑΝΤΑΛΛΑΓΗ ΣΤΟΙΧΕΙΩΝ ΣΤΟΝ Β ΠΙΝΑΚΑ
Β[λ-1]<-Β[λ]
Β[λ]<-Τ
Τ1<-Ο[λ-1] !ΑΝΤΑΛΛΑΓΗ ΑΝΤΙΣΤΟΙΧΩΝ ΣΤΟΙΧΕΙΩΝ ΣΤΟΝ Ο ΠΙΝΑΚΑ
Ο[λ-1]<-Ο[λ]
Ο[λ]<-Τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΜΑΘΗΤΩΝ ΚΑΙ ΒΑΘΜΩΝ ΣΕ ΦΘΙΝΟΥΣΑ ΣΕΙΡΑ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ Ο[κ], Β[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ7 ***(Παράλληλοι πίνακες)
Να εισάγετε σε πίνακες Ο και Β 100 θέσεων τα ονόματα 100 μαθητών και τους βαθμούς τους ένα μάθημα. Στη συνέχεια να δημιουργήσετε τους πίνακες Ο1 και Β1 πάλι 100 θέσεων και γεμίστε με ' - ' τον Ο1 και με -1 τον Β1.
Το πρόγραμμα που θα φτιάξετε να ελέγχει ποιοι μαθητές έχουν βαθμό μεγαλύτερο απο 17,5 και να τοποθετεί τα ονόματα και τους βαθμούς τους στις πρώτες θέσεις των πινάκων Ο1 και Β1 αντίστοιχα. Τέλος να γίνει φθίνουσα ταξιμόμηση του πίνακα Β1 και να εμφανίσετε τα ονόματα και τους βαθμούς των μαθητών με βαθμό πάνω απο 17,5.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ7
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Β[100], Β1[100]
ΧΑΡΑΚΤΗΡΕΣ : Ο[100], Ο1[100]
ΑΚΕΡΑΙΕΣ : ι, μ, κ, τ, τ1
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Ο[ι], Β[ι]
Ο1[ι] <- ' - '
Β1[ι] <- -1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
κ<-0 !ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΩΝ Ο1, Β1
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ Β[ι] > 17.5 ΤΟΤΕ
κ<-κ+1
Β1[κ] <- Β[ι]
Ο1[κ]<- Ο[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ κ !ΦΘΙΝΟΥΣΑ ΤΑΞΙΝΟΜΗΣΗ ΤΟΥ Β1 ΚΑΙ Ο1
ΓΙΑ μ ΑΠΟ κ ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Β1[μ-1] < Β1[μ] ΤΟΤΕ
τ<-Β1[μ-1]
Β1[μ-1]<-Β1[μ]
Β1[μ]<-τ
τ1<-Ο1[μ-1]
Ο1[μ-1]<-Ο1[μ]
Ο1[μ]<-τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ κ
ΓΡΑΨΕ Ο1[ι], Β1[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να εισάγετε σε πίνακες Ο και Β 100 θέσεων τα ονόματα 100 μαθητών και τους βαθμούς τους ένα μάθημα. Στη συνέχεια να δημιουργήσετε τους πίνακες Ο1 και Β1 πάλι 100 θέσεων και γεμίστε με ' - ' τον Ο1 και με -1 τον Β1.
Το πρόγραμμα που θα φτιάξετε να ελέγχει ποιοι μαθητές έχουν βαθμό μεγαλύτερο απο 17,5 και να τοποθετεί τα ονόματα και τους βαθμούς τους στις πρώτες θέσεις των πινάκων Ο1 και Β1 αντίστοιχα. Τέλος να γίνει φθίνουσα ταξιμόμηση του πίνακα Β1 και να εμφανίσετε τα ονόματα και τους βαθμούς των μαθητών με βαθμό πάνω απο 17,5.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ7
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Β[100], Β1[100]
ΧΑΡΑΚΤΗΡΕΣ : Ο[100], Ο1[100]
ΑΚΕΡΑΙΕΣ : ι, μ, κ, τ, τ1
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Ο[ι], Β[ι]
Ο1[ι] <- ' - '
Β1[ι] <- -1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
κ<-0 !ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΩΝ Ο1, Β1
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ Β[ι] > 17.5 ΤΟΤΕ
κ<-κ+1
Β1[κ] <- Β[ι]
Ο1[κ]<- Ο[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ κ !ΦΘΙΝΟΥΣΑ ΤΑΞΙΝΟΜΗΣΗ ΤΟΥ Β1 ΚΑΙ Ο1
ΓΙΑ μ ΑΠΟ κ ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Β1[μ-1] < Β1[μ] ΤΟΤΕ
τ<-Β1[μ-1]
Β1[μ-1]<-Β1[μ]
Β1[μ]<-τ
τ1<-Ο1[μ-1]
Ο1[μ-1]<-Ο1[μ]
Ο1[μ]<-τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ κ
ΓΡΑΨΕ Ο1[ι], Β1[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ8 ****(Διπλή ταξινόμηση σε παράλληλους πίνακες)
Σε πρόγραμμα σε ΓΛΩΣΣΑ δημιουργήστε 3 πίνακες των 300 θέσεων Ο, Τ, Ε για την αποθήκευση στοιχείων των προϊόντων ενός καταστήματος. Ο πίνακας Ο για τα ονόματα, ο Τ για τις τιμές και ο Ε για την εταιρεία του κάθε προϊόντος. Να διαβάζεται κατά την εκτέλεση του προγράμματος το όνομα μιας εταιρείας. Στη συνέχεια να βρίσκονται και να εμφανίζονται με αύξουσα σειρά ως προς την τιμή τους όλα τα στοιχεία για τα προϊόντα της συγκεκριμένης εταιρείας. Σε περίπτωση που κάποια προϊόνται έχουν την ίδια αξία τότε να εμφανίζεται πρώτο το προϊόν με το μικρότερο αλφαβητικά όνομα. Τέλος αν δεν βρεθεί η εταιρεία που εισάγατε να εμφανίζεται το κατάλληλο μήνυμα.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ8
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[50], Ε[50]
ΠΡΑΓΜΑΤΙΚΕΣ: Β[50], Τ, Τ1
ΑΚΕΡΑΙΕΣ : κ, λ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Ο[ι], Τ[ι], Ε[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΣΕ ΑΥΞΟΥΣΑ ΣΕΙΡΑ ΟΛΩΝ ΤΩΝ ΠΙΝΑΚΩΝ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 300
ΓΙΑ κ ΑΠΟ 300 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Τ[κ-1]>Τ[κ] ΤΟΤΕ
Τ<-Τ[κ-1]
Τ[κ-1]<-Τ[κ]
Τ[Κ]<-Τ
Τ1<-Ο[κ-1]
Ο[κ-1]<-Ο[κ]
Ο[Κ]<-Τ1
Τ2<-Ε[κ-1]
Ε[κ-1]<-Ε[κ]
Ε[Κ]<-Τ2
ΑΛΛΙΩΣ_ΑΝ Τ[κ-1] = Τ[κ] ΤΟΤΕ
ΑΝ Ο[κ-1] > Ο[κ] ΤΟΤΕ
Τ<-Ο[κ-1]
Ο[κ-1]<-Ο[κ]
Ο[Κ]<-Τ
Τ1<-Ε[κ-1]
Ε[κ-1]<-Ε[κ]
Ε[Κ]<-Τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΤΑΙΡΕΙΑ !ΑΝΑΖΗΤΗΣΗ ΕΤΑΙΡΕΙΑΣ
κ<-1
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ
ΟΣΟ κ<=300 ΚΑΙ ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Ε[κ]=ΕΤΑΙΡΕΙΑ ΤΟΤΕ
ΒΡΕΘΗΚΕ<-ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΡΟΙΟΝΤΩΝ ΕΤΑΙΡΕΙΑΣ (ΑΝ ΑΥΤΗ ΒΡΕΘΗΚΕ)
ΑΝ ΒΡΕΘΗΚΕ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300
ΑΝ Ε[ι]=ΕΤΑΙΡΕΙΑ ΤΟΤΕ
ΓΡΑΨΕ Ο[ι], Τ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ' Η ΕΤΑΙΡΕΙΑ ΔΕΝ ΒΡΕΘΗΚΕ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Σε πρόγραμμα σε ΓΛΩΣΣΑ δημιουργήστε 3 πίνακες των 300 θέσεων Ο, Τ, Ε για την αποθήκευση στοιχείων των προϊόντων ενός καταστήματος. Ο πίνακας Ο για τα ονόματα, ο Τ για τις τιμές και ο Ε για την εταιρεία του κάθε προϊόντος. Να διαβάζεται κατά την εκτέλεση του προγράμματος το όνομα μιας εταιρείας. Στη συνέχεια να βρίσκονται και να εμφανίζονται με αύξουσα σειρά ως προς την τιμή τους όλα τα στοιχεία για τα προϊόντα της συγκεκριμένης εταιρείας. Σε περίπτωση που κάποια προϊόνται έχουν την ίδια αξία τότε να εμφανίζεται πρώτο το προϊόν με το μικρότερο αλφαβητικά όνομα. Τέλος αν δεν βρεθεί η εταιρεία που εισάγατε να εμφανίζεται το κατάλληλο μήνυμα.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ8
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Ο[50], Ε[50]
ΠΡΑΓΜΑΤΙΚΕΣ: Β[50], Τ, Τ1
ΑΚΕΡΑΙΕΣ : κ, λ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΩΝ
ΔΙΑΒΑΣΕ Ο[ι], Τ[ι], Ε[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΣΕ ΑΥΞΟΥΣΑ ΣΕΙΡΑ ΟΛΩΝ ΤΩΝ ΠΙΝΑΚΩΝ
ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 300
ΓΙΑ κ ΑΠΟ 300 ΜΕΧΡΙ ι ΜΕ_ΒΗΜΑ -1
ΑΝ Τ[κ-1]>Τ[κ] ΤΟΤΕ
Τ<-Τ[κ-1]
Τ[κ-1]<-Τ[κ]
Τ[Κ]<-Τ
Τ1<-Ο[κ-1]
Ο[κ-1]<-Ο[κ]
Ο[Κ]<-Τ1
Τ2<-Ε[κ-1]
Ε[κ-1]<-Ε[κ]
Ε[Κ]<-Τ2
ΑΛΛΙΩΣ_ΑΝ Τ[κ-1] = Τ[κ] ΤΟΤΕ
ΑΝ Ο[κ-1] > Ο[κ] ΤΟΤΕ
Τ<-Ο[κ-1]
Ο[κ-1]<-Ο[κ]
Ο[Κ]<-Τ
Τ1<-Ε[κ-1]
Ε[κ-1]<-Ε[κ]
Ε[Κ]<-Τ1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΕΤΑΙΡΕΙΑ !ΑΝΑΖΗΤΗΣΗ ΕΤΑΙΡΕΙΑΣ
κ<-1
ΒΡΕΘΗΚΕ <- ΨΕΥΔΗΣ
ΟΣΟ κ<=300 ΚΑΙ ΒΡΕΘΗΚΕ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ Ε[κ]=ΕΤΑΙΡΕΙΑ ΤΟΤΕ
ΒΡΕΘΗΚΕ<-ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΡΟΙΟΝΤΩΝ ΕΤΑΙΡΕΙΑΣ (ΑΝ ΑΥΤΗ ΒΡΕΘΗΚΕ)
ΑΝ ΒΡΕΘΗΚΕ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 300
ΑΝ Ε[ι]=ΕΤΑΙΡΕΙΑ ΤΟΤΕ
ΓΡΑΨΕ Ο[ι], Τ[ι]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ' Η ΕΤΑΙΡΕΙΑ ΔΕΝ ΒΡΕΘΗΚΕ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ9*** (Συγχώνευση πινάκων)
Δημιουργήστε 2 ταξινομημένους σε αύξουσα σειρά μονοδιάστατους πίνακες Α και Β ακεραίων να γράψετε πρόγραμμα το οποίο να τους συγχωνεύει σε νέο πίνακα Γ επίσης ακεραίων με αύξουσα σειρά. Οι πίνακες Α και Β μπορούν να περιέχουν το πολύ 200 στοιχεία ο καθένας. Το πλήθος των στοιχείων τους να δίνεται κατά την εκτέλεση του προγράμματος. Έλεγχος ορθότητας εισόδου δεν απαιτείται.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ9
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[200], Β[200], Γ[400] !ΔΗΛΩΝΟΥΜΕ ΤΟ ΜΕΓΙΣΤΟ ΠΛΗΘΟΣ
ΑΡΧΗ
ΔΙΑΒΑΣΕ Ν, Μ !ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΣΤΟΙΧΕΙΩΝ ΤΟΥ Α, Β ΑΝΤΙΣΤΟΙΧΑ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Μ
ΔΙΑΒΑΣΕ Β[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Γ ΜΕΧΡΙ ΝΑ ΤΕΛΕΙΩΣΕΙ ΕΝΑΣ ΑΠΟ ΤΟΥΣ Α,Β ΠΙΝΑΚΕΣ
ι<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Α
ξ<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Β
κ<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Γ
ΟΣΟ ι<=Ν ΚΑΙ ξ<=Μ ΕΠΑΝΑΛΑΒΕ
ΑΝ Α[ι]<Β[ξ] ΤΟΤΕ
Γ[κ]<-Α[ι]
ι<-ι+1
κ<-κ+1
ΑΛΛΙΩΣ
Γ[κ]<-Β[ξ]
ξ<-ξ+1
κ<-κ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΣΥΜΠΛΗΡΩΣΗ ΥΠΟΛΟΙΠΩΝ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ Γ ΜΕ ΤΑ ΥΠΟΛΟΙΠΑ ΤΟΥ Α ή Β
ΑΝ ι>Ν ΤΟΤΕ !Ο Α ΕΧΕΙ ΤΕΛΕΙΩΣΕΙ
ΓΙΑ ψ ΑΠΟ κ ΜΕΧΡΙ Ν+Μ
Γ[ψ]<-Β[ξ]
ξ<-ξ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΙΑ ψ ΑΠΟ κ ΜΕΧΡΙ Ν+Μ
Γ[ψ]<-Α[ι]
ι<-ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΑ Γ
ΓΙΑ ψ ΑΠΟ 1 ΜΕΧΡΙ Ν+Μ
ΓΡΑΨΕ Γ[ψ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Δημιουργήστε 2 ταξινομημένους σε αύξουσα σειρά μονοδιάστατους πίνακες Α και Β ακεραίων να γράψετε πρόγραμμα το οποίο να τους συγχωνεύει σε νέο πίνακα Γ επίσης ακεραίων με αύξουσα σειρά. Οι πίνακες Α και Β μπορούν να περιέχουν το πολύ 200 στοιχεία ο καθένας. Το πλήθος των στοιχείων τους να δίνεται κατά την εκτέλεση του προγράμματος. Έλεγχος ορθότητας εισόδου δεν απαιτείται.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ9
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[200], Β[200], Γ[400] !ΔΗΛΩΝΟΥΜΕ ΤΟ ΜΕΓΙΣΤΟ ΠΛΗΘΟΣ
ΑΡΧΗ
ΔΙΑΒΑΣΕ Ν, Μ !ΤΟ ΠΛΗΘΟΣ ΤΩΝ ΣΤΟΙΧΕΙΩΝ ΤΟΥ Α, Β ΑΝΤΙΣΤΟΙΧΑ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ Μ
ΔΙΑΒΑΣΕ Β[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Γ ΜΕΧΡΙ ΝΑ ΤΕΛΕΙΩΣΕΙ ΕΝΑΣ ΑΠΟ ΤΟΥΣ Α,Β ΠΙΝΑΚΕΣ
ι<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Α
ξ<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Β
κ<-1 !ΔΕΙΚΤΗΣ ΠΙΝΑΚΑ Γ
ΟΣΟ ι<=Ν ΚΑΙ ξ<=Μ ΕΠΑΝΑΛΑΒΕ
ΑΝ Α[ι]<Β[ξ] ΤΟΤΕ
Γ[κ]<-Α[ι]
ι<-ι+1
κ<-κ+1
ΑΛΛΙΩΣ
Γ[κ]<-Β[ξ]
ξ<-ξ+1
κ<-κ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΣΥΜΠΛΗΡΩΣΗ ΥΠΟΛΟΙΠΩΝ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ Γ ΜΕ ΤΑ ΥΠΟΛΟΙΠΑ ΤΟΥ Α ή Β
ΑΝ ι>Ν ΤΟΤΕ !Ο Α ΕΧΕΙ ΤΕΛΕΙΩΣΕΙ
ΓΙΑ ψ ΑΠΟ κ ΜΕΧΡΙ Ν+Μ
Γ[ψ]<-Β[ξ]
ξ<-ξ+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΙΑ ψ ΑΠΟ κ ΜΕΧΡΙ Ν+Μ
Γ[ψ]<-Α[ι]
ι<-ι+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΑ Γ
ΓΙΑ ψ ΑΠΟ 1 ΜΕΧΡΙ Ν+Μ
ΓΡΑΨΕ Γ[ψ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ10 *** (ταξινόμηση με επιλογή)
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε έναν πίνακα Α τον τελικό βαθμό 50 μαθητών μιας τάξης και στη συνέχεια να τους ταξινομεί από τον μικρότερο στον μεγαλύτερο χρησιμοποιώντας την ταξινόμηση με επιλογή. Στη συνέχεια να εμφανίζει τους 3 καλύτερους βαθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ10
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Α[50], ΜΙΝ, Τ
ΑΚΕΡΑΙΕΣ : i, θ, κ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 49 !ΤΑΞΙΝΟΜΗΣΗ ΜΕ ΕΠΙΛΟΓΗ
θ<- ι
ΜΙΝ<- Α[ι]
ΓΙΑ κ ΑΠΟ ι+1 ΜΕΧΡΙ 50
ΑΝ Α[κ]<ΜΙΝ ΤΟΤΕ
θ <- κ
ΜΙΝ <- Α[κ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α[θ] <- Α[ι]
Α[ι] <- ΜΙΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 50 ΜΕΧΡΙ 48 ΜΕ_ΒΗΜΑ -1 !ΕΜΦΑΝΙΣΗ 3 ΤΕΛΕΥΤΑΙΩΝ ΘΕΣΕΩΝ ΤΟΥ ΠΙΝΑΚΑ (3 ΚΑΛΥΤΕΡΟΙ ΒΑΘΜΟΙ)
ΓΡΑΨΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε έναν πίνακα Α τον τελικό βαθμό 50 μαθητών μιας τάξης και στη συνέχεια να τους ταξινομεί από τον μικρότερο στον μεγαλύτερο χρησιμοποιώντας την ταξινόμηση με επιλογή. Στη συνέχεια να εμφανίζει τους 3 καλύτερους βαθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ10
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Α[50], ΜΙΝ, Τ
ΑΚΕΡΑΙΕΣ : i, θ, κ
ΑΡΧΗ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 50 !ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΔΙΑΒΑΣΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 49 !ΤΑΞΙΝΟΜΗΣΗ ΜΕ ΕΠΙΛΟΓΗ
θ<- ι
ΜΙΝ<- Α[ι]
ΓΙΑ κ ΑΠΟ ι+1 ΜΕΧΡΙ 50
ΑΝ Α[κ]<ΜΙΝ ΤΟΤΕ
θ <- κ
ΜΙΝ <- Α[κ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α[θ] <- Α[ι]
Α[ι] <- ΜΙΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ ι ΑΠΟ 50 ΜΕΧΡΙ 48 ΜΕ_ΒΗΜΑ -1 !ΕΜΦΑΝΙΣΗ 3 ΤΕΛΕΥΤΑΙΩΝ ΘΕΣΕΩΝ ΤΟΥ ΠΙΝΑΚΑ (3 ΚΑΛΥΤΕΡΟΙ ΒΑΘΜΟΙ)
ΓΡΑΨΕ Α[ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ11 *** (ταξινόμηση με ΕΥΘΕΙΑ ΕΙΣΑΓΩΓΗ)
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε έναν πίνακα Α τον τελικό βαθμό 50 μαθητών μιας τάξης και στη συνέχεια να τους ταξινομεί από τον μεγαλύτερο στον χρησιμοποιώντας την ταξινόμηση με ΕΥΘΕΙΑ ΕΙΣΑΓΩΓΗ. Στη συνέχεια να εμφανίζει τους 3 καλύτερους βαθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ11
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: κ,λ,Α[50],τ
ΛΟΓΙΚΕΣ: οκ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Α[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΜΕ ΕΥΘΕΙΑ ΕΙΣΑΓΩΓΗ
ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ 50
τ<-Α[κ]
λ<-κ-1
οκ<-ΑΛΗΘΗΣ
ΟΣΟ λ>0 ΚΑΙ οκ=ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ τ<Α[λ] ΤΟΤΕ
Α[λ+1]<-Α[λ]
λ<-λ-1
οκ<-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
οκ<-ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α[λ+1] <- τ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ 3 ΚΑΛΥΤΕΡΩΝ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΡΑΨΕ Α[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει σε έναν πίνακα Α τον τελικό βαθμό 50 μαθητών μιας τάξης και στη συνέχεια να τους ταξινομεί από τον μεγαλύτερο στον χρησιμοποιώντας την ταξινόμηση με ΕΥΘΕΙΑ ΕΙΣΑΓΩΓΗ. Στη συνέχεια να εμφανίζει τους 3 καλύτερους βαθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ11
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: κ,λ,Α[50],τ
ΛΟΓΙΚΕΣ: οκ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Α[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΤΑΞΙΝΟΜΗΣΗ ΜΕ ΕΥΘΕΙΑ ΕΙΣΑΓΩΓΗ
ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ 50
τ<-Α[κ]
λ<-κ-1
οκ<-ΑΛΗΘΗΣ
ΟΣΟ λ>0 ΚΑΙ οκ=ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
ΑΝ τ<Α[λ] ΤΟΤΕ
Α[λ+1]<-Α[λ]
λ<-λ-1
οκ<-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
οκ<-ΨΕΥΔΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Α[λ+1] <- τ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ 3 ΚΑΛΥΤΕΡΩΝ
ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΡΑΨΕ Α[κ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΜΠ12α **(Δυαδική αναζήτηση σε πίνακα ταξινομημένο κατά αύξουσα σειρά)
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να εφαρμόζει δυαδική αναζήτηση σε ένα ταξινομημένο (σε αύξουσα σειρά) πίνακα ακεραίων 500 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ12
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[50],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 500
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ - 1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Η Βασική επανάληψη ΟΣΟ που εφαρμόζει στην ουσία την δυαδική αναζήτηση μπορεί να είναι και η παρακάτω:
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]= ΑΡΙΘΜΟΣ ΤΟΤΕ
θ <- Μ
βρ <-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ
δε<- μεσ - 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να εφαρμόζει δυαδική αναζήτηση σε ένα ταξινομημένο (σε αύξουσα σειρά) πίνακα ακεραίων 500 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ12
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[50],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 500
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ - 1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Η Βασική επανάληψη ΟΣΟ που εφαρμόζει στην ουσία την δυαδική αναζήτηση μπορεί να είναι και η παρακάτω:
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]= ΑΡΙΘΜΟΣ ΤΟΤΕ
θ <- Μ
βρ <-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ
δε<- μεσ - 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΣΚΗΣΗ ΜΠ12β **(Δυαδική αναζήτηση σε πίνακα ταξινομημένο κατά φθίνουσα σειρά)
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να εφαρμόζει δυαδική αναζήτηση σε ένα ταξινομημένο (σε φθίνουσα σειρά) πίνακα ακεραίων 500 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ12β
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[50],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 500
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ - 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Η Βασική επανάληψη ΟΣΟ που εφαρμόζει στην ουσία την δυαδική αναζήτηση μπορεί να είναι και η παρακάτω:
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]= ΑΡΙΘΜΟΣ ΤΟΤΕ
θ <- Μ
βρ <-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ -1
ΑΛΛΙΩΣ
αρ<- μεσ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να εφαρμόζει δυαδική αναζήτηση σε ένα ταξινομημένο (σε φθίνουσα σειρά) πίνακα ακεραίων 500 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ12β
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αρ,δεξ,μεσ,Α[50],ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ: βρ
ΑΡΧΗ
αρ <- 1
δεξ <- 500
βρ <-ΨΕΥΔΗΣ
θ <- 0
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]< ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ - 1
ΑΛΛΙΩΣ_ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
αρ<- μεσ + 1
ΑΛΛΙΩΣ
βρ <- ΑΛΗΘΗΣ
θ<-μεσ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρ=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΒΡΕΘΗΚΕ ΣΤΗΝ ΘΕΣΗ: ' ,θ
ΑΛΛΙΩΣ
ΓΡΑΨΕ ΄Ο ΑΡΙΘΜΟΣ ',ΑΡΙΘΜΟΣ, ' ΔΕΝ ΥΠΑΡΧΕΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!Η Βασική επανάληψη ΟΣΟ που εφαρμόζει στην ουσία την δυαδική αναζήτηση μπορεί να είναι και η παρακάτω:
ΟΣΟ αρ <= δεξ ΚΑΙ βρ=ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
μεσ <- (αρ + δεξ) DIV 2
ΑΝ Α[μεσ]= ΑΡΙΘΜΟΣ ΤΟΤΕ
θ <- Μ
βρ <-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
ΑΝ Α[μεσ] > ΑΡΙΘΜΟΣ ΤΟΤΕ
δε<- μεσ -1
ΑΛΛΙΩΣ
αρ<- μεσ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΣΚΗΣΗ ΜΠ13 **(Έξυπνη ταξινόμηση με τη μέθοδο της ΦΥΣΑΛΙΔΑΣ) ΕΞΥΠΝΗ ΦΥΣΑΛΙΔΑ
Να μετατρέψετε τον αλγόριθμο ταξινόμησης με τη μέθοδο της φυσαλίδας έτσι ώστε όταν ο πίνακας είναι ταξινομημένος, τότε σταματά ο έλεγχος των στοιχείων για ταξινόμηση. Να γραφεί το κατάλληλο πρόγραμμα για πίνακα ακεραίων 100 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ13_ΕΞΥΠΝΗ_ΦΥΣΑΛΙΔΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[100], i, j, K
ΛΟΓΙΚΕΣ: Flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΔΙΑΒΑΣΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Flag ← ΑΛΗΘΗΣ
i ← 2
ΟΣΟ i <= 100 ΚΑΙ flag = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
flag ← ΨΕΥΔΗΣ
ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ Α[j-1] > A[j] ΤΟΤΕ
Κ ← Α[j - 1]
Α[j-1] ← Α[j]
Α[j] ← Κ
flag ← ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
i ← i + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να μετατρέψετε τον αλγόριθμο ταξινόμησης με τη μέθοδο της φυσαλίδας έτσι ώστε όταν ο πίνακας είναι ταξινομημένος, τότε σταματά ο έλεγχος των στοιχείων για ταξινόμηση. Να γραφεί το κατάλληλο πρόγραμμα για πίνακα ακεραίων 100 θέσεων.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΜΠ13_ΕΞΥΠΝΗ_ΦΥΣΑΛΙΔΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[100], i, j, K
ΛΟΓΙΚΕΣ: Flag
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΔΙΑΒΑΣΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Flag ← ΑΛΗΘΗΣ
i ← 2
ΟΣΟ i <= 100 ΚΑΙ flag = ΑΛΗΘΗΣ ΕΠΑΝΑΛΑΒΕ
flag ← ΨΕΥΔΗΣ
ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ Α[j-1] > A[j] ΤΟΤΕ
Κ ← Α[j - 1]
Α[j-1] ← Α[j]
Α[j] ← Κ
flag ← ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
i ← i + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΤΟΙΒΑ
Υλοποίηση σε ΓΛΩΣΣΑ με μονοδιάστατο πίνακα
Υλοποίηση σε ΓΛΩΣΣΑ με μονοδιάστατο πίνακα
ΑΣΚΗΣΗ ΣΤ1 *** (ΩΘΗΣΗ ΣΕ ΣΤΟΙΒΑ - ΑΠΩΘΗΣΗ ΑΠΟ ΣΤΟΙΒΑ)
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει ακεραίους αριθμούς και να τους ωθεί σε στοίβα 50 το πολύ στοιχείων. Όταν γεμίσει η στοίβα να γίνει απώθηση όλων των στοιχείων της στοίβας μέχρι αυτή να αδειάσει.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΣΤ1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Σ[50], ΚΟΡΥΦΗ, ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ : DONE
ΑΡΧΗ
ΚΟΡΥΦΗ <-0 !ΓΕΜΙΣΜΑ ΣΤΟΙΒΑΣ - ΩΘΗΣΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΑΝ ΚΟΡΥΦΗ<50 ΤΟΤΕ !ΕΛΕΓΧΟΣ ΑΝ ΕΧΕΙ ΓΕΜΙΣΕΙ Η ΣΤΟΙΒΑ
ΚΟΡΥΦΗ<-ΚΟΡΥΦΗ+1
Σ[ΚΟΡΥΦΗ]<-ΑΡΙΘΜΟΣ
DONE<-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
DONE<-ΨΕΥΔΗΣ !ΟΤΑΝ ΨΕΥΔΗΣ ΣΗΜΑΙΝΕΙ ΟΤΙ ΓΕΜΙΣΕ Η ΣΤΟΙΒΑ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ DONE<-ΨΕΥΔΗΣ
!ΑΔΕΙΑΣΜΑ ΣΤΟΙΒΑΣ - ΑΠΩΘΗΣΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΚΟΡΥΦΗ=0 ΤΟΤΕ !Η ΣΤΟΙΒΑ ΕΙΝΑΙ ΑΔΕΙΑ;
DONE<-ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
ΑΡΙΘΜΟΣ<-Σ[ΚΟΡΥΦΗ]
ΓΡΑΨΕ ΑΡΙΘΜΟΣ
ΚΟΡΥΦΗ<-ΚΟΡΥΦΗ - 1
DONE<- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ το οποίο να διαβάζει ακεραίους αριθμούς και να τους ωθεί σε στοίβα 50 το πολύ στοιχείων. Όταν γεμίσει η στοίβα να γίνει απώθηση όλων των στοιχείων της στοίβας μέχρι αυτή να αδειάσει.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΣΤ1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Σ[50], ΚΟΡΥΦΗ, ΑΡΙΘΜΟΣ
ΛΟΓΙΚΕΣ : DONE
ΑΡΧΗ
ΚΟΡΥΦΗ <-0 !ΓΕΜΙΣΜΑ ΣΤΟΙΒΑΣ - ΩΘΗΣΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ΑΡΙΘΜΟΣ
ΑΝ ΚΟΡΥΦΗ<50 ΤΟΤΕ !ΕΛΕΓΧΟΣ ΑΝ ΕΧΕΙ ΓΕΜΙΣΕΙ Η ΣΤΟΙΒΑ
ΚΟΡΥΦΗ<-ΚΟΡΥΦΗ+1
Σ[ΚΟΡΥΦΗ]<-ΑΡΙΘΜΟΣ
DONE<-ΑΛΗΘΗΣ
ΑΛΛΙΩΣ
DONE<-ΨΕΥΔΗΣ !ΟΤΑΝ ΨΕΥΔΗΣ ΣΗΜΑΙΝΕΙ ΟΤΙ ΓΕΜΙΣΕ Η ΣΤΟΙΒΑ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ DONE<-ΨΕΥΔΗΣ
!ΑΔΕΙΑΣΜΑ ΣΤΟΙΒΑΣ - ΑΠΩΘΗΣΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΚΟΡΥΦΗ=0 ΤΟΤΕ !Η ΣΤΟΙΒΑ ΕΙΝΑΙ ΑΔΕΙΑ;
DONE<-ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
ΑΡΙΘΜΟΣ<-Σ[ΚΟΡΥΦΗ]
ΓΡΑΨΕ ΑΡΙΘΜΟΣ
ΚΟΡΥΦΗ<-ΚΟΡΥΦΗ - 1
DONE<- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΣΤ2 *** (Άσκηση όπως ακριβώς έχει δοθεί στις οδηγίες του υπουργείου)
Ένα οχηματαγωγό πλοίο, χωρητικότητας 250 αυτοκινήτων, εκτελεί το δρομολόγιο ΠΕΙΡΑΙΑΣ – ΑΙΓΙΝΑ. Τα οχήματα που επιβιβάζονται πρώτα είναι αυτά που θα αποβιβαστούν τελευταία. Στο λιμάνι του Πειραιά προσέρχονται τα αυτοκίνητα για αναχώρηση. Να γίνει πρόγραμμα το οποίο:
ΠΡΟΓΡΑΜΜΑ Λιμάνι
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: τοπ, επ1, πλ
ΧΑΡΑΚΤΗΡΕΣ: επ2, αρ, π[250]
ΑΡΧΗ
τοπ <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Μενού Επιλογών'
ΓΡΑΨΕ ' 1. Επιβίβαση'
ΓΡΑΨΕ ' 2. Αποβίβαση'
ΓΡΑΨΕ ' 3. Έξοδος'
ΓΡΑΨΕ ' Δώσε επιλογή:'
ΔΙΑΒΑΣΕ επ1
ΑΝ επ1 = 1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Υπάρχει αυτοκίνητο για επιβίβαση (Ν/Ο);'
ΔΙΑΒΑΣΕ επ2
ΑΝ επ2 <> 'Ν' ΚΑΙ επ2 <> 'ν' ΚΑΙ επ2 <> 'Ο' ΚΑΙ επ2 <> 'ο' ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος επιλογή. Ξαναπροσπάθησε!!!'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ2 = 'Ο' Η επ2 = 'ο' Η επ2 = 'Ν' Η επ2 = 'ν'
ΑΝ επ2 = 'Ν' Η επ2 = 'ν' ΤΟΤΕ
ΑΝ τοπ < 250 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε αριθμό κυκλοφορίας του αυτοκινήτου:'
ΔΙΑΒΑΣΕ αρ
τοπ <- τοπ + 1
π[τοπ] <- αρ
ΑΝ τοπ = 250 ΤΟΤΕ
ΓΡΑΨΕ 'Το πλοίο γέμισε και δεν χωρά άλλα αμάξια'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Το πλοίο είναι γεμάτο'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ τοπ = 250 Η επ2 = 'Ο' Η επ2 = 'ο'
ΑΛΛΙΩΣ_ΑΝ επ1 = 2 ΤΟΤΕ
πλ <- 0
ΟΣΟ τοπ >= 1 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Αποβιβάζεται το αυτοκίνητο με αριθμό κυκλοφορίας:', π[τοπ]
π[τοπ] <- ' '
τοπ <- τοπ - 1
πλ <- πλ + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος οχημάτων που αποβιβάστηκαν στο λιμάνι της ΑΙΓΙΝΑΣ:', πλ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ1 = 3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Λιμάνι
Ένα οχηματαγωγό πλοίο, χωρητικότητας 250 αυτοκινήτων, εκτελεί το δρομολόγιο ΠΕΙΡΑΙΑΣ – ΑΙΓΙΝΑ. Τα οχήματα που επιβιβάζονται πρώτα είναι αυτά που θα αποβιβαστούν τελευταία. Στο λιμάνι του Πειραιά προσέρχονται τα αυτοκίνητα για αναχώρηση. Να γίνει πρόγραμμα το οποίο:
- Να υπάρχει μενού επιλογής:
- Στη περίπτωση που επιλεχθεί η Επιβίβαση θα διαβάζει τον αριθμό κυκλοφορίας καθενός από τα αυτοκίνητα που προσέρχονται και ο αριθμός κυκλοφορίας του να καταχωρείται στη στοίβα ΟΧΗΜΑΤΑ. Κάθε φορά που επιβιβάζεται ένα αυτοκίνητο να τυπώνεται το ερώτημα "Υπάρχει άλλο αυτοκίνητο (Ν/Ο); ". Αν ο χρήστης απαντήσει Ν (=ΝΑΙ), επαναλαμβάνεται η διαδικασία επιβίβασης, ενώ αν απαντήσει Ο (=ΟΧΙ), σταματά η διαδικασία επιβίβασης και επιστρέφει το πρόγραμμα στο μενού Επιλογής.
- Αν το πλοίο γεμίσει η επιβίβαση σταματά εμφανίζεται κατάλληλο μήνυμα και επιστρέφει το πρόγραμμα στο μενού επιλογής.
- Στη περίπτωση που επιλεχθεί η Αποβίβαση, εξάγει και εμφανίζει από την στοίβα ΟΧΗΜΑΤΑ όλους τους αριθμούς αυτοκινήτων που είχαν επιβιβαστεί στον ΠΕΙΡΑΙΑ, με τη σειρά που αποβιβάζονται. Στο τέλος να τυπώνεται το πλήθος των αυτοκινήτων που αποβιβάστηκαν στο λιμάνι της ΑΙΓΙΝΑΣ
ΠΡΟΓΡΑΜΜΑ Λιμάνι
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: τοπ, επ1, πλ
ΧΑΡΑΚΤΗΡΕΣ: επ2, αρ, π[250]
ΑΡΧΗ
τοπ <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Μενού Επιλογών'
ΓΡΑΨΕ ' 1. Επιβίβαση'
ΓΡΑΨΕ ' 2. Αποβίβαση'
ΓΡΑΨΕ ' 3. Έξοδος'
ΓΡΑΨΕ ' Δώσε επιλογή:'
ΔΙΑΒΑΣΕ επ1
ΑΝ επ1 = 1 ΤΟΤΕ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' Υπάρχει αυτοκίνητο για επιβίβαση (Ν/Ο);'
ΔΙΑΒΑΣΕ επ2
ΑΝ επ2 <> 'Ν' ΚΑΙ επ2 <> 'ν' ΚΑΙ επ2 <> 'Ο' ΚΑΙ επ2 <> 'ο' ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος επιλογή. Ξαναπροσπάθησε!!!'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ2 = 'Ο' Η επ2 = 'ο' Η επ2 = 'Ν' Η επ2 = 'ν'
ΑΝ επ2 = 'Ν' Η επ2 = 'ν' ΤΟΤΕ
ΑΝ τοπ < 250 ΤΟΤΕ
ΓΡΑΨΕ 'Δώσε αριθμό κυκλοφορίας του αυτοκινήτου:'
ΔΙΑΒΑΣΕ αρ
τοπ <- τοπ + 1
π[τοπ] <- αρ
ΑΝ τοπ = 250 ΤΟΤΕ
ΓΡΑΨΕ 'Το πλοίο γέμισε και δεν χωρά άλλα αμάξια'
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Το πλοίο είναι γεμάτο'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ τοπ = 250 Η επ2 = 'Ο' Η επ2 = 'ο'
ΑΛΛΙΩΣ_ΑΝ επ1 = 2 ΤΟΤΕ
πλ <- 0
ΟΣΟ τοπ >= 1 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Αποβιβάζεται το αυτοκίνητο με αριθμό κυκλοφορίας:', π[τοπ]
π[τοπ] <- ' '
τοπ <- τοπ - 1
πλ <- πλ + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πλήθος οχημάτων που αποβιβάστηκαν στο λιμάνι της ΑΙΓΙΝΑΣ:', πλ
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ επ1 = 3
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Λιμάνι
ΔΙΣΔΙΑΣΤΑΤΟΙ ΠΙΝΑΚΕΣ
ΑΣΚΗΣΗ ΔΠ11 **
Να γράψετε πρόγραμμα το οποίο να διαβάζει ένα πίνακα Α[5,8] και στη συνέχεια να δημιουργήσετε ένα νέο πίνακα Β[40], στον οποίο να εισάγετε όλα τα στοιχεία του Α πίνακα ανά στήλη. Να εμφανίσετε τον πίνακα Β. Και οι δύο πίνακες να δέχονται πραγματικούς αριθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ11
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Α[5,8], Β[40]
ΑΚΕΡΑΙΕΣ : γ,σ, κ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 8
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Β
κ<-0
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 5
κ <- κ+1
Β[κ] <- Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ Β ΠΙΝΑΚΑ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 40
ΓΡΑΨΕ Β[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει ένα πίνακα Α[5,8] και στη συνέχεια να δημιουργήσετε ένα νέο πίνακα Β[40], στον οποίο να εισάγετε όλα τα στοιχεία του Α πίνακα ανά στήλη. Να εμφανίσετε τον πίνακα Β. Και οι δύο πίνακες να δέχονται πραγματικούς αριθμούς.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ11
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ : Α[5,8], Β[40]
ΑΚΕΡΑΙΕΣ : γ,σ, κ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 8
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Β
κ<-0
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 8
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 5
κ <- κ+1
Β[κ] <- Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ Β ΠΙΝΑΚΑ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 40
ΓΡΑΨΕ Β[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΔΠ12 *
Να γράψετε πρόγραμμα το οποίο να δημιουργεί έναν τετραγωνικό πίνακα Α[50,50] του οποίου τα στοιχεία της κυρίας διαγωνίου του να είναι το κείμενο 'ΓΕΙΑ' και όλα τα υπόλοιπα στοιχεία του να έχουν το κείμενο '-'.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ12
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Α[50,50]
ΑΚΕΡΑΙΕΣ : γ,σ, κ
ΑΡΧΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ γ=σ ΤΟΤΕ !ΑΝ ΓΡΑΜΜΗ = ΣΤΗΛΗ ΕΙΜΑΣΤΕ ΣΤΗΝ ΚΥΡΙΑ ΔΙΑΓΩΝΙΟ
Α[γ,σ] <- 'ΓΕΙΑ'
ΑΛΛΙΩΣ
Α[γ,σ] <- '-'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να δημιουργεί έναν τετραγωνικό πίνακα Α[50,50] του οποίου τα στοιχεία της κυρίας διαγωνίου του να είναι το κείμενο 'ΓΕΙΑ' και όλα τα υπόλοιπα στοιχεία του να έχουν το κείμενο '-'.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ12
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Α[50,50]
ΑΚΕΡΑΙΕΣ : γ,σ, κ
ΑΡΧΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ γ=σ ΤΟΤΕ !ΑΝ ΓΡΑΜΜΗ = ΣΤΗΛΗ ΕΙΜΑΣΤΕ ΣΤΗΝ ΚΥΡΙΑ ΔΙΑΓΩΝΙΟ
Α[γ,σ] <- 'ΓΕΙΑ'
ΑΛΛΙΩΣ
Α[γ,σ] <- '-'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΔΠ13 **
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα 30χ50 ακεραίων και στη συνέχεια να εμφανίζει:
α) το άθροισμα και το γινόμενο των στοιχείων του,
β) το πλήθος των μηδενικών στοιχείων του.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ13
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[30,50], γ ,σ, ΑΘΡ, ΓΙΝ, ΜΗΔ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΑΘΡΟΙΣΜΑΤΟΣ ΚΑΙ ΓΙΝΟΜΕΝΟΥ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ Α
ΑΘΡ<-0
ΓΙΝ<-1
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΘΡ<-ΑΘΡ+Α[γ,σ]
ΓΙΝ<-ΓΙΝ*Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΤΟ ΑΘΡΟΙΣΜΑ ΕΙΝΑΙ ΙΣΟ ΜΕ : ', ΑΘΡ, 'ΚΑΙ ΤΟ ΓΙΝΟΜΕΝΟ ΕΙΝΑΙ :', ΓΙΝ
!ΥΠΟΛΟΓΙΣΜΟΣ ΜΗΔΕΝΙΚΩΝ ΣΤΟΙΧΕΙΩΝ
ΜΗΔ<-0
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ Α[γ,σ] = 0 ΤΟΤΕ
ΜΗΔ<-ΜΗΔ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΜΗΔ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα 30χ50 ακεραίων και στη συνέχεια να εμφανίζει:
α) το άθροισμα και το γινόμενο των στοιχείων του,
β) το πλήθος των μηδενικών στοιχείων του.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ13
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[30,50], γ ,σ, ΑΘΡ, ΓΙΝ, ΜΗΔ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΑΘΡΟΙΣΜΑΤΟΣ ΚΑΙ ΓΙΝΟΜΕΝΟΥ ΣΤΟΙΧΕΙΩΝ ΠΙΝΑΚΑ Α
ΑΘΡ<-0
ΓΙΝ<-1
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΘΡ<-ΑΘΡ+Α[γ,σ]
ΓΙΝ<-ΓΙΝ*Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'ΤΟ ΑΘΡΟΙΣΜΑ ΕΙΝΑΙ ΙΣΟ ΜΕ : ', ΑΘΡ, 'ΚΑΙ ΤΟ ΓΙΝΟΜΕΝΟ ΕΙΝΑΙ :', ΓΙΝ
!ΥΠΟΛΟΓΙΣΜΟΣ ΜΗΔΕΝΙΚΩΝ ΣΤΟΙΧΕΙΩΝ
ΜΗΔ<-0
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 30
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ Α[γ,σ] = 0 ΤΟΤΕ
ΜΗΔ<-ΜΗΔ + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΜΗΔ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΔΠ14 **
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα Α 20χ30 ακεραίων και να υπολογίζει - αποθηκεύει το άθροισμα των γραμμών του σε μονοδιάστατο πίνακα Β. Στο τέλος να εμφανίσει τα στοιχεία του πίνακα Β.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ14
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[20,20], Β[20], γ ,σ, ΑΘΡ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 30
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Β ΜΕ ΑΘΡΟΙΣΜΑΤΑ ΓΡΑΜΜΩΝ ΑΠΟ ΤΟΝ Α
!ΑΡΧΙΚΑ ΜΗΔΕΝΙΖΟΥΜΕ ΤΑ ΣΤΟΙΧΕΙΑ ΤΟΥ Β
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
Β[γ]<-0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 30
Β[γ]<-Β[γ] + Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΑ Β
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ Β[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα Α 20χ30 ακεραίων και να υπολογίζει - αποθηκεύει το άθροισμα των γραμμών του σε μονοδιάστατο πίνακα Β. Στο τέλος να εμφανίσει τα στοιχεία του πίνακα Β.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ14
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Α[20,20], Β[20], γ ,σ, ΑΘΡ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 30
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΔΗΜΙΟΥΡΓΙΑ ΠΙΝΑΚΑ Β ΜΕ ΑΘΡΟΙΣΜΑΤΑ ΓΡΑΜΜΩΝ ΑΠΟ ΤΟΝ Α
!ΑΡΧΙΚΑ ΜΗΔΕΝΙΖΟΥΜΕ ΤΑ ΣΤΟΙΧΕΙΑ ΤΟΥ Β
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
Β[γ]<-0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 30
Β[γ]<-Β[γ] + Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΑ Β
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ Β[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΔΠ15 **
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα A[100,150] πραγματικών αριθμών και να εμφανίζει:
α) το ελάχιστο κάθε στήλης του
β) το μέγιστο κάθε γραμμής του
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ15
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Α[100,150], γ ,σ, ΕΛ[150], ΜΕΓ[100]
!ΤΟ ΕΛ ΕΙΝΑΙ ΓΙΑ ΝΑ ΚΡΑΤΗΣΟΥΜΕ ΤΑ 150 ΕΛΑΧΙΣΤΑ ΤΩΝ 150 ΣΤΗΛΩΝ ΚΑΙ ΤΟ ΜΕΓ ΓΙΑ ΤΑ 100 ΜΕΓΙΣΤΑ ΤΩΝ ΓΡΑΜΜΩΝ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΡΧΙΚΟΠΟΙΗΣΗ ΠΙΝΑΚΩΝ ΜΕΓ, ΕΛ ΜΕ ΤΗ Ν ΠΡΩΤΗ ΤΙΜΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΜΕΓ[γ]<-Α[γ,1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΕΛ[σ]<-Α[1,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΥΡΕΣΗ ΕΛΑΧΙΣΤΩΝ ΚΑΙ ΜΕΓΙΣΤΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΑΝ Α[γ,σ]< ΕΛ[σ] ΤΟΤΕ
ΕΛ[σ]<-Α[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΑΝ Α[γ,σ]> ΜΕΓ[γ] ΤΟΤΕ
ΜΕΓ[γ]<-Α[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΩΝ ΜΕΓ ΚΑΙ ΕΛ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ ΜΕΓ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΓΡΑΨΕ ΕΛ[σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει έναν πίνακα A[100,150] πραγματικών αριθμών και να εμφανίζει:
α) το ελάχιστο κάθε στήλης του
β) το μέγιστο κάθε γραμμής του
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ15
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Α[100,150], γ ,σ, ΕΛ[150], ΜΕΓ[100]
!ΤΟ ΕΛ ΕΙΝΑΙ ΓΙΑ ΝΑ ΚΡΑΤΗΣΟΥΜΕ ΤΑ 150 ΕΛΑΧΙΣΤΑ ΤΩΝ 150 ΣΤΗΛΩΝ ΚΑΙ ΤΟ ΜΕΓ ΓΙΑ ΤΑ 100 ΜΕΓΙΣΤΑ ΤΩΝ ΓΡΑΜΜΩΝ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΔΙΑΒΑΣΕ Α[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΡΧΙΚΟΠΟΙΗΣΗ ΠΙΝΑΚΩΝ ΜΕΓ, ΕΛ ΜΕ ΤΗ Ν ΠΡΩΤΗ ΤΙΜΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΜΕΓ[γ]<-Α[γ,1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΕΛ[σ]<-Α[1,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΥΡΕΣΗ ΕΛΑΧΙΣΤΩΝ ΚΑΙ ΜΕΓΙΣΤΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΑΝ Α[γ,σ]< ΕΛ[σ] ΤΟΤΕ
ΕΛ[σ]<-Α[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΑΝ Α[γ,σ]> ΜΕΓ[γ] ΤΟΤΕ
ΜΕΓ[γ]<-Α[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΠΙΝΑΚΩΝ ΜΕΓ ΚΑΙ ΕΛ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 100
ΓΡΑΨΕ ΜΕΓ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 150
ΓΡΑΨΕ ΕΛ[σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΑΣΚΗΣΗ ΔΠ16 ***
Να γράψετε πρόγραμμα το οποίο να διαβάζει σε έναν πίνακα 50x12 τους βαθμούς 50 μαθητών στα 12 μαθήματα του τετραμήνου τους. Να εμφανίζει επίσης:
α) τους μέσους όρους και των 50 μαθητών, αφού τους αποθηκεύσει σε πίνακα.
β) τον μέγιστο βαθμό κάθε μαθητή.
γ) το πλήθος των μαθητών με Μέσο όρο μικρότερο του 10.
δ) την μέση επίδοση της τάξης ανά μάθημα.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ16
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Τ[50,12], γ ,σ, A[50], ΜΟ[50], ΜΕΓ[50], ΑΕ[12], ΕΠΙΔ[12], ΠΛ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Τ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΜΗΔΕΝΙΣΜΟΣ ΠΙΝΑΚΑ ΑΘΡΟΙΣΜΑΤΩΝ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
Α[γ]<-0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΑΘΡΟΙΣΜΑΤΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
Α[γ]<-Α[γ]+Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΚΑΙ ΕΜΦΑΝΙΣΗ ΜΕΣΩΝ ΟΡΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΜΟ[γ]<-Α[γ]/12
ΓΡΑΨΕ ΜΟ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΡΧΙΚΟΠΟΙΗΣΗ ΤΟΥ ΠΙΝΑΚΑ ΜΕΓ ΜΕ ΤΟΝ ΠΡΩΤΟ ΒΑΘΜΟ ΚΑΘΕ ΜΑΘΗΤΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΜΕΓ[γ]<Τ[γ,1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΜΕΓΙΣΤΟΥ ΒΑΘΜΟΥ ΓΙΑ ΚΑΘΕ ΜΑΘΗΤΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΝ Τ[γ,σ]>ΜΕΓ[γ] ΤΟΤΕ
ΜΕΓ[γ]<-Τ[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΜΕΓΙΣΤΟΥ ΒΑΘΜΟΥ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ ΜΕΓ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΥΡΕΣΗ - ΕΜΦΑΝΙΣΗ ΠΛΗΘΟΥΣ ΜΑΘΗΤΩΝ ΜΕ ΒΑΘΜΟ ΜΙΚΡΟΤΕΡΟ ΤΟΥ 10
ΠΛ<-0
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ΜΟ[γ]<10 ΤΟΤΕ
ΠΛ<-ΠΛ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΠΛ
!ΕΥΡΕΣΗ - ΕΜΦΑΝΙΣΗ ΕΠΙΔΟΣΗΣ ΑΝΑ ΜΑΘΗΜΑ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΕ[σ]<-0 !ΓΙΑ ΤΟ ΑΘΡΟΙΣΜΑ ΑΝΑ ΣΤΗΛΗ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΕ[σ]<-ΑΕ[σ]+Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΕΠΙΔ[σ]<-ΑΕ[σ]/50
ΓΡΑΨΕ ΕΠΙΔ[σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Να γράψετε πρόγραμμα το οποίο να διαβάζει σε έναν πίνακα 50x12 τους βαθμούς 50 μαθητών στα 12 μαθήματα του τετραμήνου τους. Να εμφανίζει επίσης:
α) τους μέσους όρους και των 50 μαθητών, αφού τους αποθηκεύσει σε πίνακα.
β) τον μέγιστο βαθμό κάθε μαθητή.
γ) το πλήθος των μαθητών με Μέσο όρο μικρότερο του 10.
δ) την μέση επίδοση της τάξης ανά μάθημα.
Απάντηση
ΠΡΟΓΡΑΜΜΑ ΔΠ16
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Τ[50,12], γ ,σ, A[50], ΜΟ[50], ΜΕΓ[50], ΑΕ[12], ΕΠΙΔ[12], ΠΛ
ΑΡΧΗ
!ΓΕΜΙΣΜΑ ΠΙΝΑΚΑ Τ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΔΙΑΒΑΣΕ Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΜΗΔΕΝΙΣΜΟΣ ΠΙΝΑΚΑ ΑΘΡΟΙΣΜΑΤΩΝ Α
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
Α[γ]<-0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΑΘΡΟΙΣΜΑΤΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
Α[γ]<-Α[γ]+Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΚΑΙ ΕΜΦΑΝΙΣΗ ΜΕΣΩΝ ΟΡΩΝ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΜΟ[γ]<-Α[γ]/12
ΓΡΑΨΕ ΜΟ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΑΡΧΙΚΟΠΟΙΗΣΗ ΤΟΥ ΠΙΝΑΚΑ ΜΕΓ ΜΕ ΤΟΝ ΠΡΩΤΟ ΒΑΘΜΟ ΚΑΘΕ ΜΑΘΗΤΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΜΕΓ[γ]<Τ[γ,1]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΥΠΟΛΟΓΙΣΜΟΣ ΜΕΓΙΣΤΟΥ ΒΑΘΜΟΥ ΓΙΑ ΚΑΘΕ ΜΑΘΗΤΗ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΝ Τ[γ,σ]>ΜΕΓ[γ] ΤΟΤΕ
ΜΕΓ[γ]<-Τ[γ,σ]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΜΦΑΝΙΣΗ ΜΕΓΙΣΤΟΥ ΒΑΘΜΟΥ
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΓΡΑΨΕ ΜΕΓ[γ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!ΕΥΡΕΣΗ - ΕΜΦΑΝΙΣΗ ΠΛΗΘΟΥΣ ΜΑΘΗΤΩΝ ΜΕ ΒΑΘΜΟ ΜΙΚΡΟΤΕΡΟ ΤΟΥ 10
ΠΛ<-0
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΝ ΜΟ[γ]<10 ΤΟΤΕ
ΠΛ<-ΠΛ+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ΠΛ
!ΕΥΡΕΣΗ - ΕΜΦΑΝΙΣΗ ΕΠΙΔΟΣΗΣ ΑΝΑ ΜΑΘΗΜΑ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΑΕ[σ]<-0 !ΓΙΑ ΤΟ ΑΘΡΟΙΣΜΑ ΑΝΑ ΣΤΗΛΗ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΙΑ γ ΑΠΟ 1 ΜΕΧΡΙ 50
ΑΕ[σ]<-ΑΕ[σ]+Τ[γ,σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ σ ΑΠΟ 1 ΜΕΧΡΙ 12
ΕΠΙΔ[σ]<-ΑΕ[σ]/50
ΓΡΑΨΕ ΕΠΙΔ[σ]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Ο ΒΑΘΜΟΣ ΔΥΣΚΟΛΙΑΣ ΤΩΝ ΑΣΚΗΣΕΩΝ ΣΗΜΕΙΩΝΕΤΑΙ ΜΕ ΑΣΤΕΡΙΣΚΟΥΣ
* ΕΥΚΟΛΗ
** ΜΕΤΡΙΑ
*** ΔΥΣΚΟΛΗ
**** ΠΟΛΥ ΔΥΣΚΟΛΗ
* ΕΥΚΟΛΗ
** ΜΕΤΡΙΑ
*** ΔΥΣΚΟΛΗ
**** ΠΟΛΥ ΔΥΣΚΟΛΗ
Antonis Baboukis 2015 Τελευταία Ενημέρωση13/03/2022