高中函数中的全部定义有哪些？请说一下吗？

本人知道的也不多，有两个：
（1）递归求阶乘：
function jc(n:integer);longint;
var k:integer;
t:longint;
begin
t:=1;
for K:=2 to n do t:=t*k
jc:=t;
end;
(2)求递归面积：
function area(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
area:=sqrt(p*(p-a)*(p-b)*(p-c));
end;