! ===============================================================
! Να γίνει πρόγραμμα το οποίο:
! Α) Να ζητάει έναν αριθμό Κ από το 1 ως το 100 (αν δωθεί λάθος
! αριθμός να επαναλαμβάνει την ερώτηση).
! Β) Να διαβάζει Κ αριθμούς τους οποίους θα αποθηκεύει στις
! πρώτες Κ θέσεις ενός πίνακα Α ακεραίων.
! Γ) Να διαβάζει Κ αριθμούς τους οποίους θα αποθηκεύει στις
! πρώτες Κ θέσεις ενός πίνακα Β ακεραίων.
! Δ) Να ελέγχει αν οι δύο πίνακες είναι όμοιοι, δηλαδή αν στις
! πρώτες Κ θέσεις περιέχουν ακριβώς τους ίδιους αριθμούς.
! ΣΗΜΕΙΩΣΗ:
! Ο έλεγχος για το αν οι δύο πίνακες είναι όμοιοι να γίνεται με
! χρήση ΛΟΓΙΚΗΣ ΣΥΝΑΡΤΗΣΗΣ που θα έχει τη μορφή:
! Όμοιοι_πίνακες(πιν1, πιν2, Κ)
! όπου πιν1, πιν2 οι δύο πίνακες και Κ το πλήθος των στοιχείων
! που θα ελεγχθούν.
! ===============================================================
ΠΡΟΓΡΑΜΜΑ Σύγκριση_πινάκων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[100], Β[100], Κ, i
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το πλήθος των στοιχείων των πινάκων (1<=κ<=100):'
ΔΙΑΒΑΣΕ κ
ΜΕΧΡΙΣ_ΟΤΟΥ (Κ>=1) ΚΑΙ (Κ<=100)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Κ
ΓΡΑΨΕ 'Δώσε το ', i, 'ο στοιχείο του 1ου πίνακα:'
ΔΙΑΒΑΣΕ Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Κ
ΓΡΑΨΕ 'Δώσε το ', i, 'ο στοιχείο του 2ου πίνακα:'
ΔΙΑΒΑΣΕ Β[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Όμοιοι_πίνακες(Α, Β, Κ)=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Οι πίνακες ΕΙΝΑΙ όμοιοι.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Οι πίνακες ΔΕΝ ΕΙΝΑΙ όμοιοι.'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Σύγκριση_πινάκων
!----------------------------------------------------------------
ΣΥΝΑΡΤΗΣΗ Όμοιοι_πίνακες(πιν1, πιν2, Κ): ΛΟΓΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: πιν1[100], πιν2[100], Κ, i
ΛΟΓΙΚΕΣ: βρέθηκε_διαφορά
ΑΡΧΗ
i <-- 1
βρέθηκε_διαφορά <-- ΨΕΥΔΗΣ
ΟΣΟ (i<=Κ) ΚΑΙ (βρέθηκε_διαφορά=ΨΕΥΔΗΣ) ΕΠΑΝΑΛΑΒΕ
ΑΝ πιν1[i]<>πιν2[i] ΤΟΤΕ
βρέθηκε_διαφορά <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
i <-- i+1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρέθηκε_διαφορά=ΑΛΗΘΗΣ ΤΟΤΕ
Όμοιοι_πίνακες <-- ΨΕΥΔΗΣ
ΑΛΛΙΩΣ
Όμοιοι_πίνακες <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!----------------------------------------------------------------