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