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