Τώρα είναι Πέμ 28 Μαρ 2024 07:50 pm

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




Δημιουργία νέου θέματος Απαντήστε στο θέμα  [ 1 Δημοσίευση ] 
Συγγραφέας Μήνυμα
 Θέμα δημοσίευσης: Επεξεργασία κύκλου
ΔημοσίευσηΔημοσιεύτηκε: Τρί 01 Μαρ 2005 11:21 pm 
Χωρίς σύνδεση

Εγγραφή: Κυρ 15 Φεβ 2004 09:10 pm
Δημοσιεύσεις: 18
Τοποθεσία: Ενιαίο Λύκειο Χιλιομοδίου Κορινθίας
Να αναπτυχθεί πρόγραμμα που θα εκτυπώνει το παρακάτω μενού επιλογών που αφορά έναν κύκλο:
1. Υπολογισμός εμβαδού
2. Υπολογισμός περιμέτρου
3. Υπολογισμός διαμέτρου
Δώσε επιλογή:
στη συνέχεια θα διαβάζει την επιλογή του χρήστη και ακόμη έναν αριθμό που αντιστοιχεί σε ακτίνα κύκλου (να πραγματοποιείται έλεγχος δεδομένων) και να εκτυπώνει το αντίστοιχο αποτέλεσμα

Syntax: [ Download ] [ Hide ]
ΠΡΟΓΡΑΜΜΑ Επεξεργασία_Κύκλου_Υπγ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: επιλογή
  ΠΡΑΓΜΑΤΙΚΕΣ: ακτίνα, αποτέλεσμα
ΑΡΧΗ
  ΚΑΛΕΣΕ Εισαγωγή_Δεδομένων (επιλογή, ακτίνα)
  ΕΠΙΛΕΞΕ επιλογή
    ΠΕΡΙΠΤΩΣΗ 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
  Υπολογισμός_Διαμέτρου <-- διάμετρος
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ
!================================================================
ΔΙΑΔΙΚΑΣΙΑ Εκτύπωση_Αποτελεσμάτων(εκτίμηση)
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ:εκτίμηση
ΑΡΧΗ
  ΓΡΑΨΕ ' Το αποτέλεσμα είναι ', εκτίμηση
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ                                                                  
 


Από http://users.kor.sch.gr/ptsiotakis/aepp ... s/ask3.pdf

Με εκτίμηση, Τσιωτάκης Παναγιώτης


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

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


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

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


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

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