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

Китайская теорема. Информ. безопасность - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Исходники 2D игры http://www.cyberforum.ru/cpp-beginners/thread1075845.html
Есть ли какой-нибудь исходник полноценной 2d игры с графикой на c++, желательно rpg
C++ Метод чётных и нечётных тракспозиций for(int i = 0; i < n - 1; i+=2) if (m > m) { int tmp = m; m = m; m = tmp; swap++; } for(int i = 1; i < n -1; i+=2) http://www.cyberforum.ru/cpp-beginners/thread1075843.html
Не выполняется функция getline() C++
Добрый вечер, уважаемые программисты! Написал программу, содержащую класс, который имеет два поля: номер и имя, и два метода: ввод и вывод данных. В функции main() создаётся массив объектов этого...
Вычислить сумму ряда C++
Ребятушки, выручайте! Столкнулся с проблемой, не могу понять, как написать прогу, которая будит решать данное уравнение:...
C++ Проверьте программу http://www.cyberforum.ru/cpp-beginners/thread1075834.html
Напишите программу, запрашивающую у пользователя N вещественных чисел и выводящую на экран их среднее арифметическое. int main() { int a,n,x,z int x=0; cout <<"vvedite n="; cin>>n: for (int...
C++ Генерация псевдослучайных последовательностей Генерация псевдослучайных последовательностей, помогите, ребятки, написать программу по информ. безопасности {X}_{t+1}=(a{x}_{t}+c)modN; \tau — число, в котором происходит зацикливание, T \leq N... подробнее

Показать сообщение отдельно
alex-net
3 / 3 / 1
Регистрация: 27.11.2012
Сообщений: 173

Китайская теорема. Информ. безопасность - C++

19.01.2014, 20:49. Просмотров 542. Ответов 1
Метки (Все метки)

Китайская теорема. Помогите ребят перевести с pascal на C++

Pascal
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
var x,s:uint64;
yy,nn,mm,kk:array [1..3] of int64;
p,q,f,n,cc,y,e1,d,m0:int64;
i,j:integer;
 
function st(x,e1,n:integer):integer;
var i,k1:integer;
begin
k1:=x;
for i:=2 to e1 do
begin
k1:=k1*x;
k1:=k1 mod n;
end;
result:=k1;
end;
 
function modr(m,n:integer):integer;
var g,mm,nn:uint64;
h,kk:integer;
begin
mm:=m;nn:=n;
while (h=0) do
begin
g:=g+mm;kk:=kk+1;
if (g mod nn = 1) then
h:=1;
end;
result:=kk;
end;
 
///корень из числа аа, из степени bb
function coren(aa,bb:integer):real;
var a,b:real;
begin
a:=aa;
b:=bb;
b:=1/b;
result := Exp(b*Ln(a)); 
end;
 
begin
 
write('введите x ');
readln(x);
e1:=3;
for j:=1 to 3 do
begin
write('введите n ');
readln(n);
nn[j]:=n;
//f:=(p-1)*(q-1);
y:=st(x,e1,n);
writeln('зашифрованное = ',y);
yy[j]:=y;
end;
mm[1]:=nn[2]*nn[3];
writeln('mm = ',mm[1]);
mm[2]:=nn[1]*nn[3];
writeln('mm = ',mm[2]);
mm[3]:=nn[1]*nn[2];
writeln('mm = ',mm[3]);
m0:=nn[1]*nn[2]*nn[3];
 
kk[1]:=modr(mm[1],nn[1]);
writeln('kk = ',kk[1]);
kk[2]:=modr(mm[2],nn[2]);
writeln('kk = ',kk[2]);
kk[3]:=modr(mm[3],nn[3]);
writeln('kk = ',kk[3]);
 
s:=mm[1]*yy[1]*kk[1]+mm[2]*yy[2]*kk[2]+mm[3]*yy[3]*kk[3];
writeln('s = ',s);
x:=s mod m0;
 
writeln('расшифрованное = ',coren(x,e1));
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.