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