Path: utzoo!utgpu!news-server.csri.toronto.edu!qucdn!spraggej
Organization: Queen's University at Kingston
Date: Monday, 4 Feb 1991 10:09:34 EST
From: John G. Spragge <SPRAGGEJ@QUCDN.QueensU.CA>
Message-ID: <91035.100935SPRAGGEJ@QUCDN.QueensU.CA>
Newsgroups: comp.lang.pascal
Subject: Re: Procedures and functions as parameters to other procs/funcs (TP 6.
References:  <1991Feb4.141222.28662@odin.diku.dk>

Try this:

Type x = FUNCTION (x : integer) : INTEGER;

FUNCTION a (x : INTEGER) : INTEGER;

BEGIN
   a := x * 2;   { or anything else you want }
END;

FUNCTION b ((x : INTEGER) : INTEGER;

BEGIN
   b := x DIV 2; { or anything you want }
END;

PROCEDURE c (f : x);

BEGIN
   WRITELN (f (10));
END;

BEGIN
   c (a);
   c (b)
END.

That should work (let me know if it doesn't).

disclaimer: Queen's University merely supplies me with computer services, and
            they are responsible for neither my opinions or my ignorance.

John G. Spragge