Τώρα είναι Τετ 08 Απρ 2020 07:50 am

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 2 Δημοσιεύσεις ] 
Συγγραφέας Μήνυμα
ΔημοσίευσηΔημοσιεύτηκε: Σάβ 18 Σεπ 2010 08:51 pm 
Χωρίς σύνδεση

Εγγραφή: Σάβ 18 Σεπ 2010 08:15 pm
Δημοσιεύσεις: 1
Ένα πολύ απλό πρόγραμμα, με σαφώς περιορισμένες δυνατότητες.
Δεδομένης της ακτίνας ενός κύκλου, υπολογίζει τα εξής:
1. Διάμετρο. - 2. Μήκος Κύκλου, Ημικυκλίου και Τεταρτοκυκλίου.
3. Εμβαδόν Κύκλου, Ημικυκλίου και Τεταρτοκυκλίου.
4. Όγκο της 'αντίστοιχης' σφαίρας.
Ίσως φανεί χρήσιμο σε μαθηματικά/φυσική (όταν βαριέστε :wink: ).
Υ.Γ. 1. Νέος στον Προγραμματισμό, κ' αυτό είναι το πρώτο μου upload. Συνεπώς
Διορθώσεις και ιδέες για βελτίωση είναι ευπρόσδεκτες.

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Μεγέθη_Κύκλου_Σφαίρας

ΣΤΑΘΕΡΕΣ
  π=3.14

ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: ρ, δ, κ, κ_ημι, κ_τετ, εμβ, εμβ_ημι, εμβ_τετ, ογκ

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

  δ <-- 2*ρ
  κ <-- 2*π*ρ
  κ_ημι <-- κ/2
  κ_τετ <-- κ/4
  εμβ <-- 2*π*(ρ^2)
  εμβ_ημι <-- εμβ/2
  εμβ_τετ <-- εμβ/4
  ογκ <-- (4*π*(ρ^3))/3

  ΓΡΑΨΕ 'Διάμετρος Κύκλου:'
  ΓΡΑΨΕ 'Μήκος Κύκλου:'
  ΓΡΑΨΕ 'Μήκος Ημικυκλίου:',κ_ημι
  ΓΡΑΨΕ 'Μήκος Τεταρτοκυκλίου:',κ_τετ
  ΓΡΑΨΕ 'Εμβαδόν Κύκλου:',εμβ
  ΓΡΑΨΕ 'Εμβαδόν Ημικυκλίου:',εμβ_ημι
  ΓΡΑΨΕ 'Εμβαδόν Τεταρτοκυκλίου:',εμβ_τετ
  ΓΡΑΨΕ 'Όγκος Σφαίρας:',ογκ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μεγέθη_Κύκλου_Σφαίρας


Κορυφή
 Προφίλ  
 
ΔημοσίευσηΔημοσιεύτηκε: Κυρ 19 Σεπ 2010 12:35 pm 
Χωρίς σύνδεση

Εγγραφή: Παρ 30 Μάιος 2008 09:46 pm
Δημοσιεύσεις: 49
Το εμβαδόν κύκλου δίνεται από τον τύπο π*(ρ^2) , όχι από το 2*π*(ρ^2) :wink:
ΥΓ. Καλό θα ήταν να βάζεις τα προγράμματα που στέλνεις μέσα σε:
Κώδικας:
[glossa]πρόγραμμα[/glossa]

_________________
"Δύο πράγματα είναι ατελείωτα (άπειρα), το σύμπαν και η ανθρώπινη βλακεία, για το 1ο δεν είμαι σίγουρος." Einstein
"Τα πάντα ρει" (Τα πάντα ρέουν/αλλάζουν) Ηράκλειτος
"Μη μου τους κύκλους τάραττε" Αρχιμήδης


Κορυφή
 Προφίλ  
 
Τελευταίες δημοσιεύσεις:  Ταξινόμηση ανά  
Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 2 Δημοσιεύσεις ] 

Όλοι οι χρόνοι είναι UTC + 2 ώρες [ DST ]


Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση : Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης


Δεν μπορείτε να δημοσιεύετε νέα θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να απαντάτε σε θέματα σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επεξεργάζεστε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να διαγράφετε τις δημοσιεύσεις σας σε αυτή τη Δ. Συζήτηση
Δεν μπορείτε να επισυνάπτετε αρχεία σε αυτή τη Δ. Συζήτηση

Αναζήτηση για:
Μετάβαση σε:  
cron
Προβολές σελίδων: website counters