Advertisement
Guest User

Untitled

a guest
Jan 22nd, 2020
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.81 KB | None | 0 0
  1. ΠΡΟΓΡΑΜΜΑ Μαθητές
  2. ΜΕΤΑΒΛΗΤΕΣ
  3. ΧΑΡΑΚΤΗΡΕΣ: Ον[50], t2
  4. ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[50], t1
  5. ΑΚΕΡΑΙΕΣ: i, j
  6. ΑΡΧΗ
  7. ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
  8. ΓΡΑΨΕ 'Δώσε όνομα και Μέσο Όρο Μαθητή:'
  9. ΔΙΑΒΑΣΕ Ον[i], ΜΟ[i]
  10. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  11. ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 50
  12. ΓΙΑ j ΑΠΟ 50 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1
  13. ΑΝ ΜΟ[j] > ΜΟ[j - 1] ΤΟΤΕ
  14. t1 <- ΜΟ[j]
  15. ΜΟ[j] <- ΜΟ[j - 1]
  16. ΜΟ[j - 1] <- t1
  17. t2 <- Ον[j]
  18. Ον[j] <- Ον[j - 1]
  19. Ον[j - 1] <- t2
  20. ΤΕΛΟΣ_ΑΝ
  21. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  22. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  23. ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
  24. ΓΡΑΨΕ Ον[i], ΜΟ[i]
  25. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  26. ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μαθητές
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement