Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
KDE2inFreeBSD
3 / 3 / 1
Регистрация: 19.01.2013
Сообщений: 113
1

Алгоритм Евклида

26.02.2013, 15:39. Просмотров 661. Ответов 0
Метки нет (Все метки)

Как осуществить его реализацию. (рис 1)
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button3Click(Sender: TObject);
var
j,r,r1,r2,b,t1,q,t2,t,b1:integer;
begin
r1:=StrToInt(Edit9.Text);
r2:=StrToInt(edit10.text);
t1:=0;
t2:=1;
j:=1;
 
While r2>0 do
begin
 q:=r1 div r2;
 r:=r1-q*r2;
 r1:=r2; r2:=r;
 t:=t1-q*t2;
 t1:=t2; t2:=r;
stringgrid2.Cells[1,j]:=IntToStr(r1);
stringgrid2.Cells[2,j]:=IntToStr(r2);
stringgrid2.Cells[3,j]:=IntToStr(r);
stringgrid2.Cells[4,j]:=IntToStr(t1);
stringgrid2.Cells[5,j]:=IntToStr(t2);
stringgrid2.Cells[6,j]:=IntToStr(t);
j:=j+1;
end;
 
  if (r1=1) then
  b1:=t1;
работает но как то не так.
Т.е. есть задача с готовыми ответами. По этому алгоритму выдается совершенно иные значения.
Кликните здесь для просмотра всего текста

Найти мультипликативную инверсию 11 в Z26.

Решение

Мы используем таблицу, аналогичную одной из тех, которые мы уже применяли прежде при данных r1 = 26 и r2 = 11. Нас интересует только значение t.
q r1 r2 r t1 t2 t
2 26 11 4 0 1 -2
2 11 4 3 1 -2 5
1 4 3 1 -2 5 -7
3 3 1 0 5 -7 26
1 0 -7 26


НОД (26, 11) = 1, что означает, что мультипликативная инверсия 11 существует. Расширенный алгоритм Евклида дает t1 = (–7).

Мультипликативная инверсия равна (–7) mod 26 = 19. Другими словами, 11 и 19 — мультипликативная инверсия в Z26.

рис 2 что получается
1
Миниатюры
Алгоритм Евклида   Алгоритм Евклида  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2013, 15:39
Ответы с готовыми решениями:

Алгоритм Евклида
Требуется с помощью процедур и функций решить задачу: Даны натуральные числа а и b. Найти их...

Алгоритм Евклида
С помощью алгоритма Евклида (не расширенного) пытаюсь вычислить НОД: function NOD(a: integer; n:...

Алгоритм Евклида со сдвигом битов
Составить программу вычисляющую НОД двух чисел по алгоритму Евклида. Пусть m>=n - два целых числа,...

Необходимо реализовать расширенный алгоритм Евклида
Добрый вечер человеки! Необходимо реализовать расширенный алгоритм Евклида.Имеется реализованный...

Найти наибольший общий делитель - алгоритм Евклида
Найти наибольший общий делитель - алгоритм Евклида.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2013, 15:39

алгоритм Евклида. Соотношение Безу как сделать?
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Расширенный алгоритм Евклида для вычисления мультипликативного обратного
Расширенный алгоритм Евклида для вычисления мультипликативного обратного.

Перевод чисел из одной системы счисления в другую используя алгоритм Евклида.
здравствуйте! можете помоч с кодом? Перевод чисел из одной системы счисления в другую используя...


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

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

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