ΠΡΟΓΡΑΜΜΑ ΘΕΜΑΓ_2017
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι, Α[5, 3], J, ΣΧ1, ΣΧ2, ΣΕΤ1, ΣΕΤ2, ΒΑΘ[5], ΣΕΤΥΠ[5], Τ1, Τ3, Τ4, ΣΕΤΚ[5]
ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[5], Τ2
ΑΡΧΗ
!Γ1
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
ΔΙΑΒΑΣΕ ΟΝ[Ι]
ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 3
Α[Ι, J] <- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Γ2
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 10
ΔΙΑΒΑΣΕ ΣΧ1, ΣΧ2, ΣΕΤ1, ΣΕΤ2
ΑΝ ΣΕΤ1 > ΣΕΤ2 ΤΟΤΕ
Α[ΣΧ1, 1] <- Α[ΣΧ1, 1] + 2
Α[ΣΧ2, 1] <- Α[ΣΧ2, 1] + 1
ΑΛΛΙΩΣ_ΑΝ ΣΕΤ1 < ΣΕΤ2 ΤΟΤΕ
Α[ΣΧ1, 1] <- Α[ΣΧ1, 1] + 1
Α[ΣΧ2, 1] <- Α[ΣΧ2, 1] + 2
ΤΕΛΟΣ_ΑΝ
Α[ΣΧ1, 2] <- Α[ΣΧ1, 2] + ΣΕΤ1
Α[ΣΧ1, 3] <- Α[ΣΧ1, 3] + ΣΕΤ2
Α[ΣΧ2, 2] <- Α[ΣΧ2, 2] + ΣΕΤ2
Α[ΣΧ2, 3] <- Α[ΣΧ2, 3] + ΣΕΤ1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Γ3
!ΒΑΖΩ ΒΑΘΜΟΛΟΓΙΕΣ, ΣΕΤ ΥΠΕΡ, ΣΕΤ ΚΑΤΑ ΣΕ ΜΟΝΟΔΙΑΣΤΑΤΟΥΣ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
ΒΑΘ[Ι] <- Α[Ι, 1]
ΣΕΤΥΠ[Ι] <- Α[Ι, 2]
ΣΕΤΚ[Ι] <- Α[Ι, 3]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
ΓΙΑ J ΑΠΟ 5 ΜΕΧΡΙ Ι ΜΕ_ΒΗΜΑ -1
ΑΝ ΒΑΘ[J - 1] < ΒΑΘ[J] ΤΟΤΕ
Τ1 <- ΒΑΘ[J - 1]
ΒΑΘ[J - 1] <- ΒΑΘ[J]
ΒΑΘ[J] <- Τ1
Τ2 <- ΟΝ[J - 1]
ΟΝ[J - 1] <- ΟΝ[J]
ΟΝ[J] <- Τ2
Τ3 <- ΣΕΤΥΠ[J - 1]
ΣΕΤΥΠ[J - 1] <- ΣΕΤΥΠ[J]
ΣΕΤΥΠ[J] <- Τ3
Τ4 <- ΣΕΤΚ[J - 1]
ΣΕΤΚ[J - 1] <- ΣΕΤΚ[J]
ΣΕΤΚ[J] <- Τ4
ΑΛΛΙΩΣ_ΑΝ ΒΑΘ[J - 1] = ΒΑΘ[J] ΤΟΤΕ
ΑΝ ΣΕΤΥΠ[J - 1] < ΣΕΤΥΠ[J] ΤΟΤΕ
Τ2 <- ΟΝ[J - 1]
ΟΝ[J - 1] <- ΟΝ[J]
ΟΝ[J] <- Τ2
Τ3 <- ΣΕΤΥΠ[J - 1]
ΣΕΤΥΠ[J - 1] <- ΣΕΤΥΠ[J]
ΣΕΤΥΠ[J] <- Τ3
Τ4 <- ΣΕΤΚ[J - 1]
ΣΕΤΚ[J - 1] <- ΣΕΤΚ[J]
ΣΕΤΚ[J] <- Τ4
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Δ4
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
ΓΡΑΨΕ ΟΝ[Ι], ΒΑΘ[Ι], ΣΕΤΥΠ[Ι], ΣΕΤΚ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Νομίζω είναι οκ ή κάτι μου έφυγε; Ψυχραιμία στα παιδιά και καλή επιτυχία!