ΠΡΟΓΡΑΜΜΑ θεμαΓεπαναληπτικες ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: τιμη, ατομα_μπαινουν, ατομα_βρισκονται_μεσα, επισκεπτες, μαχ_ομαδα_αποριφθεντων ΑΡΧΗ τιμη <- 1 ατομα_βρισκονται_μεσα <- 0 επισκεπτες <- 0 μαχ_ομαδα_αποριφθεντων <- 0 ΟΣΟ τιμη <> 0 ΕΠΑΝΑΛΑΒΕ ΓΡΑΨΕ "δωσε μου επιθυμητη λειτουργια 1=εισοδος,2=εξοδος,0=τελος" ΔΙΑΒΑΣΕ τιμη ΑΝ τιμη = 1 ΤΟΤΕ ΓΡΑΨΕ "ποσα ατομα εισερχονται?" ΔΙΑΒΑΣΕ ατομα_μπαινουν ΑΝ ιν(ατομα_βρισκονται_μεσα, ατομα_μπαινουν) = ΨΕΥΔΗΣ ΤΟΤΕ ΓΡΑΨΕ "παρακαλω δοκιμαστε αργοτερα" ΑΝ μαχ_ομαδα_αποριφθεντων < ατομα_μπαινουν ΤΟΤΕ μαχ_ομαδα_αποριφθεντων <- ατομα_μπαινουν ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ ατομα_βρισκονται_μεσα <- ατομα_βρισκονται_μεσα + ατομα_μπαινουν επισκεπτες <- επισκεπτες + ατομα_μπαινουν ΤΕΛΟΣ_ΑΝ ΑΛΛΙΩΣ_ΑΝ τιμη = 2 ΤΟΤΕ ΑΝ ατομα_βρισκονται_μεσα = 0 ΤΟΤΕ ΓΡΑΨΕ "αδυνατη λειτουργια" ΑΛΛΙΩΣ ατομα_βρισκονται_μεσα <- ατομα_βρισκονται_μεσα - 1 ΓΡΑΨΕ "οκ ενα ατομο βγηκε" ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ "τα ατομα που καποια στιγμη βρεθηκαν μεσα στην αιθουσα(επισκεπτες) ηταν ", επισκεπτες ΑΝ μαχ_ομαδα_αποριφθεντων = 0 ΤΟΤΕ ΓΡΑΨΕ "καμια ομαδα δεν απορριφθηκε" ΑΛΛΙΩΣ ΓΡΑΨΕ "η μεγαλυτερη ομαδα ατομων που εφαγε πορτα αποτελουταν απο ", μαχ_ομαδα_αποριφθεντων, " ατομα" ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΣΥΝΑΡΤΗΣΗ ιν(ατομα_βρισκονται_μεσα, ατομα_μπαινουν): ΛΟΓΙΚΗ ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ατομα_βρισκονται_μεσα, ατομα_μπαινουν ΛΟΓΙΚΕΣ: α ΑΡΧΗ α <- ΑΛΗΘΗΣ ΑΝ ατομα_βρισκονται_μεσα + ατομα_μπαινουν > 1000 ΤΟΤΕ α <- ΨΕΥΔΗΣ ΤΕΛΟΣ_ΑΝ ιν <- α ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ