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

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


ΠΡΟΓΡΑΜΜΑ πλήθος_άθροισμα_ψηφίων_ακεραίου
! ΑΕΠΠ - Οδηγός Μελέτης Μαθητή
! Μη λυμένες ασκήσεις 3.6.12
!
! 12. Να γραφεί πρόγραμμα σε "ΓΛΩΣΣΑ" , το οποίο διαβάζει ένα ακέραιο αριθμό.
!     Να υπολογίζει και να εμφανίζει:
!     I. το άθροισμα των ψηφίων του και
!     II.το πλήθος των ψηφίων του

ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Χ, πλήθος, άθροισμα, ψηφίο

ΑΡΧΗ
  πλήθος <- 0
  άθροισμα <- 0
  ΓΡΑΨΕ 'Δώστε έναν ακέραιο αριθμό: '
  ΔΙΑΒΑΣΕ Χ

  ! Ο αριθμός πρέπει να είναι θετικός για να είναι σίγουρα σωστά το DIV και το MOD
  ΑΝ Χ < 0 ΤΟΤΕ
    Χ <- Χ*(-1) 
  ΤΕΛΟΣ_ΑΝ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ψηφίο <- Χ mod 10
    πλήθος <- πλήθος + 1
    άθροισμα <- άθροισμα + ψηφίο
    Χ <- Χ div 10
  ΜΕΧΡΙΣ_ΟΤΟΥ Χ = 0

  ΓΡΑΨΕ 'Αθροισμα των ψηφίων :', άθροισμα
  ΓΡΑΨΕ 'Πλήθος των ψηφίων   :', πλήθος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

 

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