!------------------------------------------------------------------------------- ! ΠΡΟΓΡΑΜΜΑ: Στοίβα1.glo ! ! Γ. ΚΥΡΙΑΚΑΚΗ !------------------------------------------------------------------------------- ! Ώθηση και κατόπιν απώθηση ακεραίων σε στοίβα 10 θέσεων ΠΡΟΓΡΑΜΜΑ Στοίβα1 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: Στοίβα[10], Top, Χ ΑΡΧΗ ΓΡΑΨΕ 'Ώθηση στοιχείων σε στοίβα 10 ακεραίων μέχρι να γεμίσει:' Top <- 0 ΟΣΟ Top < 10 ΕΠΑΝΑΛΑΒΕ ! έλεγχος υπερχείλισης ΓΡΑΨΕ ' Δώστε στοιχείο για ώθηση: ' ΔΙΑΒΑΣΕ Χ Top <- Top + 1 Στοίβα[Top] <- Χ ΓΡΑΨΕ ' Ωθήθηκε το στοιχείο ', Χ, ' στη στοίβα' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'Ωθήθηκαν ', Top, ' στοιχεία στη στοίβα' ΓΡΑΨΕ ΓΡΑΨΕ 'Απώθηση όλων των στοιχείων από τη στοίβα:' ΟΣΟ Top > 0 ΕΠΑΝΑΛΑΒΕ ! έλεγχος υποχείλισης ΓΡΑΨΕ ' Απωθήθηκε το στοιχείο ', Στοίβα[Top], ' από τη στοίβα' Top <- Top - 1 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ !ArxeioEisodou 1 2 3 4 5 6 7 8 9 10