怎样用递归算法输出一个数组的所有元素
怎样用递归算法输出一个数组的所有元素
展开
收起
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
1
条回答
写回答
-
静静的看着你们不排除有语法错误
顺序:
VAR
i,n:longint;
a:array[1..100]of longint;
procedure make(le:longint);
begin
if le>n then exit;
write(a[le],' ');
make(le+1);
end;
BEGIN
readln(n);
for i:=1 to n do read(a[i]);
make(1);
END.
倒序:
var
i,n:longint;
a:array[1..100]of longint;
procedure make(le:longint);
begin
if le<n then make(le+1);
write(a[le],' ');
end;
BEGIN
readln(n);
for i:=1 to n do read(a[i]);
make(1);
END.2019-07-17 22:54:37赞同 展开评论
相关问答