VPF::наличие общего простого множителя у трех чисел

motorway

Дата 9.8.2009, 23:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Нужна функция, которая для трех чисел определяет, есть ли у них общий простой множитель в разложении на простые числа.

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

Russian Pascal Developer Network - Сеть разработчиков на языке программирования Pascal/Object Pascal
Форум Delphi/Kylix, Free Pascal Compiler/Lazarus, PascalABC.NET
Онлайн-кинотеатр

Avrely

Дата 10.8.2009, 00:30 (ссылка)

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

Загрузка ...

Бывалый

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

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

Написал на сонную голову, но вроде работает.

Код


<?
//есть массив
$arr = array(0 => 15, 1 => 30, 2 => 5);
rsort($arr, SORT_NUMERIC); //отсортировали элементы массива

function nod($x, $y)
{
    if(($x % $y) == 0)
    {
    $nod = $y;
     }
    else
    {
     $z = $y;
     $y = $x % $y;
     $x = $z;
     $nod = nod($x,$y);    
    } 

    return $nod;    
}
$nod1 = nod($arr[0], $arr[2]);
    if($nod1)
    {
    $nod2 = nod($arr[1], $nod1);
     if($nod2)
     { echo "НОД чисел равен $nod2";}
     else
     { echo "НОД отсутствует";}
    }
    else
    { echo "НОД отсутствует";}
    ?>

Это сообщение отредактировал(а) Avrely - 10.8.2009, 00:32

motorway

Дата 10.8.2009, 01:24 (ссылка)

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

Загрузка ...

Опытный

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

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

спасибо, попробую

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

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