Προγραμματισμός με τη Free Pascal - Μέρος 2ο

From Ubuntucy Wiki

Συγγραφή: Χατζηκυριάκου Γιώργος

---

Σε αυτό το μέρος θα μελετήσουμε την χρήση των μεταβλητών στη Pascal.
Μεταβλητή στις γλώσσες προγραμματισμού γενικά ονομάζουμε ένα γλωσσικό αντικείμενο που μπορεί να λάβει διάφορες τιμές, μία κάθε φορά. Οι τιμές μιας μεταβλητής περιορίζονται συνήθως σε ένα τύπο δεδομένων.

Οι βασικοί τύποι δεδομένων της Pascal είναι:

1.integer – ακραίοι, παίρνουν τιμές από -32768 μέχρι 32767
2.LongInt – ακραίοι, παίρνουν τιμές από -4228250000 μέχρι 4228249000
3.real – πραγματικοί, παίρνουν τιμές από 3.4x10^-38 μέχρι 3.4x10³⁸
4.char – χαρακτήρες, όπως για παράδειγμα : 'a', 'B', '+'
5.Boolean – Παίρνει μόνο δυο τιμές True/False
6.String – Συμβολοσειρά (μέγιστου μεγέθους 255 χαρακτήρων) όπως για παράδειγμα : «Hello»

Σταθερές είναι αντικείμενα τα οποία παίρνουν μόνο ΜΙΑ τιμή. Και τοποθετούνται πάνω από τις μεταβλητές.

Η σύνταξή τους είναι:

Const
Όνομα_σταθεράς: Τύπος_δεδομένων = τιμή;

Για να καταλάβουμε καλύτερα τη χρήση τους ακολουθούν τρία παραδείγματα.

Contents 1 Πρόγραμμα 1 2 Πρόγραμμα 2 3 Πρόγραμμα 3 4 Άσκηση

Πρόγραμμα 1

Ο σκοπός του προγράμματος είναι να διαβάσει δυο ακεραίους από το πληκτρολόγιο και να τυπώσει το αποτέλεσμα:

Program Lesson2_Program1;
Var Num1, Num2, Sum : Integer;

Begin
 Write('Input number 1:'); 
 Readln(Num1);
 Write('Input number 2:');
 Readln(Num2);
 Sum := Num1 + Num2;
 Writeln('Sum :',Sum);
End.

Ακολουθήστε τα βήματα υλοποίησης του 1ου μέρους για να μεταγλωττίσετε και να τρέξετε το πρόγραμμα.

Επεξήγηση Προγράμματος

Var Num1, Num2, Sum : Integer;
Δήλωση μεταβλητών αυτό γίνετε ξεκινώντας με τη λέξη Var (variable), δηλώνουμε τα ονόματα των μεταβλητών που θα χρησιμοποιήσουμε (Num1, Num2, Sum) και στο τέλος δηλώνουμε τον τύπο των μεταβλητών (: Integer).

Readln(Num1);
Με την Readln(όνομα_μεταβλητής) το πρόγραμμα περιμένει μέχρι να δοθεί από τον χρήστη τιμή στην μεταβλητή.

Sum := Num1 + Num2;
Εδώ γίνετε εκχώρηση τιμής στην μεταβλητή Sum αφού γίνει πράξη μεταξύ των μεταβλητών Num1 και Num2.

Writeln('Sum :',Sum);
Τυπώνει την τιμή της μεταβλητής Sum.

Πρόγραμμα 2

Με τον ίδιο τρόπο μπορούμε να διαβάσουμε και συμβολόσειρές από το πληκτρολόγιο.

Program Lesson2_Program2;
Var name : String;

Begin
 Write('What is your Name ?:');
 Readln(name);
 Writeln('Hello, ',name,' are you OK ?');
End.

Πρόγραμμα 3

Εμβαδόν κύκλου

Program Lesson2_Program3;
Const pi: Real = 3.14;
Var rad,area : Real;

Begin
 Write('Radius:');
 Readln(rad);
 area := pi*(rad*rad);
 Writeln('Area :',area :6 :2);
End.

Στο τρίτο μέρος θα μελετήσουμε τις προτάσεις ελέγχου στη Pascal.

Άσκηση

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

             Αριθμός1+Αριθμός2+Αριθμός3
Μέσος όρος = ---------------------------
                          3