Question

pascal 中return的用法

Answer 1

Free Pascal 可以用exit表示C语言的return
TP等老版本的Pascal则不可以
这时，只能先对函数名赋值，然后再exit;。

如C的：
int f(int a) {
if (!(a&1)) return a;
return a<<1;
}

对应可以写成
function f(a:integer):integer;
begin
if not (a and 1) then f:=a
else f:=a shl 1;
end;

Answer 2

return 在pascal中用exit
function tmp(a:integer):integer;
begin
exit(5);
{相当于tmp：=5；exit；}
end;