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.