Pascal里的函数或过程 30
C里面的函数可以按引用传递在Pascal里应该也有否则一个函数的参数一定是被当做一个数值来使用但是:x:=3;Read(x)此时x显然不是被当做3来用的当然也不是被当做地...
C里面的函数可以按引用传递 在Pascal里应该也有
否则一个函数的参数一定是被当做一个数值来使用
但是:x:=3; Read(x) 此时x显然不是被当做3来用的
当然也不是被当做地址使用 否则就应该写成Read(@x)了
我觉得这应该就是Pascal里的按引用传递
请问大犇 应该怎么写? 或者告诉我Pascal所有的函数过程存在哪里也行 我去瞅瞅Read是怎么写的 3q3q3q 展开
否则一个函数的参数一定是被当做一个数值来使用
但是:x:=3; Read(x) 此时x显然不是被当做3来用的
当然也不是被当做地址使用 否则就应该写成Read(@x)了
我觉得这应该就是Pascal里的按引用传递
请问大犇 应该怎么写? 或者告诉我Pascal所有的函数过程存在哪里也行 我去瞅瞅Read是怎么写的 3q3q3q 展开
4个回答
展开全部
procedure swap(x,y:integer);
begin
...
end;
这个改变x,y的值,回到主程序后变量值不变,
procedure swap(var x,y:integer);
begin
...
end;
这个改变x,y的值,回到主程序后变量值改变,
同理,
function swap(x,y:integer):integer;
begin
...
end;
这个改变x,y的值,回到主程序后变量值不变,
function swap(var x,y:integer):integer;
begin
...
end;
这个改变x,y的值,回到主程序后变量值改变,
begin
...
end;
这个改变x,y的值,回到主程序后变量值不变,
procedure swap(var x,y:integer);
begin
...
end;
这个改变x,y的值,回到主程序后变量值改变,
同理,
function swap(x,y:integer):integer;
begin
...
end;
这个改变x,y的值,回到主程序后变量值不变,
function swap(var x,y:integer):integer;
begin
...
end;
这个改变x,y的值,回到主程序后变量值改变,
展开全部
procedure swap(x,y:integer); //按值传递 值形参
procedure swap(Var x,y:integer) ; //按址传递 变量形参 [C++的引用]
多个var区别就大了
http://www.lnedu.net/oblog31/user1/20/archives/2005/776.html
procedure swap(Var x,y:integer) ; //按址传递 变量形参 [C++的引用]
多个var区别就大了
http://www.lnedu.net/oblog31/user1/20/archives/2005/776.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2009-10-16
展开全部
函数与过程作为程序的一个子程序
是程序处理数据的部分.
只是不放在主程序的位置以减小对内存的调用.
READ一般作为主程序中读入数据的步骤.
如:
program dd;
var
a:integer;
function f(参数:类型):类型;
procedure;
begin
read(a);
end.
函数与过程均在 程序的说明部分编写.
是程序处理数据的部分.
只是不放在主程序的位置以减小对内存的调用.
READ一般作为主程序中读入数据的步骤.
如:
program dd;
var
a:integer;
function f(参数:类型):类型;
procedure;
begin
read(a);
end.
函数与过程均在 程序的说明部分编写.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
完全可以实现。
可以再变量的声明部分加上一个指向变量的指针,
如果需要俺地址传递变量就可以
用指针来实现对变量的访问
function(var a:integer; p:^integer);
begin
p = ^a;
end;
…………
完了自己搞吧
可以再变量的声明部分加上一个指向变量的指针,
如果需要俺地址传递变量就可以
用指针来实现对变量的访问
function(var a:integer; p:^integer);
begin
p = ^a;
end;
…………
完了自己搞吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询