Μάθημα : Γ ΓΕΛ ΑΝΑΠΤΥΞΗ ΕΦΑΡΜΟΓΩΝ ΣΕ ΠΡΟΓΡΑΜΜΑΤΙΣΤΙΚΟ ΠΕΡΙΒΑΛΛΟΝ

ΠΡΟΓΡΑΜΜΑ Υπολογισμός_Εμβαδού_Κύκλου
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: R, Εμβαδό
ΑΡΧΗ
  ΚΑΛΕΣΕ Είσοδος_δεδομένων (R) 
  Εμβαδό <- Εμβαδό_κύκλου (R) 
  ΚΑΛΕΣΕ Εκτύπωση (Εμβαδό) 
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ Είσοδος_δεδομένων(Αριθμός) 
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Αριθμός
ΑΡΧΗ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Δώσε την ακτίνα του κύκλου: '
    ΔΙΑΒΑΣΕ Αριθμός
  ΜΕΧΡΙΣ_ΟΤΟΥ Αριθμός > 0
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΣΥΝΑΡΤΗΣΗ Εμβαδό_κύκλου(R): ΠΡΑΓΜΑΤΙΚΗ
ΣΤΑΘΕΡΕΣ
  Π = 3.14
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: R
ΑΡΧΗ
  Εμβαδό_κύκλου <- Π*R^2
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

ΔΙΑΔΙΚΑΣΙΑ Εκτύπωση(Αποτέλεσμα) 
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Αποτέλεσμα
ΑΡΧΗ
  ΓΡΑΨΕ 'Το εμβαδό του κύκλου είναι :', Αποτέλεσμα
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

ΠΡΟΓΡΑΜΜΑ ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ_Υπολογισμός_Εμβαδού_Γεωμετρικού_Σχήματος
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: R, Αριθμός[2], Εμβαδό, Επιλογή, Πλήθος_δεδομένων
  ΧΑΡΑΚΤΗΡΕΣ: Κείμενο[2] 
ΑΡΧΗ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ

    Κείμενο[1] <- ''
    Κείμενο[2] <- ''
    Αριθμός[1] <- 0
    Αριθμός[2] <- 0

    ΓΡΑΨΕ 'Επίλεξε γεωμετρικό σχήμα για τον υπολογισμό του εμβαδού: '
    ΓΡΑΨΕ
    ΓΡΑΨΕ '1. Κύκλος.'
    ΓΡΑΨΕ '2. Τρίγωνο.'
    ΓΡΑΨΕ '3. Παραλληλόγραμο/Τετράγωνο'
    ΓΡΑΨΕ '4. Έξοδος'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΓΡΑΨΕ 'Δώσε επιλογή: '
      ΔΙΑΒΑΣΕ Επιλογή
    ΜΕΧΡΙΣ_ΟΤΟΥ Επιλογή >= 1 ΚΑΙ Επιλογή <= 4

    ΕΠΙΛΕΞΕ Επιλογή
      ΠΕΡΙΠΤΩΣΗ 1
        Κείμενο[1] <- 'R'
        ΚΑΛΕΣΕ Είσοδος_δεδομένων(1, Κείμενο, Αριθμός) 
        ΓΡΑΨΕ 'Το Εμβαδό του κύκλου είναι: ', Εμβαδό_κύκλου(Αριθμός) 
      ΠΕΡΙΠΤΩΣΗ 2
        Κείμενο[1] <- 'Βάση'
        Κείμενο[2] <- 'Ύψος'
        ΚΑΛΕΣΕ Είσοδος_δεδομένων(2, Κείμενο, Αριθμός) 
        ΓΡΑΨΕ 'Το Εμβαδό του Τριγώνου είναι: ', Εμβαδό_Τριγώνου(Αριθμός) 
      ΠΕΡΙΠΤΩΣΗ 3
        Κείμενο[1] <- 'Μήκος'
        Κείμενο[2] <- 'Πλάτος'
        ΚΑΛΕΣΕ Είσοδος_δεδομένων(2, Κείμενο, Αριθμός) 
        ΑΝ Αριθμός[1] = Αριθμός[2] ΤΟΤΕ
          ΓΡΑΨΕ 'Το Εμβαδό του Τετραγώνου είναι: ', Εμβαδό_Παραλληλογράμμου_Τετραγώνου(Αριθμός) 
        ΑΛΛΙΩΣ
          ΓΡΑΨΕ 'Το Εμβαδό του Παραλληλογράμμου είναι: ', Εμβαδό_Παραλληλογράμμου_Τετραγώνου(Αριθμός) 
        ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ Επιλογή = 4

  ΓΡΑΨΕ 'Τέλος Προγράμματος.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΥΠΟΠΡΟΓΡΑΜΜΑΤΑ_Υπολογισμός_Εμβαδού_Γεωμετρικού_Σχήματος

!-------------------------
ΔΙΑΔΙΚΑΣΙΑ Είσοδος_δεδομένων(Πλήθος_δεδομένων1, Κείμενο1, Αριθμός1) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i
  ΠΡΑΓΜΑΤΙΚΕΣ: Αριθμός1[2], Πλήθος_δεδομένων1
  ΧΑΡΑΚΤΗΡΕΣ: Κείμενο1[2] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Πλήθος_δεδομένων1
    ΓΡΑΨΕ 'Δώσε ', Κείμενο1[i], ': '
    ΔΙΑΒΑΣΕ Αριθμός1[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ Είσοδος_δεδομένων
!-------------------------

ΣΥΝΑΡΤΗΣΗ Εμβαδό_κύκλου(Αριθμός1): ΠΡΑΓΜΑΤΙΚΗ
ΣΤΑΘΕΡΕΣ
  Π = 3.14
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Αριθμός1[2] 
ΑΡΧΗ
  Εμβαδό_κύκλου <- Π*Αριθμός1[1]^2
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

!-------------------------  
ΣΥΝΑΡΤΗΣΗ Εμβαδό_Τριγώνου(Αριθμός1): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Αριθμός1[2] 
ΑΡΧΗ
  Εμβαδό_Τριγώνου <- Αριθμός1[1]*Αριθμός1[2]/2
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ

!-------------------------
ΣΥΝΑΡΤΗΣΗ Εμβαδό_Παραλληλογράμμου_Τετραγώνου(Αριθμός1): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: Αριθμός1[2] 
ΑΡΧΗ
  Εμβαδό_Παραλληλογράμμου_Τετραγώνου <- Αριθμός1[1]*Αριθμός1[2] 
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ