Πρόσθεση αριθμών με χρήση δομής επανάληψης

Ξεκίνησε από lightspot21, 11 Μαρ 2015, 10:29:51 ΜΜ

« προηγούμενο - επόμενο »

lightspot21

Καλησπέρα σε όλους.

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

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

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


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

apoldem

- Μετά την γραμμή 6, πρόσθεσε: χ<-0
- Την συνθήκη στην γραμμή 7 είναι καλύτερα να την κάνεις: πλήθος>0
- Την γραμμή 10 να την κάνεις: χ<-χ+ν

lightspot21

Ευχαριστώ για την απάντηση!  :)
Όμως, δεν δουλεύει δυστυχώς στην αφαίρεση. Τι αλλαγές χρειάζονται;

apoldem

Δεν καταλαβαίνω τι σημαίνει δεν δουλεύει στην αφαίρεση. Η αφαίρεση είναι ίδια πράξη με την πρόσθεση.