Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.91
sshasshok
0 / 0 / 0
Регистрация: 10.06.2011
Сообщений: 1
#1

Метод факторизации Полларда (p-1) - Pascal ABC

14.06.2011, 00:58. Просмотров 1384. Ответов 1
Метки нет (Все метки)

Весь форум облазил но не нашёл, пришлось зарегаться.

Очень нужно реализовать в Pascal ABC метод факторизации Полларда (p-1) по данному алгоритму:

1. Генерируем любое число a в диапазоне от 2 до n - 1
2. Берем начальное значение e = 1
3. Увеличиваем значение exp на единицу
4. Вычисляем x = a^e mod n
5.Проверяем, имеют ли x - 1 и n наибольший общий делитель
6. Если на предыдущем шаге было получено значение 1, то возращаемся на п. 3
7. Выводим значение полученное в п. 5 в качестве результата

Никак не получается до ума довести, помогите пожалуйста, очень надо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2011, 00:58
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Метод факторизации Полларда (p-1) (Pascal ABC):

Решение систем линейных уравнений методом LU факторизации - Pascal
Здравствуйте уважаемые нужна помощь. Разработать программу для решения системы линейных уравнений по методу, метод LU– факторизации,...

Решение нелинейных уравнений: модифицированый метод Ньютона (метод секущих) - Pascal
имеется исходник программы для решения методом Ньютона (метод касательных), требуется видоизменить для получения исходника под...

Метод частных Рэлея или метод скалярных произведений для нахождения собственных чисел и векторов - Pascal
Помогите пожалуйста перевести в Pascal, буду очень благодарен #include<stdio.h> #include<math.h> void Input(int n,int A) { ...

Задача на метод деления пополам и метод итераций - Pascal
Определить аналитическим путем точное решение данного уравнения: a*x+b=0 на отрезке -5≤x≤5. Принять при этом a=-0.5, b=-1. Решить это...

Реализовать метод Мака или венгерский метод - Pascal
Плиз помогите написать программу на паскаль которая реализует метод Мака или Венгерский алгоритм (задачи о назначениях) буду очень...

Метод сортировки как метод подсчета - Pascal
Существует такой метод сортировки как метод подсчета. Метод заключается в том, что каждый элемент массива сравнивается со всеми...

1
Zanexess
111 / 84 / 28
Регистрация: 22.10.2010
Сообщений: 227
14.06.2011, 14:46 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var i,a,n:integer;
//
function NOD(x,y:integer):integer;
 begin
  if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;
//
function pol(e:integer):integer;
var x:integer; k:real;
begin
 k:=exp(e*ln(a));
 x:=round(k) mod n;
 pol:=nod(x-1,n);
end;
//
begin
Read (n); i:=0; a:=random(n)+2;
 Repeat
   inc(i); pol(i);
 until pol(i)<>1;
Writeln (pol(i));
end.
Не знаю что там нужно вводить было, но вот так.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2011, 14:46
Привет! Вот еще темы с ответами:

Необходимо реализовать алгоритм Полларда (алгортим факторизации числа n) - C#
Доброго времени суток) Необходимо реализовать алгоритм Полларда (алгортим факторизации числа n). public partial class Form1 : Form ...

ро-метод Полларда - C++
Здравствуйте! Задание такое: Реализовать ро-метод Полларда факторизации челых чисел на примере 32 битовых чисел. Давно есть код сделаный на...

ро-метод Полларда (факторизация числа) - Delphi
Доброго времени суток! Необходимо написать ро-алгоритм Полларда. Взял Кнута с его &quot;Искусство программирования&quot;, реализовал. Но программа...

ро-метод Полларда дискретного логарифмирования - C (СИ)
Добрый день. Задача: Элемент a имеет порядок q по модулю p. Найти дискретный логарифм x - такое целое число 1&lt;x&lt;q, что a^x = b (mod...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru