VPF::Перевод кода паскаль на c++ - Форум программистов

a1exnet

Дата 19.1.2014, 14:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Ребятки, помогите перевести данный код на паскале в С++

Код


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 x,y,g,p,k1,k2,a,b:integer;

begin
  writeln('Введите g_p:');
  readln(g,p);
  writeln('Введите a_b');
  readln(a,b);
  x:=st(g,a,p);
  y:=st(g,b,p);
  
  k1:=st(y,a,p);
  k2:=st(x,b,p);
  
  if k1=k2 then write('Yes :-)') else write('No :(');
end.

Фантом

Дата 19.1.2014, 14:55 (ссылка)

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

Загрузка ...

Вы это прекратите!

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

Репутация: 7
Всего: 49

Совсем "подстрочный" перевод выглядит так:

Код


#include<iostream>
using namespace std;

int st(int x,int e1, int n)
{
  int i,k1;
  k1=x;
  for(i=2;i<=e1;++i)
  {
    k1=k1*x;
    k1=k1%n;
  }
  return k1;
}

int main()
{
  int x,y,g,p,k1,k2,a,b;
  cout << "Введите g_p:" << endl;
  cin >> g >> p;
  cout << "Введите a_b" << endl;
  cin >> a >> b;
  x=st(g,a,p);
  y=st(g,b,p);
  
  k1=st(y,a,p);
  k2=st(x,b,p);
  
  if(k1==k2) cout << "Yes :-)" << endl;
  else cout << "No :(" << endl;
}

Добавлено через 6 минут и 28 секунд
Менее подстрочный (поскольку и исходная программа на Паскале сильно избыточна):

Код


#include<iostream>
using namespace std;

int st(int x,int e1, int n)
{
  int k1=x;
  for(int i=1;i<e1;++i) k1=(k1*x)%n;
  return k1;
}

int main()
{
  int g,p,a,b;
  cout << "Введите g_p:" << endl;
  cin >> g >> p;
  cout << "Введите a_b" << endl;
  cin >> a >> b;
  cout << (st(st(g,b,p),a,p)==st(st(g,a,p),b,p) ? "Yes :-)" : "No :(") << endl;
}

a1exnet

Дата 19.1.2014, 15:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Фантом, спасибо большое!

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