Question

pascal递归问题，第十六届信息学奥林匹克竞赛普及组阅读程序第三题，为什么第一题答案是1，第二个答案是4

const
num = 5;
var
n: integer;
function r(n : integer) : integer;
var
i : integer;
begin
if n <= num then
begin
r := n;
exit;
end;
for i :=1 to num do
if r(n-i) < 0 then
begin
r:=i;
exit;
end;
r:=-1;
end;
begin
readln(n);
writeln(r(n));
end.
(1)
输入:7
输出：__________(4分)
(2)
输入 16
输出：__________(4分)

Answer 1

递归类型的题最好的解题方法是列表法，所以：
n的值 r的值
1 1 ｛由于题目说了if n<=num then r:=n 所以前五个的值就出来了｝
2 2
3 3
4 4
5 5
6 -1 ｛从第六个起，就要开始循环了，向前找5个数，如果都不小于1，r（6）就是-1｝
7 1 ｛由于7的前一个值就小于一，所以r（7）就等于1｝
8 2
9 3
10 4
11 5
12 -1
13 1
14 2
15 3
16 4
所以答案就是1和4

Answer 2

输出：1
输出：4