Απορία σε άσκηση

Ξεκίνησε από GeorgeG, 29 Δεκ 2012, 03:58:43 ΜΜ

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

GeorgeG

Εκφώνηση
Να γραφεί πρόγραμμα που να υπολογίζει το άθροισμα των περιττών αριθμών μεταξύ 1 και 1000. Το ίδιο πρόγραμμα να τροποποιηθεί ώστε να υπολογίζει το άθροισμα των αρτίων αριθμών της ιδίας περιοχής τιμών.

Λυση
program test1;
uses crt;
var sum,sum2,pa,aa:longint;
begin
clrscr;
sum:=0;
sum2:=0;
pa:=1;
aa:=2;
repeat
sum:=sum+pa;
pa:=pa+2;
sum2:=sum2+aa;
aa:=aa+2;
until (pa > 999  ) and (aa > 1000 );
writeln (sum);
writeln (sum2);
readln;
end.

Ο κώδικας είναι  σωστός ?
Αν ναι΄
σε περίπτωση που κάποιος πληκτρολογούσε τσ τιμές 9 και 1000 στν επανάληψη το πρόγραμμα δεν θα έπρεπε να τρέχει μονό για pa>9 και aa>1000 και να εμφανίζει τα αποτέλεσμα 25 και 250500?

dpa2006

Καλησπέρα και χρόνια πολλά.
το πρόγραμμα σου πρέπει την πρώτη φορά να αθροίζει τους περιττούς αριθμούς από 1 έως 1000.
περιττοί είναι οι αριθμοί που το υπόλοιπο της διαίρεσης τους με το 2 είναι διάφορο του μηδενός.
φτιάξε ένα βρόχο να αθροίζεις όλους αυτούς τους αριθμούς.
αντίστοιχα για το δεύτερο μέλος φτιάξε ένα βρόχο που να αθροίζει τους αριθμούς για τους οποίους το αποτέλεσμα της διαίρεσης με το δύο(2) είναι μηδέν.
η συνάρτηση είναι η mod(modulo)
Computer science (abbreviated CS or CompSci) is the scientific and practical approach to computation and its applications. It is the systematic study of the feasibility, structure, expression, and mechanization of the methodical processes (or algorithms) that underlie the acquisition, representation, processing, storage, communication of, and access to information, whether such information is encoded in bits and bytes in a computer memory or transcribed engines and protein structures in a human cell.source:http://en.wikipedia.org/wiki/Computer_science

GeorgeG

Χρονιά πολλά.
ακριβώς έτσι το σκέφτηκα αλλά μετά παρατήρησα ότι αθροίζω κάθε φορά τν μεταβλητή Pa κατά δυο.
Άρα
κάθε φορά ο αριθμός θα είναι περιττός και αντίστοιχα για τους άρτιους

petrosp13

Σωστή είναι η λύση σου
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής