Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ΠΡΟΓΡΑΜΜΑ ΘέμαΒ1
- ΜΕΤΑΒΛΗΤΕΣ
- ΧΑΡΑΚΤΗΡΕΣ: Ο[10]
- ΑΚΕΡΑΙΕΣ: f, r, i
- ΑΡΧΗ
- ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
- Ο[i] <- ''
- ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
- Ο[6] <- 'A'
- Ο[7] <- 'R'
- Ο[8] <- 'O'
- Ο[9] <- 'S'
- Ο[10] <- 'Ε'
- f <- 6
- r <- 10
- ΚΑΛΕΣΕ ΟΛΙΣΘΗΣΗ(Ο, f, r)
- ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
- ΓΡΑΨΕ Ο[i]
- ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
- ΓΡΑΨΕ 'f:', f
- ΓΡΑΨΕ 'r:', r
- ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
- ΔΙΑΔΙΚΑΣΙΑ ΟΛΙΣΘΗΣΗ(Ο, f, r)
- ΜΕΤΑΒΛΗΤΕΣ
- ΧΑΡΑΚΤΗΡΕΣ: Ο[10]
- ΑΚΕΡΑΙΕΣ: f, r, i, k
- ΑΡΧΗ
- k <- 0
- ΓΙΑ i ΑΠΟ f ΜΕΧΡΙ r
- k <- k + 1
- Ο[k] <- Ο[i]
- Ο[i] <- ''
- ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
- f <- 1
- r <- k
- ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement