Αποστολέας Θέμα: Πρόσθεση αριθμών με χρήση δομής επανάληψης  (Αναγνώστηκε 662 φορές)

lightspot21

  • Νέος
  • *
  • Μηνύματα: 2
Καλησπέρα σε όλους.

Προσπαθώ να βρω έναν τρόπο να προσθέτω αριθμούς με τον εξής τρόπο:
1) Παίρνω από τον χρήστη το πλήθος των αριθμών για πρόσθεση (π.χ. 2) και το αποθηκεύω σε μια μεταβλητή.
2) Όσο το πλήθος είναι μεγαλύτερο/ίσο του 1 παίρνω τους αριθμούς για πρόσθεση έναν έναν και τους προσθέτω
μεταξύ τους. Μετά από την πρόσθεση, αφαιρώ 1 από το πλήθος.
3) Μόλις τελειώσουν οι αριθμοί, εμφανίζω το άθροισμα στην οθόνη και βγαίνω από τον βρόχο επανάληψης.

Καμιά ιδέα-πρόταση; Ευχαριστώ προκαταβολικά.

ΥΓ. Κώδικας μέχρι τώρα:
Κώδικας: Pascal
  1. ΔΙΑΔΙΚΑΣΙΑ Πρόσθεση
  2. ΜΕΤΑΒΛΗΤΕΣ
  3.   ΠΡΑΓΜΑΤΙΚΕΣ: πλήθος, ν, χ, ω
  4. ΑΡΧΗ
  5.   ΓΡΑΨΕ "Εισάγετε το πλήθος των αριθμών για πρόσθεση:  "
  6.   ΔΙΑΒΑΣΕ πλήθος
  7.   ΟΣΟ πλήθος >= 1 ΕΠΑΝΑΛΑΒΕ
  8.     ΓΡΑΨΕ "Εισάγετε τους αριθμούς για πρόσθεση(έναν-έναν, ακολουθούμενοι από Enter):  "
  9.     ΔΙΑΒΑΣΕ ν
  10.     ν <- ν + ν
  11.     πλήθος <- πλήθος - 1
  12.   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  13.   ΓΡΑΨΕ "Το άθροισμά τους είναι: ", χ
  14. ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ

Η διαδικασία είναι από πρότζεκτ αριθμομηχανής που αναπτύσσω.

apoldem

  • Βετεράνος
  • ****
  • Μηνύματα: 86
Απ: Πρόσθεση αριθμών με χρήση δομής επανάληψης
« Απάντηση #1 στις: 12 Μάρ 2015, 08:55:21 πμ »
- Μετά την γραμμή 6, πρόσθεσε: χ<-0
- Την συνθήκη στην γραμμή 7 είναι καλύτερα να την κάνεις: πλήθος>0
- Την γραμμή 10 να την κάνεις: χ<-χ+ν

lightspot21

  • Νέος
  • *
  • Μηνύματα: 2
Απ: Πρόσθεση αριθμών με χρήση δομής επανάληψης
« Απάντηση #2 στις: 12 Μάρ 2015, 03:40:13 μμ »
Ευχαριστώ για την απάντηση!  :)
Όμως, δεν δουλεύει δυστυχώς στην αφαίρεση. Τι αλλαγές χρειάζονται;

apoldem

  • Βετεράνος
  • ****
  • Μηνύματα: 86
Απ: Πρόσθεση αριθμών με χρήση δομής επανάληψης
« Απάντηση #3 στις: 12 Μάρ 2015, 05:28:00 μμ »
Δεν καταλαβαίνω τι σημαίνει δεν δουλεύει στην αφαίρεση. Η αφαίρεση είναι ίδια πράξη με την πρόσθεση.