! Με την βοήθεια του τμηματικού προγραμματισμού να γίνουν τα εξής:
! α) Να δημιουργηθεί διαδικασία η οποία θα δέχεται δύο θετικούς ακέραιους
! αριθμούς και θα επιστρέφει: τον μικρότερο χωρίς αλλαγή, αλλά αντί για τον
! μεγαλύτερο θα επιστρέφει το πηλίκο της ακέραιας διαίρεσης του με το 2.
! β) Να κατασκευαστεί κύριο πρόγραμμα το οποίο θα διαβάζει 2 θετικούς
! ακέραιους αριθμούς και έπειτα θα χρησιμοποιεί την παραπάνω διαδικασία
! συνεχώς, ανατροφοδοτώντας τη με τους αριθμούς που επιστρέφει, μέχρι
! κάποιος από τους αριθμούς αυτούς να γίνει μηδέν. Η εμφάνιση του
! προγράμματος θα είναι το πόσες φορές έγινε κλήση της διαδικασίας.
ΠΡΟΓΡΑΜΜΑ παραδειγμα_1
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α,Β,Π
ΑΡΧΗ
ΓΡΑΨΕ'ΔΩΣΕ 2 ΑΡΙΘΜΟΥΣ'
ΔΙΑΒΑΣΕ Α,Β
Π <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΒΗΜΑ1(Α,Β)
Π <-- Π+1
ΜΕΧΡΙΣ_ΟΤΟΥ (Α=0) Η (Β=0)
ΓΡΑΨΕ' Η ΚΛΗΣΗ ΤΗΣ ΔΙΑΔΙΚΑΣΙΑΣ ΕΓΙΝΕ:',Π,' ΦΟΡΕΣ'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΒΗΜΑ1(Χ,Υ)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Χ,Υ
ΑΡΧΗ
ΑΝ Χ>Υ ΤΟΤΕ
Χ <-- Χ DIV 2
ΑΛΛΙΩΣ
Υ <-- Υ DIV 2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ