Όλα Μαζί ...

Όλα μαζί:
 
Έστω ότι τίθεται το εξής πρόβλημα: Με δεδομένη την ακτίνα ενός κύκλου, να υπολογισθεί η περίμετρος και το εμβαδόν του.
Ο αλγόριθμος που το λύνει και χρησιμοποιεί όσα αναφέρθηκαν παρουσιάζεται παρακάτω:

 
ΠΡΟΓΡΑΜΜΑ Κύκλος
ΣΤΑΘΕΡΕΣ
π=3.14
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Ακτ, Εμβ, Περ
ΑΡΧΗ
ΔΙΑΒΑΣΕ Ακτ
Περ<- 2*π*Ακτ
Εμβ<- π*Ακτ^2
ΓΡΑΨΕ ‘Η Περίμετρο είναι:’, Περ, ‘. Το εμβαδό:’, Εμβ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ