Το πρόβλημα των μονών και ζυγών αριθμών

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο:

  1. Να εμφανίζει τους ζυγούς αριθμούς από το 50 μέχρι το 100.
  2. Να εμφανίζει τους μονούς  αριθμούς στο διάστημα από το 0 μέχρι 100 κατά φθίνουσα σειρά.

Παρατήρηση: Για το καθένα από τα ζητούμενα να χρησιμοποιηθούν και τα τρία είδη εντολής επανάληψης που υποστηρίζει η γλώσσα Pascal.

program OddEven;

var
  i: Integer;

begin
{ Ερώτημα (α) }
  for i := 50 to 100 do
    if i mod 2 = 0 then Write(i:4);

  Writeln;

  i := 50;
  while i <= 100 do
  begin
    if i mod 2 = 0 then Write(i:4);
    i := i + 1;
  end;

  Writeln;

  i := 50;
  repeat
    if i mod 2 = 0 then Write(i:4);
    i := i + 1;
  until i > 100;

  Writeln;

{ Ερώτημα (β) }
  for i := 100 downto 0 do
    if i mod 2 = 1 then Write(i:4);

  Writeln;

  i := 100;
  while i >= 0 do
  begin
    if i mod 2 = 1 then Write(i:4);
    i := i - 1;
  end;

  Writeln;

  i := 100;
  repeat
    if i mod 2 = 1 then Write(i:4);
    i := i - 1;
  until i < 0;
  Writeln;
  Writeln('Bye!');
end.
Advertisements

Posted on 19/02/2012, in Γλώσσα Pascal, Δομημένος Προγραμματισμός and tagged , , , , , . Bookmark the permalink. Σχολιάστε.

Σχολιάστε

Εισάγετε τα παρακάτω στοιχεία ή επιλέξτε ένα εικονίδιο για να συνδεθείτε:

Λογότυπο WordPress.com

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό WordPress.com. Αποσύνδεση / Αλλαγή )

Φωτογραφία Twitter

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Twitter. Αποσύνδεση / Αλλαγή )

Φωτογραφία Facebook

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Facebook. Αποσύνδεση / Αλλαγή )

Φωτογραφία Google+

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Google+. Αποσύνδεση / Αλλαγή )

Σύνδεση με %s

Αρέσει σε %d bloggers: