|
e-ΜΑΘΗΜΑΤΑ |
|
Υλοποίηση ΟΥΡΑΣ με χρήση πίνακα και διαδικασιών |
ΠΡΟΓΡΑΜΜΑ ΟΥΡΑ
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: A[10]
ΑΚΕΡΑΙΕΣ: f, r, απάντηση
ΑΡΧΗ
f <- 0
r <- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ εμφανισε_μενού
ΔΙΑΒΑΣΕ απάντηση
ΕΠΙΛΕΞΕ απάντηση
ΠΕΡΙΠΤΩΣΗ 1
ΚΑΛΕΣΕ εισαγωγή (A, f, r)
ΠΕΡΙΠΤΩΣΗ 2
ΚΑΛΕΣΕ εξαγωγή (A, f, r)
ΠΕΡΙΠΤΩΣΗ 3
ΚΑΛΕΣΕ εμφάνιση (A, f, r)
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΜΕΧΡΙΣ_ΟΤΟΥ απάντηση = 9
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! *******************
ΔΙΑΔΙΚΑΣΙΑ εμφανισε_μενού
ΑΡΧΗ
ΓΡΑΨΕ 'Δώστε 1: εισαγωγή 2: εξαγωγή 3:εμφάνιση 9:έξοδος'
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
! *******************
ΔΙΑΔΙΚΑΣΙΑ εισαγωγή (A, f, r)
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: A[10]
ΑΚΕΡΑΙΕΣ: f, r
ΑΡΧΗ
ΑΝ r < 10 ΤΟΤΕ
r <- r + 1
ΓΡΑΨΕ 'Δώστε τιμή για εισαγωγή : '
ΔΙΑΒΑΣΕ A[r]
ΑΝ r = 1 ΤΟΤΕ
f <- 1
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Γεμάτη ουρά'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
! *******************
ΔΙΑΔΙΚΑΣΙΑ εξαγωγή (A, f, r)
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: A[10]
ΑΚΕΡΑΙΕΣ: f, r
ΑΡΧΗ
ΑΝ f > 0 ΤΟΤΕ
ΓΡΑΨΕ 'Eξαγωγή : ', A[f]
A[f] <- ''
f <- f + 1
ΑΝ f > r ΤΟΤΕ
f <- 0
r <- 0
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Αδεια ουρά'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
! *******************
ΔΙΑΔΙΚΑΣΙΑ εμφάνιση (A, f, r)
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: A[10]
ΑΚΕΡΑΙΕΣ: f, r, i
ΑΡΧΗ
ΑΝ f > 0 ΤΟΤΕ
ΓΙΑ i ΑΠΟ f ΜΕΧΡΙ r
ΓΡΑΨΕ i, ' ', A[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Αδεια ουρά'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
|
|
|
|
