дроби, напечатать по возрастанию Опции

[Client]

помогите пожалуйста
Задача: Найти и напечатать в порядке возрастания все простые несократимые дроби заключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами-числителем и знаменателем). т.е. 1/2,1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5...
Вот с поиском несократимых дробей постараюсь сам, а вот потом чтобы по возрастанию-нет идеи. вообщем надо циклом, но можно и массивом(если так легче будет).

[Boss]

2Malice если не сложно кинь пример с рекурсией, а то через массив сделал, но много переменных затратил..

[Malice]

2Malice если не сложно кинь пример с рекурсией, а то через массив сделал, но много переменных затратил..

Вот так примерно:

procedure f (a,b,c,d:integer; n,m:integer);
begin
if n>m then exit;
 if ((a+c)<=m) and ((b+d)<=m) then 
   begin
      f(a,b,a+c,b+d,n+1,m);
      write (a+c,'/',b+d,'  ');
      f(a+c,b+d,c,d,n+1,m);
 end;
end;

Параметры - первая граница a/b, вторая c/d (для первого вызова 0,1 и 1,1 соответственно), n - текущий порядок ряда (1 для первого вызова), m - максимальный.