Συναρτήσεις

Η 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.