Μετακίνηση του δρομέα: Παράδειγμα προγράμματος
Στο παράδειγμα αυτό, μια αναδρομική διαδικασία μεγεθύνει διαδοχικά κάθε γράμμα ενός πλαισίου κειμένου και αλλάζει το χρώμα του.
για μεγέθυνση :μέγεθος :χρώμα
αν ΤέλοςΚ? [στοπ]
επιλογή ΔρΜ
ΘέσεΜέγεθοςΓραμματοσειράς :μέγεθος
ΘέσεΧρώμαΚειμένου :χρώμα
ΑκύρωσηΕπιλογής
μεγέθυνση :μέγεθος + 1 :χρώμα + 5
τέλος
Παρατηρήστε πως η εντολή ΤέλοςΚ? χρησιμοποιείται στον κανόνα διακοπής για τον εντοπισμό του τέλους του κειμένου. Οι εντολές επιλογή, ΔρΜ επιλέγουν κάθε γράμμα. Η εντολή ΑκύρωσηΕπιλογής ακυρώνει την επιλογή του γράμματος αφού μεταβληθεί το μέγεθος και το χρώμα του. Το μέγεθος γραμματοσειράς αυξάνεται κατά 1 και το χρώμα κειμένου κατά 5, σε κάθε αναδρομική κλήση.
Μπορείτε να χρησιμοποιήσετε μια υπερδιαδικασία για την εκτέλεση της διαδικασίας μεγέθυνση:
για ΜεγέθυνσηΚειμένου
μεγέθυνση ΜέγεθοςΓραμματοσειράς ΧρώμαΚειμένου
τέλος
ΑρχήΚειμένου
ΜεγέθυνσηΚειμένου
![]()