Το πρόβλημα της “κατάταξης του αθροίσματος”

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

  1. Να διαβάζει δύο ακέραιους αριθμούς
  2. Να υπολογίζει το άθροισμά τους
  3. Να εμφανίζει το μήνυμα “Το άθροισμα είναι θετικός αριθμός” ή το μήνυμα “Το άθροισμα είναι αρνητικός αριθμός” ή το μήνυμα “Το άθροισμα είναι μηδέν” στην κατάλληλη περίπτωση

program PosNegZero;

var
  Num_1, Num_2: Integer;
  Sum: Integer;

begin
  Write('Δώσε τον 1ο ακέραιο αριθμό: ');
  Readln(Num_1);
  Write('Δώσε τον 2ο ακέραιο αριθμό: ');
  Readln(Num_2);

  Sum := Num_1 + Num_2;

  if Sum > 0 then
    Writeln('Το άθροισμα είναι θετικός αριθμός')
  else
    if Sum < 0 then
      Writeln('Το άθροισμα είναι αρνητικός αριθμός')
    else
      Writeln('Το άθροισμα είναι μηδέν');
end.
Advertisements

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

Σχολιάστε

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

Λογότυπο WordPress.com

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

Φωτογραφία Twitter

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

Φωτογραφία Facebook

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

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

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

Σύνδεση με %s

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