求大师讲解一下procedure和function的特点、
答案:2 悬赏:50
解决时间 2021-02-23 02:09
- 提问者网友:话酸浅沫
- 2021-02-22 05:50
就是想了解一下,什么时候用procedure会方便一些,什么时候用function会方便一些?一般都用什么啊?
最佳答案
- 二级知识专家网友:傲娇菇凉
- 2021-02-22 06:02
需要返回值就function,否则就procedure,其他没太多不同了
全部回答
- 1楼网友:夢想黑洞
- 2021-02-22 07:10
var a,b:array[0..50]of integer;
i,k,p,n:integer;
begin
readln(n);
for i:=1 to 50 do a[i]:=1;
b:=a;
for i:=1 to n do
begin
read(k);
if odd(k) then a[(k+1)div 2]:=0
else b[k div 2]:=0;
end;
k:=0;
for i:=1 to 50 do
begin
if a[i]=1 then
begin
inc(a[i],a[i-1]);
if a[i]>k then begin k:=a[i]; p:=i end;
end;
if b[i]=1 then
begin
inc(b[i],b[i-1]);
if b[i]>k then begin k:=b[i]; p:=-i end;
end;
end;
if p>0 then begin while a[p]>0 do dec(p); p:=2*p+1 end
else begin p:=-p; while b[p]>0 do dec(p); p:=2*p+2 end;
writeln(p,' ',k);
end.
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯