e-ΜΑΘΗΜΑΤΑ
Ανάπτυξη Εφαρμογών σε Προγραμματιστικό περιβάλλον

Λύσεις ασκήσεων από τον Οδηγό Μελέτης Μαθητών


ΠΡΟΓΡΑΜΜΑ ΚΛΗΣΗ_ΥΠΟΠΡΟΓΡΑΜΜΑΤΟΣ
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 5.4.4.2
!
! 2. Να γραφεί διαδικασία η οποία να διαβάζει ακέραιους αριθμούς
! και να επιστρέφει το πλήθος των θετικών, το πλήθος των αρνητικών
! και το πλήθος των μηδέν. Το πλήθος των ακέραιων που θα διαβαστούν
! θα ορίζεται σαν παράμετρος της διαδικασίας.
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: πλήθος, θετικοί, αρνητικοί, μηδενικά
ΑΡΧΗ
! το κύριο πρόγραμμα δεν το ζητάει η εκφώνηση, αλλά χρειάζεται
! για την κλήση της διαδικασίας.
  ΓΡΑΨΕ 'Δώστε πλήθος αριθμών : '
  ΔΙΑΒΑΣΕ πλήθος
  ΚΑΛΕΣΕ διάβασμα_αριθμών (πλήθος, θετικοί, αρνητικοί, μηδενικά) 
  ΓΡΑΨΕ 'θετικοί :', θετικοί, ' αρνητικοί: ', αρνητικοί, ' μηδενικά:', μηδενικά
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ διάβασμα_αριθμών (πλήθος, θετικοί, αρνητικοί, μηδενικά) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: πλήθος, θετικοί, αρνητικοί, μηδενικά, i, x
ΑΡΧΗ
  θετικοί <- 0
  αρνητικοί <- 0
  μηδενικά <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΓΡΑΨΕ 'Δώστε αριθμό : '

    ΔΙΑΒΑΣΕ x
    ΑΝ x > 0 ΤΟΤΕ
      θετικοί <- θετικοί + 1
    ΑΛΛΙΩΣ_ΑΝ x < 0 ΤΟΤΕ
      αρνητικοί <- αρνητικοί + 1
    ΑΛΛΙΩΣ
      μηδενικά <- μηδενικά + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

 

© 2020 - 2ο Γενικό Λύκειο Γέρακα - Βασίλειος Αναστόπουλος