ΚΕΦΑΛΑΙΟ 12

ΣΥΝΑΡΤΗΣΕΙΣ (FUNCTION)

Δουλεύουν όπως οι διαδικασίες αλλά οι συναρτήσεις επιστρέφουν μια τιμή στο κυρίως πρόγραμμα μέσω του ονόματος της

Παράδειγμα 1 (Συνάρτηση με όνομα f1, με είσοδο ένα ακέραιο αριθμό και έξοδο ακέραιο αριθμό)

Program Syn1;

var x:integer;

   function f1(y:integer):integer;

   begin

   f1:=(2*y*y)+3*y-2;             {  f1(y)=2y² + 3y -2  }

   end;

BEGIN

write('Δώσε την τιμή του x: ');

readln(x);

writeln('Το αποτέλεσμα είναι : ', f1(x));

END.

Μέσα στο πρόγραμμα μας με όνομα Syn1 έχουμε δημιουργήσει μια συνάρτηση με όνομα f1. Η συνάρτηση υπολογίζει την δευτεροβάθμια εξίσωση f1(y)=2y² + 3y -2. Την συνάρτηση την καλούμε μέσα στο κυρίως πρόγραμμα με το όνομα της f1(x) και με μια είσοδο το x. Η συνάρτηση μας επιστρέφει το αποτέλεσμα της λύσης της δευτεροβάθμιας εξίσωσης

Παράδειγμα 2 (Συνάρτηση με όνομα f1, με είσοδο τρεις ακέραιους αριθμούς και έξοδο πραγματικό αριθμό)

Program Syn2;

var x,y,z:integer;

   function MO(x1,y1,z1:integer):real;

   begin

   MO:=(x1+y1+z1)/3;

   end;

BEGIN

write('Δώσε τον 1ο Βαθμό: ');

readln(x);

write('Δώσε τον 2ο Βαθμό: ');

readln(y);

write('Δώσε τον 3ο Βαθμό: ');

readln(z);

writeln('Ο Μέσος Όρος είναι : ', MO(x,y,z):0:2);

readln;

END.

Μέσα στο πρόγραμμα μας με όνομα Syn2 έχουμε δημιουργήσει μια συνάρτηση με όνομα ΜΟ. Η συνάρτηση υπολογίζει το μέσο όρο τριών αριθμών. Την συνάρτηση την καλούμε μέσα στο κυρίως πρόγραμμα με το όνομα της ΜΟ(x,y,z) και με τρεις εισόδους. Η συνάρτηση μας επιστρέφει το μέσο όρο των τριών αριθμών που δέχεται ως είσοδο.