SSL 1105——【USACO 2.1】顺序的分数（递归+二分）

Description

输入一个自然数N　
请写一个程序来增序输出分母小于等于N的最简真分数

Input

单独的一行　一个自然数N(1..160)

Output

每个分数单独占一行
最后一行有回车

Sample Input

5
Sample Output

0/1
1/5
1/4
1/3
2/5
1/2
3/5
2/3
3/4
4/5
1/1

---

这题用递归和二分做。
每一次递归将分母和和分子和求出来，如果分子和大于分母和就退出。
不然，就继续递归。

---

代码如下：

var  n:longint;

procedure found(x1,y1,x2,y2:longint);
var mx,my:longint;
begin
    mx:=x1+x2;
    my:=y1+y2;
    if my>n then exit;
    found(x1,y1,mx,my);
    writeln(mx,'/',my);
    found(mx,my,x2,y2);
end;

begin
    readln(n);
        writeln('0/1'); 
    found(0,1,1,1);
        writeln('1/1');
end.