Το πρόβλημα της Αριθμομηχανής

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

  1. Να εμφανίζει μενού επιλογών με τις επιλογές:
    1. Πρόσθεση
    2. Αφαίρεση
    3. Πολλαπλασιασμός
    4. Διαίρεση
  2. Να διαβάζει την επιλογή του χρήστη και κατόπιν δύο αριθμούς.
  3. Να υπολογίζει και να εμφανίζει το αποτέλεσμα της επιλεχθείσας πράξης.

Υποδείξεις για το Θέμα: Να γίνει χρήση της εντολής case-of και να εμφανιστούν τα κατάλληλα μηνύματα σε περίπτωση που παρουσιαστεί κάποιο σφάλμα.

program Calculator;

{ Προσομοίωση μιας απλής αριθμομηχανής }

var
  Num_1, Num_2, Result: Real;
  Choice: Integer;

begin
  Writeln('+--------------------+');
  Writeln('| ~~ΜΕΝΟΥ ΕΠΙΛΟΓΩΝ~~ |');
  Writeln('+--------------------+');
  Writeln('| 1. Πρόσθεση        |');
  Writeln('| 2. Αφαίρεση        |');
  Writeln('| 3. Πολλαπλασιασμός |');
  Writeln('| 4. Διαίρεση        |');
  Writeln('+--------------------+');
  Write('Δώστε την επιλογή σας (1/2/3/4): '); Readln(Choice);
  Write('Δώστε τους δύο αριθμούς: '); Readln(Num_1, Num_2);

  case Choice of
    1: begin
         Result := Num_1 + Num_2;
         Writeln('Αποτέλεσμα: ', Result:8:2);
       end;
    2: begin
         Result := Num_1 - Num_2;
         Writeln('Αποτέλεσμα: ', Result:8:2);
       end;
    3: begin
         Result := Num_1 * Num_2;
         Writeln('Αποτέλεσμα: ', Result:8:2);
       end;
    4: if Num_2 <> 0 then
       begin
         Result := Num_1 / Num_2;
         Writeln('Αποτέλεσμα: ', Result:8:2);
       end
       else
         Writeln('Δεν μπορώ να κάνω διαίρεση με 0');
  else
    Writeln('(!) Δώσατε λάθος κωδικό.');
  end;
end.
Advertisements

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

Σχολιάστε

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

Λογότυπο WordPress.com

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

Φωτογραφία Twitter

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

Φωτογραφία Facebook

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

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

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

Σύνδεση με %s

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