Τίτλος
ΚαταχώρησηΤίτλος
Καταχώρηση
Γράψε
"---------------------------------------------------------------"
Γράψε
"Υποπρογράμματα: εμβέλεια μεταβλητών"
Γράψε
"σε διαδικασίες και συναρτήσεις"
Γράψε
"---------------------------------------------------------------"
R <- 0
Αρχή_Επανάληψης
Γράψε
"Δώσε την ακτίνα:"
Διάβασε
R
Γράψε
"Ακτίνα: ", R
Π <- 3.14
Εμ <- Π * R ^ 2
Γράψε
"Το εμβαδό του κύκλου είναι: ", Εμ
Γράψε
"---------------------------------------------------------------"
Γράψε
"---------------------------------------------------------------"
R <- 0
Κάλεσε
Είσοδος_Δεδομένων(R)
Εμ <- Εμβαδό_Κύκλου(R)
Κάλεσε
Εκτύπωση(Εμ)
Γράψε
"---------------------------------------------------------------"
Διαδικασία
Είσοδος_Δεδομένων
(Αριθμος)
Αρχή_Επανάληψης
Γράψε
"Δώσε την ακτίνα:"
Διάβασε
Αριθμος
Γράψε
"Ακτίνα: ", Αριθμος
Τέλος_Διαδικασίας
Συνάρτηση
Εμβαδό_Κύκλου
(R)
Π <- 3.14
Εμβαδό_Κύκλου <- Π * R ^ 2
Τέλος_Συνάρτησης
Διαδικασία
Εκτύπωση
(Αποτελεσμα)
Γράψε
"Το εμβαδό του κύκλου είναι: ", Αποτελεσμα
Τέλος_Διαδικασίας