Να γίνει πρόγραμμα σε Pascal το οποίο να διαβάζει από το πληκτρολόγιο 10 ακέραιους αριθμούς και να υπολογίζει και να εμφανίζει:
α. Για κάθε έναν το μήνυμα "ΑΡΤΙΟΣ" αν ο αριθμός είναι άρτιος ή το μήνυμα "ΠΕΡΙΤΤΟΣ" αν ο αριθμός είναι περιττός.
β. Το πλήθος των άρτιων και το πλήθος των περιττών αριθμών που πατήθηκαν
γ. Το άθροισμα όλων ( ανεξαιρέτως ) των αριθμών.
Λύση
program For_and_if;
var
x,a,ca,cp: integer;
sum:integer;
begin
write('ΘΑ ΠΑΤΗΣΩ 10 ΑΡΙΘΜΟΥΣ ΚΑΙ ΘΑ ΜΟΥ ΒΓΑΖΕΙ ΓΙΑ ΚΑΘΕ ΕΝΑΝ ');
writeln('ΑΝ ΕΙΝΑΙ ΑΡΤΙΟΣ Ή ΠΕΡΙΤΤΟΣ');
ca := 0; { όπου ca ο μετρητής των ΑΡΤΙΩΝ}
cp := 0; { όπου cp ο μετρητής των ΠΕΡΙΤΤΩΝ}
sum:= 0;
for x:=1 to 10 do
begin
writeln('Σε παρακαλώ γκιζντάνι, να πατάς ακέραιες τιμές!!!');
readln(a);
sum := sum + a;
if a mod 2 = 0 then
begin
writeln('ΑΡΤΙΟΣ');
ca := ca + 1;
end
else
begin
writeln('ΠΕΡΙΤΤΟΣ');
cp := cp + 1;
end
;
end
;
writeln('Άρα φιλαράκο πάτησες ',ca, ' ΑΡΤΙΟΥΣ');
writeln('και ',cp, ' ΠΕΡΙΤΤΟΥΣ');
writeln('Το συνολικό άθροισμα των νούμερων είναι: ', sum);
end.
α. Για κάθε έναν το μήνυμα "ΑΡΤΙΟΣ" αν ο αριθμός είναι άρτιος ή το μήνυμα "ΠΕΡΙΤΤΟΣ" αν ο αριθμός είναι περιττός.
β. Το πλήθος των άρτιων και το πλήθος των περιττών αριθμών που πατήθηκαν
γ. Το άθροισμα όλων ( ανεξαιρέτως ) των αριθμών.
Λύση
program For_and_if;
var
x,a,ca,cp: integer;
sum:integer;
begin
write('ΘΑ ΠΑΤΗΣΩ 10 ΑΡΙΘΜΟΥΣ ΚΑΙ ΘΑ ΜΟΥ ΒΓΑΖΕΙ ΓΙΑ ΚΑΘΕ ΕΝΑΝ ');
writeln('ΑΝ ΕΙΝΑΙ ΑΡΤΙΟΣ Ή ΠΕΡΙΤΤΟΣ');
ca := 0; { όπου ca ο μετρητής των ΑΡΤΙΩΝ}
cp := 0; { όπου cp ο μετρητής των ΠΕΡΙΤΤΩΝ}
sum:= 0;
for x:=1 to 10 do
begin
writeln('Σε παρακαλώ γκιζντάνι, να πατάς ακέραιες τιμές!!!');
readln(a);
sum := sum + a;
if a mod 2 = 0 then
begin
writeln('ΑΡΤΙΟΣ');
ca := ca + 1;
end
else
begin
writeln('ΠΕΡΙΤΤΟΣ');
cp := cp + 1;
end
;
end
;
writeln('Άρα φιλαράκο πάτησες ',ca, ' ΑΡΤΙΟΥΣ');
writeln('και ',cp, ' ΠΕΡΙΤΤΟΥΣ');
writeln('Το συνολικό άθροισμα των νούμερων είναι: ', sum);
end.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου