! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΝΙΟΣ 2005 - ΘΕΜΑ 2
! ===============================================================================================
! Δίνεται το παρακάτω τμήμα προγράμματος και μια συνάρτηση :
! Διάβασε Κ
! L <-- 2
! A <-- 1
! Όσο Α < 8 επανάλαβε
! Αν Κ MOD L = 0 τότε
! Χ <-- Fun(A, L)
! αλλιώς
! Χ <-- Α + L
! Τέλος_αν
! Εμφάνισε L, A, X
! A <-- A + 2
! L <-- L + 1
! Tέλος_επανάληψης
! ……………
! Συνάρτηση Fun(Β, Δ) : Ακέραια
! Μεταβλητές
! Ακέραιες: Β, Δ
! Αρχή
! Fun <-- (B + Δ) DIV 2
! Tέλος_συνάρτησης.
!
! Να γράψετε στο τετράδιό σας τις τιμές των μεταβλητών L, A, X, όπως αυτές εκτυπώνονται σε κάθε
! επανάληψη, όταν για είσοδο δώσουμε την τιμή 10.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ ΗΜ_2005_06_2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : L , A , K , X
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε τιμή για το Κ'
ΔΙΑΒΑΣΕ K
L <-- 2
A <-- 1
ΟΣΟ A < 8 ΕΠΑΝΑΛΑΒΕ
ΑΝ K MOD L = 0 ΤΟΤΕ
X <-- Fun(A, L)
ΑΛΛΙΩΣ
X <-- A + L
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ L, A, X
A <-- A + 2
L <-- L + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ Fun(Β, Δ) : ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ : Β, Δ
ΑΡΧΗ
Fun <-- (Β + Δ) DIV 2
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ