Funktionen

Funktionen

Funktionen, ähnlich wie Prozeduren, liefern aber einen Ergebniswert zurück. Bei der Deklaration einer Funktion wird das reservierte Wort PROCEDURE durch FUNCTION ersetzt, und es muß der Typ des Funktionsergebnisses angegeben werden. Nach der Parameterliste wird dazu ein Doppelpunkt, gefolgt von dem Ergebnistyp, angegeben.

Im Anweisungsteil der Funktion muß das Ergebnis der Funktion zugewiesen werden. Dabei wird der Funktionsname wie ein Variablenname benutzt, also ohne Argumentliste.

Wichtige arithmetische Funktionen, die bei den Standardfunktionen fehlen, können folgendermaßen definiert werden:

   
    FUNCTION tan(x: real): real; 
    BEGIN
       tan:=sin(x)/cos(x)
    END;  

    FUNCTION potenz(x,y: real): real; 
    BEGIN
       potenz:=exp(y*ln(x))
    END;  

    FUNCTION sinh(x: real): real; 
    VAR hilf: real; 
    BEGIN
       hilf:=exp(x); 
       sinh:=(hilf-1.0/hilf)/2.0
    END;  

    FUNCTION cosh(x: real): real; 
    VAR hilf: real; 
    BEGIN
       hilf:=exp(x); 
       cosh:=(hilf+1.0/hilf)/2.0
    END; 

    FUNCTION tanh(x: real): real; 
    BEGIN
       tanh:=sinh(x)/cosh(x)
    END;