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

ΔΟΜΗ ΑΚΟΛΟΥΘΙΑΣ

ΠΡΟΓΡΑΜΜΑ ΑΚΟΛΟΥΘΙΑ_Κόστος_Υπολογιστών
! Πρόγραμμα υπολογισμού κόστους παραγγελίας υπολογιστών
ΣΤΑΘΕΡΕΣ
  ΦΠΑ = 0.18
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ποσότητα, Τιμή_μονάδας, Κόστος
  ΠΡΑΓΜΑΤΙΚΕΣ: Αξία_ΦΠΑ, Συνολικό_κόστος
ΑΡΧΗ
! Εισαγωγή δεδομένων
  ΓΡΑΨΕ 'Δώσε την ποσότητα της παραγγελίας'
  ΔΙΑΒΑΣΕ Ποσότητα
  ΓΡΑΨΕ 'Δώσε την τιμή του υπολογιστή'
  ΔΙΑΒΑΣΕ Τιμή_μονάδας
! Υπολογισμοί
  Κόστος <- Ποσότητα* Τιμή_μονάδας
  Αξία_ΦΠΑ <- Κόστος*ΦΠΑ
  Συνολικό_κόστος <- Κόστος + Αξία_ΦΠΑ
! Εμφάνιση αποτελεσμάτων
  ΓΡΑΨΕ 'Το κόστος των', Ποσότητα, 'υπολογ. είναι ', Κόστος
  ΓΡΑΨΕ ' Η αξία του ΦΠΑ είναι', Αξία_ΦΠΑ
  ΓΡΑΨΕ 'Το συνολικό κόστος είναι', Συνολικό_κόστος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ ΑΚΟΛΟΥΘΙΑ_Κόστος_Υπολογιστών 

ΔΟΜΗ ΕΠΙΛΟΓΗΣ

ΠΡΟΓΡΑΜΜΑ Βαθμολογία_ΕΠΙΛΕΞΕ
ΜΕΤΑΒΛΗΤΕΣ
  ΠΡΑΓΜΑΤΙΚΕΣ: βαθμός
ΑΡΧΗ
  ΓΡΑΨΕ 'Δώσε βαθμό: '
  ΔΙΑΒΑΣΕ βαθμός
  ΕΠΙΛΕΞΕ βαθμός
    ΠΕΡΙΠΤΩΣΗ >= 17.5
      ΓΡΑΨΕ 'Άριστα'
    ΠΕΡΙΠΤΩΣΗ >= 15.5
      ΓΡΑΨΕ 'Αρκετά καλά'
    ΠΕΡΙΠΤΩΣΗ >= 13.5
      ΓΡΑΨΕ 'Καλά'
    ΠΕΡΙΠΤΩΣΗ >= 9.5
      ΓΡΑΨΕ 'Μέτρια'
    ΠΕΡΙΠΤΩΣΗ ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Απορρίπτεται'
  ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Βαθμολογία_ΕΠΙΛΕΞΕ

ΔΟΜΗ ΕΠΑΝΑΛΗΨΗΣ

ΠΡΟΓΡΑΜΜΑ Άθροισμα_ΜΟ_ΟΣΟ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Χ
  ΑΚΕΡΑΙΕΣ: Άθροισμα
  ΑΚΕΡΑΙΕΣ: Πλήθος
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
ΑΡΧΗ
  Πλήθος <- 0
  Άθροισμα <- 0
  ΓΡΑΨΕ 'Δώσε Αριθμό'
  ΔΙΑΒΑΣΕ Χ
  ΟΣΟ Χ <> 0 ΕΠΑΝΑΛΑΒΕ
    Άθροισμα <- Άθροισμα + Χ
    Πλήθος <- Πλήθος + 1
    ΓΡΑΨΕ 'Δώσε Αριθμό'
    ΔΙΑΒΑΣΕ Χ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ Πλήθος > 0 ΤΟΤΕ
    ΜΟ <- Άθροισμα/Πλήθος
    ΓΡΑΨΕ 'Το Άθροισμα είναι : ', Άθροισμα
    ΓΡΑΨΕ 'Ο Μέσος όρος είναι : ', ΜΟ
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δεν δόθηκαν στοιχεία'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Άθροισμα_ΜΟ_ΟΣΟ


ΠΡΟΓΡΑΜΜΑ Άθροισμα_ΜΟ_ΜΕΧΡΙΣ_ΟΤΟΥ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Χ, Άθροισμα, Πλήθος
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
  ΧΑΡΑΚΤΗΡΕΣ: Επιλογή
ΑΡΧΗ
  Πλήθος <- 0
  Άθροισμα <- 0
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
! Έλεγχος δεδομένων
      ΓΡΑΨΕ 'Δώσε Αριθμό'
      ΔΙΑΒΑΣΕ Χ
      ΑΝ Χ <= 0 ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθος Αριθμός, Παρακαλώ δώστε ξανά...'
      ΤΕΛΟΣ_ΑΝ
! Αν το X δεν είναι θετικό εισάγουμε νέο αριθμό
    ΜΕΧΡΙΣ_ΟΤΟΥ Χ > 0
    Άθροισμα <- Άθροισμα + Χ
    Πλήθος <- Πλήθος + 1
    ΓΡΑΨΕ 'Νέα μέτρηση ;'
    ΔΙΑΒΑΣΕ Επιλογή
! Αν η επιλογή είναι Ο ή ο τότε σταματάει η επανάληψη
  ΜΕΧΡΙΣ_ΟΤΟΥ Επιλογή = 'Ο' Η Επιλογή = 'ο'
  ΜΟ <- Άθροισμα/Πλήθος
  ΓΡΑΨΕ 'Άθροισμα =', Άθροισμα
  ΓΡΑΨΕ 'Μέσος όρος =', ΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Άθροισμα_ΜΟ_ΜΕΧΡΙΣ_ΟΤΟΥ 

ΠΡΟΓΡΑΜΜΑ Άθροισμα_περιττών_αριθμών_ΓΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Άθροισμα, Αριθμός
ΑΡΧΗ
Άθροισμα <- 0
ΓΙΑ Αριθμός ΑΠΟ 1 ΜΕΧΡΙ 100 ΜΕ_ΒΗΜΑ 2
Άθροισμα <- Άθροισμα + Αριθμός
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Άθροισμα περιττών αριθμών είναι ', Άθροισμα
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Άθροισμα_περιττών_αριθμών_ΓΙΑ

ΠΡΟΓΡΑΜΜΑ Προπαίδεια_ΓΙΑ
!Πρόγραμμα εκτύπωσης της προπαίδειας των αριθμών 1 έως 10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α, Β, Γ
!A:Πολλαπλασιαστέος
!Β:Πολαπλασιαστής
!Γ:Γινόμενο
ΑΡΧΗ
ΓΙΑ Α ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΙΑ Β ΑΠΟ 1 ΜΕΧΡΙ 10
Γ <- Α*Β
ΓΡΑΨΕ Α, 'X', Β, '=', Γ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ '' !Εισαγωγή κενής γραμμής στην εκτύπωση
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Προπαίδεια_ΓΙΑ

ΠΑΡΑΔΕΙΓΜΑΤΑ ΚΩΔΙΚΑ

ΠΡΟΓΡΑΜΜΑ μάντεψε_τον_αριθμό_ΔΥΑΔΙΚΗ_ΑΝΑΖΗΤΗΣΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: προσ, αρχη_, τελος, μεση, απαντηση
  ΛΟΓΙΚΕΣ: βρεθηκε
  ΧΑΡΑΚΤΗΡΕΣ: απ
ΑΡΧΗ
  ΓΡΑΨΕ 'Σκέψου έναν ακέραιο αριθμό από το 1 μέχρι το 100'
  ΓΡΑΨΕ ' και θα τον μαντέψω το πολύ σε 7 προσπάθειες'
  ΓΡΑΨΕ ' αρκεί να απαντάς ειλικρινά στις ερωτήσεις μου: '
  ΓΡΑΨΕ
  αρχη_ <- 1
  τελος <- 100
  προσ <- 0
  βρεθηκε <- ΨΕΥΔΗΣ
  ΟΣΟ αρχη_ <= τελος ΚΑΙ βρεθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    προσ <- προσ + 1
    μεση <- (αρχη_ + τελος) DIV 2
    ΓΡΑΨΕ 'Προσπάθεια ', προσ, 'η'
    ΓΡΑΨΕ ' Είναι ο αριθμός ', μεση, '; '
    ΓΡΑΨΕ 'Δώσε Ν(ΝΑΙ) ή Ο(ΟΧΙ):'
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ απ
      ΑΝ απ <> 'Ν' ΚΑΙ απ <> 'ν' ΚΑΙ απ <> 'Ο' ΚΑΙ απ <> 'ο' ΤΟΤΕ
        ΓΡΑΨΕ 'Λάθος απάντηση. Ξαναπροσπάθησε....'
      ΤΕΛΟΣ_ΑΝ
    ΜΕΧΡΙΣ_ΟΤΟΥ απ = 'Ν' Η απ = 'ν' Η απ = 'Ο' Η απ = 'ο'
    ΑΝ απ = 'Ν' Η απ = 'ν' ΤΟΤΕ
      βρεθηκε <- ΑΛΗΘΗΣ
      ΓΡΑΨΕ 'Τον βρήκα σε ', προσ, ' προσπάθεια/ες...'
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'Ο αριθμός που έβαλες είναι '
      ΓΡΑΨΕ '(1)μεγαλύτερος ή (2)μικρότερος...'
      ΓΡΑΨΕ 'Δώσε απάντηση 1 ή 2: '
      ΔΙΑΒΑΣΕ απαντηση
      ΑΝ απαντηση = 1 ΤΟΤΕ
        αρχη_ <- μεση + 1
      ΑΛΛΙΩΣ
        τελος <- μεση - 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ '______________________________'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ προσ > 7 Η αρχη_ > τελος ΤΟΤΕ
    ΓΡΑΨΕ 'Δε βρήκα τον αριθμό σε 7 προσπάθειες'
    ΓΡΑΨΕ 'γιατί δεν είσαι ειλικρινής ή '
    ΓΡΑΨΕ 'έκανες κάτι λάθος στη διαδικασία '
    ΓΡΑΨΕ ' που συμφωνήσαμε'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ μάντεψε_τον_αριθμό_ΔΥΑΔΙΚΗ_ΑΝΑΖΗΤΗΣΗ