其实是有的,就是Not(B:布尔型)。
如果B为True,那么返回False;
如果B为False,那么返回True。
不过原理和你写的是一样的,但既然本来就有,那为什么要再写一个?
应该是没有的,但这个函数比较容易,自己写个函数就行了; var l1:boolean; function pd(s:boolean):boolean; begin if s=true then pd:=false; if s=false then pd:=true; end; begin l1:=true; pd(l1); write(l1); end.