Μάθημα : Πληροφορική Γ’ Γυμνασίου (όλα τα τμήματα)

Κωδικός : G660121

G660121  -  ΑΝΑΣΤΑΣΙΟΣ ΜΑΧΑΙΡΙΔΗΣ

Ενότητες - Μεταβλητές χωρίς την "Κάνε". Παραμετρικές Διαδικασίες.

Μεταβλητές χωρίς την "Κάνε". Παραμετρικές Διαδικασίες.

Από το Βιβλίο Μαθητή, παράγραφος 2.6, σελ. 192, ή από το ηλεκτρονικό βιβλίο, ΚΕΦΑΛΑΙΟ 2: Ο Προγραμματισμός στην πράξη

Σύμφωνα με την παραπάνω διαδικασία «τετράγωνο», όταν θέλουμε να δημιουργούμε τετράγωνα με διαφορετικό μήκος πλευράς, πρέπει να επεμβαίνουμε κάθε φορά στην εντολή μπροστά και να αλλάζουμε το μήκος της πλευράς. Έτσι, αν θέλουμε να σχεδιάσουμε ένα τετράγωνο πλευράς 50 εικονοστοιχείων, θα δώσουμε την εντολή:

Επανάλαβε 4[μπ 50 δε 90]

ενώ, αν θέλουμε ένα τετράγωνο πλευράς 150, θα δώσουμε την εντολή:

Επανάλαβε 4[μπ 150 δε 90]

Μπορούμε να χρησιμοποιούμε την ίδια πάντα διαδικασία για το σχεδιασμό τετραγώνων διαφορετικών πλευρών; Η απάντηση είναι καταφατική. Τη διαδικασία «τετράγωνο» μπορούμε να την τροποποιήσουμε ως εξής:

για νέο_τετράγωνο :μήκος
στκ
επανάλαβε 4 [μπ :μήκος δε 90]
τέλος

Αφού έχουμε γράψει την παραπάνω διαδικασία, μπορούμε να σχεδιάσουμε ένα τετράγωνο πλευράς 50 δίνοντας την εντολή:

νέο_τετράγωνο 50

Δηλαδή, μαζί με το όνομα της διαδικασίας δίνουμε και το επιθυμητό μήκος της πλευράς του τετραγώνου. Η τιμή 50 αποθηκεύεται προσωρινά στο μήκος και η εντολή «μπ :μήκος» μετακινεί τη χελώνα μπροστά κατά 50 εικονοστοιχεία. Κάθε φορά που «καλούμε» τη διαδικασία νέο_τετράγωνο στο «μήκος», αποθηκεύεται προσωρινά μια διαφορετική τιμή. Το «μήκος» ονομάζεται μεταβλητή.

Εργασίες
Εργασία στις Μεταβλητές 2

Δραστηριότητα 4, σελίδα 194 του βιβλίου.

Να δημιουργήσετε μια διαδικασία που να κατασκευάζει ένα ορθογώνιο παραλληλόγραμμο δίνοντάς του τα εκάστοτε (κάθε φορά) μήκη των πλευρών του.

Παρακαλώ μόνοι σας και κάντε λάθη!

Το αρχείο του MicroWorlds Pro να μου το ανεβάσετε σαν εργασία (και ΟΧΙ συνημμένο μέσα σε μήνυμα), πατώντας ΕΔΩ και μετά πατώντας το κουμπί "Επιλογή αρχείου", το κουμπί "Άνοιγμα" και μετά "Υποβολή".

Προφανώς δε θα μου στείλετε καμιά κατεβασμένη από το διαδίκτυο! laughing