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

Ξεκίνησε από 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

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