ΠΡΟΓΡΑΜΜΑ θεμα3 ΣΤΑΘΕΡΕΣ πολεις = 20 μ = 12 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, ξ, τεμπ2, πινακας_μηνων[12], μαχ_εδρα ΠΡΑΓΜΑΤΙΚΕΣ: ΟΙΚ[πολεις, 2*μ], ΙΣΟΖΥΓΙΟ[πολεις, μ], αθροισμα_ετησιων_κερδων[πολεις], τεμπ, μαχ, αθροισμα[μ] ΧΑΡΑΚΤΗΡΕΣ: εδρα[πολεις], ονομα_μηνων[12] ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις ΔΙΑΒΑΣΕ εδρα[ι] ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ μ*2 ΔΙΑΒΑΣΕ ΟΙΚ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !διαβαζει την εδρα καθε παραρτηματος καθως και τα εσοδα-εξοδα ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 2*μ - 1 ΜΕ ΒΗΜΑ 2!προσεχω να μη συμβει υπερχειλιση για αυτο σταματαω στο 23 ΙΣΟΖΥΓΙΟ[ι, 1 + (ξ div 2)] <- ΟΙΚ[ι, ξ] - ΟΙΚ[ι, ξ + 1] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ πολεις αθροισμα_ετησιων_κερδων[ι] <- 0 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ μ αθροισμα_ετησιων_κερδων[ι] <- αθροισμα_ετησιων_κερδων[ι] + ΙΣΟΖΥΓΙΟ[ι, ξ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ μαχ <- αθροισμα_ετησιων_κερδων[1] μαχ_εδρα <- 1 ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ πολεις ΑΝ μαχ < αθροισμα_ετησιων_κερδων[ι] ΤΟΤΕ μαχ <- αθροισμα_ετησιων_κερδων[ι] μαχ_εδρα <- ι ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "τα μεγαλυτερα ετησια κερδη τα εχει η εταιρια με εδρα :", εδρα[μαχ_εδρα] ΓΡΑΨΕ "η οποια εχει κερδη ", μαχ, " ευρω" ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μ αθροισμα[ι] <- 0 ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ πολεις αθροισμα[ι] <- αθροισμα[ι] + ΙΣΟΖΥΓΙΟ[ξ, ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !ο πινακας αθροισμα περιεχει για καθε μηνα το αθροισμα του ισοζυγιου ολων των παραρτηματων !για να βρω το μιν και που υπαρχει αυτο στον πινακα αθροισμα που μπορει να ειναι περισσοτερα του 1 !μπορω να κανω ταξινομηση η να βρω απλα το μιν και επειτα να συγκρινω σε ποιες θεσεις αυτο υπαρχει ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μ πινακας_μηνων[ι] <- ι ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ονομα_μηνων[1] <- "γεναρης" ονομα_μηνων[2] <- "φλεβαρης" ονομα_μηνων[3] <- "μαρτης" ονομα_μηνων[4] <- "απριλης" ονομα_μηνων[5] <- "μαιος" ονομα_μηνων[6] <- "ιουνιος" ονομα_μηνων[7] <- "ιουλιος" ονομα_μηνων[8] <- "αυγουστος" ονομα_μηνων[9] <- "σεπτεμβρης" ονομα_μηνων[10] <- "οκτωμβρης" ονομα_μηνων[11] <- "νοεμβριος" ονομα_μηνων[12] <- "δεκεμβριος" !ο πινακας μηνων εχει αντιστοιχει καθε κελι σε εναν μηνα !γεναρης=1,φλεβαρης=2,μαρτης=3 ....δεκεμβρης=12 ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ μ ΓΙΑ ξ ΑΠΟ μ ΜΕΧΡΙ ι ΜΕ ΒΗΜΑ -1 ΑΝ αθροισμα[ξ] < αθροισμα[ξ - 1] ΤΟΤΕ τεμπ <- αθροισμα[ξ] αθροισμα[ξ] <- αθροισμα[ξ - 1] αθροισμα[ξ - 1] <- τεμπ τεμπ2 <- πινακας_μηνων[ξ] πινακας_μηνων[ξ] <- πινακας_μηνων[ξ - 1] πινακας_μηνων[ξ - 1] <- τεμπ2 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ι <- 1 ΓΡΑΨΕ "οι μηνες με το μικροτερο ισοζυγιο ειναι οι εξης:" ΓΡΑΨΕ ονομα_μηνων[πινακας_μηνων[1]] ΟΣΟ ι <= μ - 1 ΕΠΑΝΑΛΑΒΕ ΑΝ αθροισμα[ι] = αθροισμα[ι + 1] ΤΟΤΕ ΓΡΑΨΕ ονομα_μηνων[πινακας_μηνων[ι + 1]] ΤΕΛΟΣ_ΑΝ ι <- ι + 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ !εδω να πουμε οτι ο πινακας_μηνων δεν χρειαζοταν και στην ταξινομηση του αθρ απλα !θα μπορουσαμε να ανταλλαξουμε απευθειας τα στοιχεια του ονομα_μηνων !το εκανα ετσι ωστε να δειχτει η χρησιμοποιηση πινακα μεσα σε πινακα ως δεικτης !που ταλαιπωρει αρκετους μαθητες ή δεν το σκεφτονται καν ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ