Simonepascal函数
的有关信息介绍如下：
1.
program df;
var n:integer;
begin
readln(n);
writeln(abs(n));
end.
2.
program df;
var n:integer;
function fac(x:integer):longint;
var i,j:integer;
begin
j:=1;
for i:=2 to x do
j:=j*i;
fac:=j;
end;
begin
readln(n);
writeln(fac(n));
end.
1.
function getabs(i:integer):integer;
begin
if i>=0 then getabs:=i
else getabs:=-i;
end;
取绝对值可以直接用系统自带的函数abs()来实现
2.
function fac(i:integer):longint;
var
a:integer;
l:longint;
begin
l:=1;
for a:=2 to i do
l:=l*a;
fac:=l;
end;
当然阶乘也可以用递归的方式实现，不过较烦琐且运行速度较慢，不推荐使用，不过给出代码：
function fac(i:integer):longint;
begin
if i=1 then fac:=1
else fac:=fac(i-1)*i;
end;
1
function myabs(n:integer):integer;
begin
if n>=0 then result:=n else result:=-n
end;
2
function fac(n:integer):integer;
begin
if n>1 then result:=n*fac(n-1) else result:=n
end;
上面的代码在TURBO PASCAL下是可以的，如果你的系统说不认识RESULT，那么你使用函数名称替代。
