1. Φυσαλίδα σε δισδιάστατο πίνακα

Εταιρεία ΡΑΔΙΟΤΑΧΙ έχει 80 ΤΑΧΙ και για 30 ημέρες κατέγραφε τα Km του κάθε ΤΑΧΙ  για κάθε ημέρα με τη βοήθεια προγράμματος
α) Να εισάγονται στους πίνακες ON[80], Β [80,30] τα ονόματα των ΤΑΧΙ ,  και, τα Km του κάθε ΤΑΧΙ  για κάθε ημέρα αντίστοιχα
β)Μια διαδικασία ΦΥΣ δέχεται μονοδιάστατο πίνακα και τον ταξινομεί σε φθίνουσα σειρά .Το πρόγραμμα χρησιμοποιεί τη διαδικασία ΦΥΣ και δημιουργεί τον πίνακα ΒΤ [80,30] που περιέχει τα στοιχεία του Β ταξινομημένα για κάθε ΤΑΧΙ
γ) Να εμφανίζονται για κάθε  ΤΑΧΙ   οι δέκα μεγαλύτερες καταγραφές σε Km και το όνομά του (Θεωρείστε ότι είναι διαφορετικές για κάθε ΤΑΧΙ)
δ) Η εταιρεία λαμβάνει υπόψη τις δέκα μεγαλύτερες καταγραφές σε Km του κάθε ΤΑΧΙ και όποιο έχει σύνολο >999  Km του δίνει ρεπό για τον ερχόμενο μήνα. Να εμφανίζονται τα ονόματα των ΤΑΧΙ που θα πάρουν ρεπό.
(Θεωρείστε ότι η διαδικασία που υλοποιεί την φυσαλίδα βρίσκεται στην βιβλιοθήκη του προγράμματος)

Λύση

ΠΡΟΓΡΑΜΜΑ Α

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ : Α, Β, Γ

ΛΟΓΙΚΕΣ : ΤΙΜΗ

ΑΡΧΗ

ΔΙΑΒΑΣΕ Α, Β, Γ

ΓΡΑΨΕ Α, Β, Γ

ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

   ΚΑΛΕΣΕ Δ1(Α, Β, Γ, ΤΙΜΗ)

  ΓΡΑΨΕ Α, Β, Γ

ΜΕΧΡΙΣ_ΟΤΟΥ ΤΙΜΗ = ΑΛΗΘΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Δ1(Γ, Β, Α, ΤΙΜΗ)

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ : Α, Β, Γ

ΠΡΑΓΜΑΤΙΚΕΣ : Χ

ΛΟΓΙΚΕΣ : ΤΙΜΗ

ΑΡΧΗ

Χ <--2*Γ  MOD (Β + Α)

ΓΡΑΨΕ Χ

ΤΙΜΗ <-- ΥΠΟΛΟΓΙΣΜΟΣ(Χ, Γ)

Γ<-- Γ + 2

Α <-- Α + 1

ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ Σ1(Ζ,Β):ΛΟΓΙΚΗ

ΜΕΤΑΒΛΗΤΕΣ

ΑΚΕΡΑΙΕΣ : Β

ΠΡΑΓΜΑΤΙΚΕΣ: Ζ, Υ

ΑΡΧΗ

Y <-- Ζ – Α_Μ(Β/2)

AN Y > 0 TOTE

ΥΠΟΛΟΓΙΣΜΟΣ ß ΑΛΗΘΗΣ

ΑΛΛΙΩΣ

ΥΠΟΛΟΓΙΣΜΟΣ ß ΨΕΥΔΗΣ

ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ Δ1(Β)
...
ΑΡΧΗ
ΑΡΧΗ ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ Β
ΜΕΧΡΙΣ_ΟΤΟΥ Β>=0 ΚΑΙ  Β<=10
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ ΤΒ(Β1,Β2,Β3,Β4,Β5):ΠΡΑΓΜΑΤΙΚΗ
...
ΑΡΧΗ
ΑΝ Β5<5 ΤΟΤΕ ΤΒ->Β1+Β2Β3*Ο,10+Β4*0,15+Β5*0,55
ΑΝ Β5>=5 ΤΟΤΕ ΤΒ->Β1+Β2Β3*Ο,06+Β4*0,12+Β5*0,7
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΠΡΟΓΡΑΜΜΑ
...
ΑΡΧΗ
ΑΡΧΗ ΕΠΑΝΑΛΗΨΗΣ
ΔΙΑΒΑΣΕ ονομα
λ->0
κ->0
Σ->0
ΑΝ ονομα <> ''  '' ΤΟΤΕ
λ->λ+1
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 4
ΚΑΛΕΣΕ Δ1(Β)
Β[i]->Β
Σ->Σ+Β[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ (Σ/4) >5  ΤΟΤΕ   ΚΑΛΕΣΕ Δ1(Β)
Β[5]->Β
ΑΝ (Σ/4) <=5  ΤΟΤΕ  κ->κ+1
τελικός->ΤΒ(Β[1],Β[2],Β[3],Β[4],Β[5])
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ ονομα = ''  ''
ΑΝ λ<>0 ΤΟΤΕ ΓΡΑΨΕ (κ/λ)*100
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

6. Συλλογοι

Α) Να γράψετε συνάρτηση η οποία θα δέχεται
ένα πίνακα χαρακτήρων 100 θέσεων και
μια μεταβλητή τύπου χαρακτήρα (όνομα).
Η συνάρτηση θα ελέγχει αν υπάρχει το συγκεκριμένο όνομα μέσα στον πίνακα και θα επιστρέφει τη θέση του πίνακα στην οποία βρέθηκε το όνομα ή 0 στην περίπτωση που το όνομα δε βρέθηκε.                                                                                 

Β) Δύο από τους συλλόγους που έχουν ιδρυθεί σε μία πόλη είναι ο Α και ο Ε. Δεχόμαστε ότι οι 2 αυτοί σύλλογοι έχουν από 100 μέλη ακριβώς.
Να γράψετε πρόγραμμα σε ΓΛΩΣΣΑ που θα αποθηκεύει σε έναν μονοδιάστατο πίνακα 100 θέσεων τα ονόματα όσων μελών είναι εγγεγραμμένα στο σύλλογο Α και σε έναν δεύτερο μονοδιάστατο πίνακα 100 θέσεων τα ονόματα όσων μελών είναι εγγεγραμμένα στο σύλλογο Ε 

Τα ονόματα που ανήκουν σε ένα σύλλογο είναι όλα διαφορετικά μεταξύ τους, ενώ κάποιος μπορεί να ανήκει και στους 2 συλλόγους. Χρησιμοποιώντας τη συνάρτηση του προηγούμενου ερωτήματος να εμφανιστούν:

ι) Τα ονόματα που ανήκουν στο σύλλογο Α και δεν ανήκουν στο σύλλογο Ε        
ιι) Τα ονόματα που ανήκουν στο σύλλογο Ε και δεν ανήκουν στο σύλλογο Α.
ιιι) Τα ονόματα που ανήκουν και στους δύο συλλόγους

π.χ.
ΑΘΑΝΑΣΙΟΥ στον Α σύλλογο
ΝΙΚΟΥ στον Ε σύλλογο
ΣΤΑΜΟΥ στον Ε σύλλογο
ΑΝΔΡΕΟΥ και στους δύο
κλπ...
 

ΠΡΟΓΡΑΜΜΑ
...
ΑΡΧΗ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ100
ΔΙΑΒΑΣΕ Α[i],Β[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
Ρ->Α[i]
ΡΡ->Β[i]
Κ->Λ(Α,ΡΡ)
Ξ->Λ(Β,Ρ)
ΑΝ Κ<>0 ΚΑΙ Ξ=0 ΤΟΤΕ  ΓΡΑΨΕ Α[i] ,''στον Α σύλλογο''
ΑΝ Ξ<>0 ΚΑΙ Κ=0 ΤΟΤΕ ΓΡΑΨΕ Β[i] ,''στον Ε σύλλογο''
ΑΝ Ξ<>0 ΚΑΙ Κ<>0 ΤΟΤΕ ΓΡΑΨΕ Β[i] ,''και στους δύο''
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

1)Να καταχωρεί σε έναν πίνακα με όνομα Κ  την τιμή 'R ' εάν η ταινία έχει ενοικιαστεί ή την τιμή 'FR' αν η ταινία είναι διαθέσιμη για κάθε μία από τις 1000 ταινίες που διαθέτει το βίντεο κλαμπ προς ενοικίαση για κάθε μία από τις 30 ημέρες ενός μήνα. Να γίνεται έλεγχος εισόδου τιμών στον πίνακα Κ. Επίσης να καταχωρεί στον πίνακα ΟΝ  [1000,30]  το όνομα του πελάτη σε περίπτωση που μια ταινία έχει ενοικιαστεί ενώ σε αντίθετη περίπτωση να καταχωρεί στον πίνακα την τιμή 'οχι'.

 2)Να καλεί υποπρόγραμμα ΥΠ1 που να υπολογίζει και να επιστρέφει στο κυρίως πρόγραμμα τα συνολικά έσοδα της 15ης ημέρας αν γνωρίζουμε ότι η μίσθωση κάθε ταινίας ανέρχεται στο ποσό των 1,5 ευρώ ανά ημέρα.

 3)Να καλεί υποπρόγραμμα ΥΠ2 που να υπολογίζει τα μηνιαία έσοδα κάθε ταινίας και να τα επιστρέφει στο κυρίως πρόγραμμα αν γνωρίζουμε ότι η μίσθωση κάθε ταινίας ανέρχεται στο ποσό των 1,5 ευρώ ανά ημέρα.

 4)Να υπολογίζει και να εμφανίζει τα έσοδα από τις 5 πιο δημοφιλείς ταινίες για τον μήνα.(όσο περισσότερες ημέρες έχει ενοικιαστεί μια ταινία τόσο πιο δημοφιλής είναι!) 

5)Να καλεί υποπρόγραμμα ΥΠ3 που να διαβάζει το όνομα ενός πελάτη και να υπολογίζει την συνολική του χρέωση για ολόκληρο τον μήνα. Στην περίπτωση που ο πελάτης δεν βρεθεί να εμφανίζει κατάλληλο μήνυμα.
(ένας πελάτης μπορεί να νοικιάσει απεριόριστο πλήθος ταινιών).

 6)Να διαβάζει σε ένα πίνακα με όνομα ΕΤΑΙΡΕΙΕΣ [10] τον αριθμό των ταινιών που αντιστοιχούν σε κάθε εταιρεία που διανέμει τις ταινίες της στο βίντεο κλαμπ. Η χρέωση της κάθε ταινίας στο βίντεο κλαμπ γίνεται κλιμακωτά και σύμφωνα με τον παρακάτω πίνακα. Να βρεθούν τα συνολικά κέρδη οι ζημιές του βίντεο κλαμπ για αυτόν τον μήνα αν το κέρδος υπολογίζεται ως η διαφορά των εσόδων(από την ενοικίαση ταινιών στους πελάτες 1,5 ευρώ ανά ημέρα) μείον τα έξοδα (από την μίσθωση των ταινιών από τις εταιρείες διανομής)

Περιγραφική λύση 

K[1000,30]

ΟΝ  [1000,30]

Το υποπρόγραμμα ΥΠ1 θέλει παραμέτρους (Κ,Σ) όπου Κ ο πίνακας που θα του δοθεί και Σ = μετρητής *1,5 που θα το υπολογίσει και θα το επιστρέψει

8. Με την βοήθεια του τμηματικού προγραμματισμού να γίνουν τα εξής:

α) Να γίνει διαδικασία Δ η οποία θα διαβάζει έναν πίνακα ακεραίων αριθμών 100 θέσεων και θα τον επιστρέφει στο κύριο πρόγραμμα.

β) Να δημιουργηθεί διαδικασία ΥΠΟΠΡ1 η οποία θα δέχεται έναν πίνακα ακεραίων αριθμών 100 θέσεων καθώς και ένα στοιχείο το οποίο θα αναζητηθεί στον πίνακα και θα επιστρέφει:

1. την πρώτη θέση στην οποία υπάρχει το υπό αναζήτηση στοιχείο και ΑΛΗΘΗΣ, αν αυτό υπάρχει.

2. μηδέν και ΨΕΥΔΗΣ, αν αυτό δεν υπάρχει.

γ) Να δημιουργηθεί διαδικασία ΥΠΟΠΡ 2 η οποία θα δέχεται έναν πίνακα ακεραίων αριθμών 100 θέσεων και το υπό αναζήτηση στοιχείο και θα εμφανίζει όλες τις θέσεις στις οποίες αυτό υπάρχει (αν υπάρχει).

δ) Να δημιουργήσετε συνάρτηση ΥΠΟΠΡ3  η οποία θα δέχεται έναν πίνακα ακεραίων αριθμών 100 θέσεων και το υπό αναζήτηση στοιχείο και θα επιστρέφει την τελευταία θέση του πίνακα στην οποία αυτό παρατηρήθηκε. Αν δεν υπάρχει σε καμιά να επιστρέφεται το μηδέν.

ε) Να κατασκευαστεί κύριο πρόγραμμα το οποίο, αφού χρησιμοποιήσει τη διαδικασία για την είσοδο του πίνακα, διαβάζει το υπό αναζήτηση στοιχείο. Έπειτα θα εμφανίζει στον χρήστη ένα μενού τριών επιλογών ώστε να διαλέξει το κατάλληλο υποπρόγραμμα αναζήτησης (ανάλογα µε το τι θέλει να κάνει). Μετά από την εκτέλεση κάθε υποπρογράμματος να γίνεται εμφάνιση των αποτελεσμάτων µόνο αν είναι απαραίτητο.