Διαδικασίες και συναρτήσεις

Διομήδης Σπινέλλης
Τμήμα Διοικητικής Επιστήμης και Τεχνολογίας
Οικονομικό Πανεπιστήμιο Αθηνών
dds@aueb.gr

Διαδικασίες

Ορίζοντας μια διαδικασία (procedure) μπορούμε να ομαδοποιήσουμε εντολές και να τους δώσουμε ένα όνομα με το οποίο να τις χρησιμοποιούμε.
Μια διαδικασία ορίζεται μετά τις μεταβλητές του προγράμματος ως εξής:
```
procedure όνομα;
begin
	εντολή;
	εντολή;
	...
end;
```
Μετά τον ορισμό της μπορούμε να τη χρησιμοποιήσουμε ως εντολή της Pascal γράφοντας απλώς το όνομά της.

Παράδειγμα:

program PrintSquare;
var
	lines : integer;

procedure SquareEnd;
begin
	writeln('********')
end;

procedure SquareMiddle;
begin
	writeln('*      *')
end;

begin
	SquareEnd;
	lines := 1;
	while lines &lt; 5 do
	begin
		SquareMiddle;
		lines := lines + 1
	end;
	SquareEnd
end.

Συναρτήσεις

Η Pascal μας επιτρέπει να ορίσουμε μια συνάρτηση (function) που να παράγει τα αποτελέσματα που εμείς θέλουμε.

Μια συνάρτηση ορίζεται μετά τις μεταβλητές του προγράμματος ως εξής:

function όνομα(όρισμα : τύπος1) : τύπος2;
begin
	όνομα := έκφραση με βάση το όρισμα
end;

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

Παράδειγμα:

program PrintCubes;
var
	count : integer;

procedure Cube(x : integer) : integer;
begin
	Cube := x * x * x
end;

begin
	count := 1;
	while count &lt; 5 do
	begin
		Writeln(count, '^3=', cube(count));
		count := count + 1
	end
end.

Βιβλιογραφία

Θ. Αλεβίζου, Α. Καμπουρέλη Μαθήματα προγραμματισμού: Εισαγωγή με τη γλώσσα Pascal. σ. 159-191 Θυμέλη, 1995.

Doug Cooper and Michael Clancy. Oh! Pascal, pages 73–90. W. W. Norton & Company, second edition, 1985.

Ασκήσεις

Γράψτε ένα πρόγραμμα που να τυπώνει τα παραγοντικά των αριθμών από το 0 ως το 7. Το παραγοντικό να υπολογίζεται από μια συνάρτηση.

Περιεχόμενα