永发信息网

Pascal里怎样定义过程?

答案:4  悬赏:40  手机版
解决时间 2021-02-24 02:46
快!我要用
最佳答案
procedure ***(参数1:类型;参数2:类型……);
var
……;
begin
end;

例如:交换2个数据,
procedure change(x,y:integer);
var
k:integer;
begin
k:=x;
x:=y;
y:=k;
end;
如若x,y值在过程中改变,而主程序要用改变完了的,就要在该参数前加var
即 procedure change(var x,y:integer);
全部回答
procedure XXX; var begin end;
你应该用type定义一个类型,例如: type arr=array [1..10] of integer; function abc(h:arr):integer; begin end;
类似函数定义 只是function换成procedure 过程没有返回类型。 过程可以没有参数。 procedure XXX(参数(可无)); var //变量定义(可无) begin 过程内容 end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
台式不能上网,显示已经连接,但是就是上不了
滚齿机加工斜齿圆柱齿轮时,工件的展成运动和
苏轼念奴娇赤壁怀古配副对联
求悲怆奏鸣曲第三乐章mp3,纯钢琴的,谢啦
车开了40万公里急加油提不起速怎么!
画者·油画我想知道这个在什么地方
高人知道一部97年左右讲述的好像是民国时期的
数列an中,a1=3,an+1=an/2an+1,则an=?
岛屿是什么
金顺高档刘氏门业这个地址在什么地方,我要处
USB转串口的方式有几种?
线性代数方程组零解和非零解问题如果这题问的
用C语言求做一个求和值的程序
昆山市会计从业资格什么时候报名
安慰家里女朋友和家人关系越走越近
推荐资讯
压缩软件中哪个格式压缩率最高
苗记重庆骨汤串串香在哪里啊,我有事要去这个
美人鱼怎么繁衍后代
fold mrna expression怎么会有负值
怎样查邮政储蓄卡的余额
型体乐瘦身要吃多久才见效?
宏扬房产地址有知道的么?有点事想过去
广东省互联网协会在什么地方啊,我要过去处理
函数y=根号(2x—1)的定义域是?
厦门市集美街道办在什么地方啊,我要过去处理
铭和商务楼-停车场我想知道这个在什么地方
希腊历史最重要的俩场战争
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?