! ===============================================================
! ΠΡΟΣΟΜΟΙΩΣΗ 2006 - ΘΕΜΑ 2
! ===============================================================
! Δίνεται το ακόλουθο τμήμα προγράμματος σε 'ΓΛΩΣΣΑ'
!
! ΓΙΑ I ΑΠΟ 1 ΜΕΧΡΙ 3
! ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
! A[i,j] <-- 0
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΚΑΛΕΣΕ Μαγικό_τετράγωνο(Α)
! Sum <-- 0
! ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
! Sum <-- Sum + A[i,3]
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΓΡΑΨΕ Sum
!
! και η διαδικασία
!
! ΔΙΑΔΙΚΑΣΙΑ Μαγικό_τετράγωνο(Β)
! . . . .
! ΑΡΧΗ
! i <-- 1
! j <-- 4 DIV 2
! B[i,j] <-- 1
! ΓΙΑ key ΑΠΟ 2 ΜΕΧΡΙ 9
! ΑΝ i > 1 TOTE
! Κ <-- i - 1
! ΑΛΛΙΩΣ
! Κ <-- 3
! ΤΕΛΟΣ_ΑΝ
! ΑΝ j > 1 TOTE
! L <-- j - 1
! ΑΛΛΙΩΣ
! L <-- 2
! ΤΕΛΟΣ_ΑΝ
! ΑΝ B[K,L] > 0 TOTE
! i <-- i + 1
! ΑN i = 4 ΤΟΤΕ
! i <-- 1
! ΤΕΛΟΣ_ΑΝ
! ΑΛΛΙΩΣ
! i <-- K
! j <-- L
! ΤΕΛΟΣ_ΑΝ
! B[i,j] <-- Key
! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ
!
! α) Να σχεδιάσετε στο τετράδιό σας τον πίνακα Α με τις τιμές
! που θα έχουν τα στοιχεία του, μετά την εκτέλεση του ανωτέρω
! τμήματος προγράμματος.
! β) Να γράψετε στο τετράδιό σας την τιμή της μεταβλητής Sum
! που τυπώνεται.
! ===============================================================
!
ΠΡΟΓΡΑΜΜΑ PR_2006_2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : i , j , A[3,3] , Sum
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 3
A[i,j] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ Μαγικό_τετράγωνο(A)
Sum <-- 0
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 3
Sum <-- Sum + A[i,3]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ Sum
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ Μαγικό_τετράγωνο(B)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : i , j , B[3,3] , key , K , L
ΑΡΧΗ
i <-- 1
j <-- 4 DIV 2
B[i,j] <-- 1
ΓΙΑ key ΑΠΟ 2 ΜΕΧΡΙ 9
ΑΝ i > 1 ΤΟΤΕ
K <-- i - 1
ΑΛΛΙΩΣ
K <-- 3
ΤΕΛΟΣ_ΑΝ
ΑΝ j > 1 ΤΟΤΕ
L <-- j - 1
ΑΛΛΙΩΣ
L <-- 2
ΤΕΛΟΣ_ΑΝ
ΑΝ B[K,L] > 0 ΤΟΤΕ
i <-- i + 1
ΑΝ i = 4 ΤΟΤΕ
i <-- 1
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
i <-- K
j <-- L
ΤΕΛΟΣ_ΑΝ
B[i,j] <-- Key
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ