Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ обыкновенные несократимые дроби

Автор: zetsokol 11.01.2006 14:16

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


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

Автор: klem4 11.01.2006 14:18

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

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


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

Автор: lapp 11.01.2006 14:32

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

Автор: klem4 11.01.2006 14:34

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


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

Автор: lapp 11.01.2006 14:50

Цитата(klem4 @ 11.01.2006 10:34) *

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

smile.gif
нет, ну можно , конечно... Давай проверять на сократимость.
Типа так
 
  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 12.01.2006 14:11

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