2ο ΓΕΛ Γέρακα - ΠΛΗΡΟΦΟΡΙΚΗ - ΛΥΣΕΙΣ ΤΡΑΠΕΖΑΣ ΘΕΜΑΤΩΝ 30175

e-ΜΑΘΗΜΑΤΑ
ΠΛΗΡΟΦΟΡΙΚΗ
Λύσεις ασκήσεων Τράπεζας Θεμάτων
30175

ΠΡΟΓΡΑΜΜΑ ημιάθροισμα_προηγουμένων_ΤΘ_30175

!ΘΕΜΑ 4

!Να αναπτύξετε ένα πρόγραμμα σε ΓΛΩΣΣΑ το οποίο:

!4.1 Να περιέχει κατάλληλο τμήμα δηλώσεων.

!Μονάδες 4

!4.2 Να διαβάζει μη αρνητικούς ακέραιους αριθμούς με έλεγχο εγκυρότητας.

!Το πρόγραμμα να  τερματίζεται όταν εισαχθεί ο αριθμός 0.

!Μονάδες 9

!4.3 Να υπολογίζει και εμφανίζει το πλήθος των αριθμών που εισάχθηκαν

!και ήταν μεγαλύτεροι από το ημιάθροισμα όλων των προηγουμένων.

!Μονάδες 12



ΜΕΤΑΒΛΗΤΕΣ

  ΑΚΕΡΑΙΕΣ: αριθμός, πλήθος, άθροισμα

  ΠΡΑΓΜΑΤΙΚΕΣ: ημιαθρ

ΑΡΧΗ

  πλήθος <- 0

  άθροισμα <- 0



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

    ΓΡΑΨΕ 'Δώσε έναν μη αρνητικό αριθμό (0 για τέλος): '

    ΔΙΑΒΑΣΕ αριθμός

  ΜΕΧΡΙΣ_ΟΤΟΥ αριθμός >= 0



  ΟΣΟ αριθμός <> 0 ΕΠΑΝΑΛΑΒΕ

    ! Υπολογισμός ημιάθροισματος όλων των προηγουμένων

    ημιαθρ <- άθροισμα/ 2



    ΑΝ αριθμός > ημιαθρ ΤΟΤΕ

      πλήθος <- πλήθος + 1

    ΤΕΛΟΣ_ΑΝ



    ! Ενημέρωση αθροίσματος με τον τρέχοντα αριθμό

    άθροισμα <- άθροισμα + αριθμός



    ! Διάβασμα επόμενου αριθμού με έλεγχο εγκυρότητας

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

      ΓΡΑΨΕ 'Δώσε έναν μη αρνητικό αριθμό (0 για τέλος): '

      ΔΙΑΒΑΣΕ αριθμός

    ΜΕΧΡΙΣ_ΟΤΟΥ αριθμός >= 0

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ



! Για να μην συμπεριληφθεί και το 1ο στοιχείο, επειδή δεν έχει προηγούμενους

  πλήθος <- πλήθος - 1



  ΓΡΑΨΕ 'Πλήθος αριθμών μεγαλύτερων από το ημιάθροισμα των προηγουμένων: ', πλήθος

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ