VPF::[Delphi] Вывести все делители числа q

nitrak

Дата 25.12.2006, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

даны целые числа p и q.
Вывести все делители числа q
взаимно простые с числом p.
Взаимно простые числа не имеют общих делителе кроме 1

achepkunov

Дата 25.12.2006, 22:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006

Репутация: нет
Всего: 1

Найди сначала все делители q

nitrak

Дата 7.1.2007, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

Код


   VAR
p,q,d: integer;


begin
writeln(BBOD HATYPA/\bHOrO q:');readln(q);
if (q<0) then writeln('ERROR')
else
writeln(BBOD HATYPA/\bHOrO  p:');readln(p);
if (p<0) then writeln(RUS('ERROR'))
else
writeln(HAXO}l{DEHUE DE/\UTE/\Eu*');
d:=q;
while(d<>0) do
begin
if (q mod d = 0) then
                 begin
                 writeln('',d);


                 d:=d-1;
                 end
else
 d:=d-1;

 end;
 readln;


end.

а дальше неполучается.... smile

Добавлено @ 19:10
Фигню напиал.. ща исправлю..

Код


   VAR
p,q,d: integer;


begin
writeln(wwod natyral'nogo q:');readln(q);
if (q<0) then writeln('ERROR')
else
writeln(wwod natural'nogo p:');readln(p);
if (p<0) then writeln('ERROR')
else
writeln('Naxozhdenie delitelej ');
d:=q;
while(d<>0) do
begin
if (q mod d = 0) then
                 begin
                 writeln('',d);


                 d:=d-1;
                 end
else
 d:=d-1;

 end;
 readln;


end.

Akina

Дата 7.1.2007, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 17
Всего: 454

Раскладываешь на делители P
Раскладываешь на делители Q
Из делителей P выкидываешь все, что имеются у Q
Из того что осталось собираешь все что можно собрать.

Пример

P = 180
Q = 14

Делители P:
2 2 3 3 5

Делители Q:
2 7

Делители в P, отсутствующие в Q:
3 3 5

Составляем всевозможные числа их перемножением:

3
5
9
15
45

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

achepkunov

Дата 8.1.2007, 02:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.12.2006

Репутация: нет
Всего: 1

Akina,
Ловко, только можно даже делители q не искать - если раскладывать p на простые делители, то достаточно того, чтобы на них не делился сам q.

Но лучше разложить q, поделить на все что можно p, и потом уже искать все делители уменьшенного p.

В том же примере (180 и 14) - раскладываем 14, находим 2, делим 180 на 2 до упора (2 раза получится), далее находим 7, делим получившееся 45 до упора на 7 (0 раз), получившееся 45 и раскладываем.

Добавлено @ 02:44
nitrak,

Молодец!

т.е. надо в том же цикле в районе 19 строчки вставить цикл по уменьшению p. Справишься?

Чтобы программа работала быстрее, можно еще потом внешний цикл сделать не с уменьшением d а с увеличением, и при нахождении делителя уменьшать q так же как и p.

Но сначала, из любви к красоте, взгляни на такую запись твоего цикла:

Код


    while(d<>0) do    
    begin    
        if (q mod d = 0) then    
        begin    
                 writeln('', d);    {вот здесь бужет вложенный цикл}
        end;    
        d := d-1;    
    end;

Обрати внимание на d:=d-1;.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »