pascal函数

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:=ji;

fac:=j;

end;

begin

readln(n);

writeln(fac(n));

end

前趋：PRED（X）：取整数X的前一个数

后继：SUCC（X）：取整数X的后一个数

绝对值：ABS（X）：同数学概念

平方：SQR（X）：同上

奇偶：ODD（X）：判断奇偶

正弦，余弦，反正切，对数与数学表达式一样

我来满足一下lz的好奇心啊，顺便提升我的英语水平，这些词的词性不统一啊，你就将就着看吧。一般能用到的就有这些：

abs(x) f absolute value

chr(x) f char

dec(x) p decrease

eof(f) f end of file

eoln(f) f end of line

exp(x) f exponent

frac(x) f fraction

int(x) f integer

inc(x) p increase

ln(x) f logarithms

ord(c) f order

pos(s/c,s) f position

sqr(x) f square

sqrt(x) f square root

str(x,s) f string

succ(x) f succeeding

trunc(x) f truncate

val(s,r,p) p value

没听懂不过我想你应该是想要无限的参数？

要这样弄还真不简单

不能确保无限多，但足够你用了

定义数组

type

a=array[-43886064000000]of string;

function sb(b:a):string;

Begin

End;

BEgin

End

已经最大了，不能再大了，希望楼主看在我逐位试数，终于试出pascal的底线份上，采纳我吧~