Форум программистов, компьютерный форум CyberForum.ru

Перевести паскаль в c++ - C++

Восстановить пароль Регистрация
 
alex-net
3 / 3 / 1
Регистрация: 27.11.2012
Сообщений: 171
19.01.2014, 15:36     Перевести паскаль в c++ #1
ребят, помогите перевести данный код на с++

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
function func(d:integer):boolean;
var i:integer;
begin
    result:=true;
    for i:=2 to d-1 do
       if d mod i = 0 then 
         begin 
            result:=false;
            break;
         end;
end;
 
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;
 
var i,p,q,f,n,cc,x,y,e1,d:integer;
 
begin
   write('введите p и q ');
   readln(p,q);
   n:=p*q;
   writeln('n = ',n);
   f:=(p-1)*(q-1);
   write('введите e ');
   readln(e1);
   d:=1;
   while(cc = 0) do
     begin
        d:=d+1;
        if (d*e1) mod f = 1 then 
          {if func(d div e1) then}
               begin cc:=1;end;
     end;
   writeln('e & d = ',e1,' ',d);
   write('введите x ');
   readln(x);
   y:=st(x,e1,n);
   writeln('зашифрованное = ',y);
   x:=st(y,d,n);
   write('расшифрованное = ',x);
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2014, 15:36     Перевести паскаль в c++
Посмотрите здесь:

C++ перевести с С на паскаль
C++ Алгоритм на С/С++ не могу перевести в Паскаль!
C++ перевести с Паскаль
C++ перевести программу из языка Паскаль в С++
C++ Перевести с Паскаль на С++
Перевести с паскаль на С++ C++
C++ Перевести с Паскаль на С++
C++ Перевести код Паскаль на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 15:21. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru