ΠΡΟΓΡΑΜΜΑ Μέσος_όρος_ύψους ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: πλήθος ΠΡΑΓΜΑΤΙΚΕΣ: ύψος, Σ, ΜΟ ΑΡΧΗ Σ <- 0 πλήθος <- 0 ΓΡΑΨΕ 'Δώσε ύψος:' ΔΙΑΒΑΣΕ ύψος ΟΣΟ ύψος > 0 ΕΠΑΝΑΛΑΒΕ Σ <- Σ + ύψος πλήθος <- πλήθος + 1 ΓΡΑΨΕ 'Δώσε ύψος:' ΔΙΑΒΑΣΕ ύψος ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΜΟ <- Σ/πλήθος ΓΡΑΨΕ 'Μέσος όρος ύψους:', ΜΟ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ Αγορά_τετραδίων ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: τιμή, πλήθος, διαθέσιμο_ποσό, οφειλόμενο_ποσό ΑΡΧΗ ΓΡΑΨΕ 'Δώσε την τιμή του τετραδίου:' ΔΙΑΒΑΣΕ τιμή ΓΡΑΨΕ 'Δώσε το πλήθος των τετραδίων' ΔΙΑΒΑΣΕ πλήθος ΓΡΑΨΕ 'Δώσε το διαθέσιμο ποσό' ΔΙΑΒΑΣΕ διαθέσιμο_ποσό οφειλόμενο_ποσό <- τιμή + πλήθος ΑΝ οφειλόμενο_ποσό <= διαθέσιμο_ποσό ΤΟΤΕ ΓΡΑΨΕ 'Η αγορά είναι εφικτή' ΑΛΛΙΩΣ ΓΡΑΨΕ 'Η αγορά δεν είναι εφικτή' ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ Χρέωση_ύδρευσης ΣΤΑΘΕΡΕΣ πάγιο = 8 ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: κυβικά, οφειλή ΑΡΧΗ ! Ανάγνωση δεδομένων ΓΡΑΨΕ 'Δώσε τα κυβικά που καταναλώθηκαν' ΔΙΑΒΑΣΕ κυβικά ! Υπολογισμός κλιμακωτής χρέωσης ΑΝ κυβικά < 0 ΤΟΤΕ ΓΡΑΨΕ 'Μη αποδεκτή τιμή.' ΑΛΛΙΩΣ_ΑΝ κυβικά < 10 ΤΟΤΕ οφειλή <- 8 + κυβικά*0.4 ΑΛΛΙΩΣ_ΑΝ κυβικά <= 20 ΤΟΤΕ οφειλή <- 8 + 10*0.4 + (κυβικά - 10)*0.5 ΑΛΛΙΩΣ οφειλή <- 10*0.4 + 10*0.5 + (κυβικά - 20)*0.6 ΤΕΛΟΣ_ΑΝ ! Εμφάνιση αποτελέσματος ΓΡΑΨΕ 'Οφειλή=', οφειλή ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ Ανάγνωση_βαθμολογίας ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Βαθμός ΑΡΧΗ ΓΡΑΨΕ "Δώσε βαθμό στην εικοσάβαθμη κλίμακα" ΔΙΑΒΑΣΕ Βαθμός ΟΣΟ Βαθμός < 0 ΚΑΙ Βαθμός > 20 ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ "Μη αποδεκτή τιμή" ΓΡΑΨΕ "Δώσε βαθμό στην εικοσάβαθμη κλίμακα" ΔΙΑΒΑΣΕ Βαθμός ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "Καταχωρήθηκε ο βαθμός της εικοσάβαθμης κλίμακας ", Βαθμός ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ Γινόμενο_μη_μηδενικών_αριθμών ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: Χ, Γινόμενο ΑΡΧΗ Γινόμενο <- 1 ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "Δώσε μη μηδενική τιμή" ΔΙΑΒΑΣΕ Χ Γινόμενο <- Χ*Γινόμενο ΜΕΧΡΙΣ_ΟΤΟΥ Χ = 0 ΓΡΑΨΕ "Γινόμενο=", Γινόμενο ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ ΕΣΟΔΑ_ΚΑΤΑΣΤΗΜΑΤΟΣ ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[6] ΑΚΕΡΑΙΕΣ: Ι ΑΡΧΗ ! Επανάληψη ανάγνωσης εσόδων ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΓΡΑΨΕ "Δώσε τα έσοδα του ", Ι, "ου μήνα" ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! Επανάληψη ελέγχου αυξητικής τάσης ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΑΝ ΕΣΟΔΑ[Ι] <= ΕΣΟΔΑ[Ι + 1] ΤΟΤΕ ΓΡΑΨΕ "Ο ", Ι, "ος μήνας ΑΥΞΗΣΗ" ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ Έσοδα_υποκαταστημάτων ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[3, 4], Άθροισμα ΑΚΕΡΑΙΕΣ: Ι, Κ ΑΡΧΗ Άθροισμα <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 3 ΓΡΑΨΕ 'Δώσε τα έσοδα των τριμήνων του ', Ι, 'ου υποκαταστήματος:' ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 4 ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι, Κ] Άθροισμα <- Άθροισμα + ΕΣΟΔΑ[Ι, Κ] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Ετήσια έσοδα:', Άθροισμα ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΠΡΟΓΡΑΜΜΑ ΕΛΕΓΧΟΣ_ΖΗΜΙΑΣ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ι, Πλήθος, Μήνες_με_ζημία ΠΡΑΓΜΑΤΙΚΕΣ: ΕΣΟΔΑ[6], ΕΞΟΔΑ[6] ΑΡΧΗ ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΓΡΑΨΕ 'Δώσε τα έσοδα του ', Ι, 'ου μήνα:' ΔΙΑΒΑΣΕ ΕΣΟΔΑ[Ι] ΓΡΑΨΕ 'Δώσε τα έξοδα του ', Ι, 'ου μήνα:' ΔΙΑΒΑΣΕ ΕΞΟΔΑ[Ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Μήνες_με_ζημία <- Υπολογισμός(ΕΣΟΔΑ, ΕΞΟΔΑ) ΓΡΑΨΕ 'Μήνες που είχαν ζημία:', Μήνες_με_ζημία ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ Υπολογισμός(Πίνακας1, Πίνακας2): ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΠΡΑΓΜΑΤΙΚΕΣ: Πίνακας1[6], Πίνακας2[6] ΑΚΕΡΑΙΕΣ: Ι, Πλήθος ΑΡΧΗ Πλήθος <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 6 ΑΝ Πίνακας2[Ι] < Πίνακας1[Ι] ΤΟΤΕ Πλήθος <- Πλήθος + 1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Υπολογισμός <- Πλήθος ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ ΠΡΟΓΡΑΜΜΑ Παραγοντικό ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ν, Παρ ΑΡΧΗ ΓΡΑΨΕ "Δώσε έναν ακέραιο θετικό αριθμό" ΔΙΑΒΑΣΕ Ν Παρ <- Υπολογισμός(Ν) ΓΡΑΨΕ "Παραγοντικό=", Παρ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ Υπολογισμός(Χ): ΑΚΕΡΑΙΑ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Ι, Π, Χ ΑΡΧΗ Π <- 0 ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Χ Π <- Π*Ι ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ Υπολογισμός <- Π ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ