Mήπως μπορείτε να με βοηθήσετε με αυτή την άσκηση είναι η πρωτη που κάνω πάνω στους πίνακες:
Η εταιρεια ''Χαραμόπετρος Α.Ε'' καταγραφει τα μηνιαία εσοδα της σε πίνακα ΕΣΟΔΑ 12 θεσεων και τα εξοδα της σε πινακα ΕΞΟΔΑ αντιστοιχα,ταυτοχρονα υπαρχει πινακας ΜΗΝΑΣ 12 θεσεων που περιεχει τα ονοματα των μηνων.Να αναπτυχθει αλγοριθμος που θα εκτυπωνει τον μηνα που:
1]Εμφανιστηκαν τα ελαχιστα εσοδα
2]Εμφανιστηκαν τα μεγιστα εξοδα
3]Εμφανιστηκαν τα μεγιστα κερδη
Η χρονια ηταν κερδοφορα για την εταιρεία ή οχι?
Σύμφωνα με την εκφώνηση οι πίνακες ΕΣΟΔΑ,ΕΞΟΔΑ,ΜΗΝΑΣ είναι δεδομένοι.
Για τα ελάχιστα έσοδα και τα μέγιστα έξοδα θα αρχικοποιήσεις τις μεταβλητές:
min_esoda με το πρώτο στοιχείο του πίνακα ΕΣΟΔΑ
i με 1 όπου είναι η θέση του πρώτου στοιχείου του πίνακα ΕΣΟΔΑ
(αυτό το κάνουμε για να μπορέσουμε να κάνουμε αντιστοίχηση με τον πίνακα ΜΗΝΑΣ)
Αντίστοιχα,
max_exoda με το πρώτο στοιχείο του πίνακα ΕΞΟΔΑ
j με 1 όπου είναι η θέση του πρώτου στοιχείου του πίνακα ΕΞΟΔΑ.
Μετά θα κάνεις αναζήτηση στους πίνακες ΕΣΟΔΑ,ΕΞΟΔΑ για να βρεις τα ελάχιστα έσοδα και τα μέγιστα έξοδα. Κάθε φορά που θα βρίσκει ένα νέο ελάχιστο/μέγιστο θα πρέπει να καταχωρείται στα i/j αντίστοιχα η θέση του. Αυτό γιατί οι πίνακες ΕΣΟΔΑ,ΕΞΟΔΑ έχουν 1-1 αντιστοιχία με τον πίνακα ΜΗΝΑΣ.
Τον πίνακα ΚΕΡΔΗ θα πρέπει να τον δημιουργήσεις εσύ. Κάθε στοιχείο του πίνακα προκύπτει από τη σχέση ΚΕΡΔΗ[k]=ΕΣΟΔΑ[k]-ΕΞΟΔΑ[k] και για να βρεις το μέγιστο και το μήνα που σημειώθηκε ακολουθείς αντίστοιχη διαδικασία με παραπάνω.
O κώδικας διαμορφώνεται ως εξής:
Αλγόριθμος Χαραμόπετρος
min_esoda<--ΕΣΟΔΑ[1]
i<--1
max_exoda<--ΕΞΟΔΑ[1]
j<--1
Σ_ΕΣΟΔΑ<--0
Σ_ΕΞΟΔΑ<--0
Για k από 1 μέχρι 12
Αν min_esoda>ΕΣΟΔΑ[k] τότε
min_esoda<--ΕΣΟΔΑ[k]
i<--k
Τέλος_αν
Αν max_eχoda<ΕΞΟΔΑ[k] τότε
max_eχoda<--ΕΞΟΔΑ[k]
j<--k
Τέλος_αν
ΚΕΡΔΗ[k]=ΕΣΟΔΑ[k]-ΕΞΟΔΑ[k]
Σ_ΕΣΟΔΑ<--Σ_ΕΣΟΔΑ+ΕΣΟΔΑ[k]
Σ_ΕΞΟΔΑ<--Σ_ΕΞΟΔΑ+ΕΞΟΔΑ[k]
Τέλος_επανάληψης
Εμφάνισε 'Ο μήνας με τα λιγότερα έσοδα είναι:',ΜΗΝΑΣ
Εμφάνισε 'Ο μήνας με τα περισσότερα έξοδα είναι:',ΜΗΝΑΣ[j]
max_kerdh<--ΚΕΡΔΗ[1]
l<--1
Για k από 2 μέχρι 12
Αν max_kerdh<ΚΕΡΔΗ[k] τότε
max_kerdh<--ΚΕΡΔΗ[k]
l<--k
Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε 'Ο μήνας με τα περισσότερα κέρδη είναι:',ΜΗΝΑΣ[l]
ΚΕΡΔΟΦΟΡΑ<--Σ_ΕΣΟΔΑ-Σ_ΕΞΟΔΑ
Αν ΚΕΡΔΟΦΟΡΑ>0 τότε
Εμφάνισε 'Η επιχείρηση ήταν κερδοφόρα'
Αλλιώς
Εμφάνισε 'Η επιχείρηση δεν ήταν κερδοφόρα'
Τέλος_αν
Τέλος Χαραμόπετρος
Σημείωση: Το μήνυμα αυτό γράφτηκε 15 χρόνια πριν. Ο συντάκτης του πιθανόν να έχει αλλάξει απόψεις έκτοτε.