обыкновенные несократимые дроби Опции

[zetsokol]

Помогите решить задачку


Вывести в порядке возрастания все обыкновенные несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 15. Массив при этом заводить не следует.

Сообщение отредактировано: zetsokol - 11.01.2006 14:18

[klem4]

Ты хоть понял что написал ?

Вывести в порядке возрастания все обыкновенные несократимые дроби обыкновенные несократимые дроби

Приведи пример какая дробь является не сократимой, а какая сократимой, кстатит где-то я видел уже такю тему .. Найду, закрою.

Сообщение отредактировано: klem4 - 11.01.2006 14:21

[Lapp]

Сделай цикл по знаменателю, от 1 до 15, по i
Внутренний цикл по числителю, от 1 до i.
Делай дробь и сравнивай ее со всеми, которые уже нашел. Если она равно одной из тех, что уже есть - отбросить ее. Если нет - сохранить.
Только без массива тут не обойтись..

[klem4]

Только без массива тут не обойтись..

Ну почемуже, например можно юзать файл

[Lapp]

Ну почемуже, например можно юзать файл

нет, ну можно , конечно... Давай проверять на сократимость.
Типа так

 
  y:=false;
  for k:=2 to j do y:=y or ((i div k*k)=i)and(j div k*k));
  if not y then WriteLn(j,'/',i);

[zetsokol]

А можно всю программу увидеть???