Functions - Άσκηση 1 - Υπολογισμός μεγίστου με χρήση συνάρτησης

Ετικέτες: 
Να κατασκευάσετε πρόγραμμα σε Pascal το οποίο πραγματοποιεί τα παρακάτω:
  • Διαβάζει τρεις ακέραιες τιμές.
  • Χρησιμοποιεί συνάρτηση με όνομα ΜΑΧ η οποία δέχεται τους τρεις αριθμούς και επιστρέφει το μέγιστο.
  • Εμφανίζει με κατάλληλο μήνυμα το μέγιστο αριθμό.
Παρατήρηση: Να κατασκευάσετε τη συνάρτηση ΜΑΧ
 
Λύση: 
program megistos;
var
m, a, b, c:integer;
Function MAX(a, b ,c:integer):integer;
begin
if (a>b) and (a>c)
    then MAX:=a
    else if (b>a) and (b>c)
        then MAX:=b
        else MAX:=c;
end;
begin
writeln('Δώσε τρεις αριθμούς....:');
readln(a, b, c);
m:= MAX(a, b, c);
writeln('Ο μεγαλύτερος αριθμός είναι το...', m);
end.
 
Παρατηρήσεις: 
Χρησιμοποιούμε τη συνάρτηση MAX για να βρούμε το μέγιστο από τρεις ακεραίους, επομένως ο τύπος της συνάρτησης θα είναι επίσης ακέραιος επειδή επιστρέφει στο όνομά της το μεγαλύτερο από τους τρεις αριθμούς. Μέσα στη συνάρτηση έχουμε και μια δομή πολλαπλών επιλογών με την εντολή IF χρησιμοποιώντας και λογικούς τελεστές. Στις συνθήκες της πολλαπλής επιλογής πρέπει οπωσδήποτε να βάλουμε παρενθέσεις. Το μέγιστο μεταφέρετε από την συνάρτηση και αποθηκεύεται πάνω στη μεταβλητή m. Θα μπορούσαμε φυσικά να είχαμε γράψει κατευθείαν την εντολή: writeln ('Ο μεγαλύτερος αριθμός είναι το...',MAX(a,b,c));, η οποία δίνει ακριβώς το ίδιο αποτέλεσμα.