Παρασκευή 7 Νοεμβρίου 2014

Συνδυασμός των δομών FOR και IF στην ίδια άσκηση!

Να γίνει πρόγραμμα σε 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.

Δεν υπάρχουν σχόλια:

Δημοσίευση σχολίου