Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2020
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.01 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. ΑΝ ΜΟ[j] = ΜΟ[j - 1] ΤΟΤΕ
  22. ΑΝ Ον[j] < Ον[j - 1] ΤΟΤΕ
  23. t2 <- Ον[j]
  24. Ον[j] <- Ον[j - 1]
  25. Ον[j - 1] <- t2
  26. ΤΕΛΟΣ_ΑΝ
  27. ΤΕΛΟΣ_ΑΝ
  28. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  29. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  30. ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
  31. ΓΡΑΨΕ Ον[i], ΜΟ[i]
  32. ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  33. ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Διπλή_Ταξινόμηση
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement