Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Aecttann
6 / 6 / 5
Регистрация: 19.10.2013
Сообщений: 359
1

Перевести код с языка Pascal на язык C++

18.11.2016, 01:06. Просмотров 1032. Ответов 1

Необходимо переписать данный код на 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
const eps = 1e-4;
 
function pow(x : Real; k : Integer) : Real;
var r : Real;
begin
  r := 1;
  while k > 1 do
    begin
      Dec(k);
      r := r * x;
    end;
  pow := r;
end;
  
function pRoot(x : Real; k : Integer) : Real;
var y, y0 : Real;
begin
  y := 1;
  repeat
    y0 := y;
    y := y + (x / pow(y, k-1) - y) / k;
  until abs(y - y0) < eps;
  pRoot := y;
end;
 
var a : Real;
begin
  ReadLn(a);
  WriteLn((pRoot(a,3) - pRoot(a*a+1,6))/(1 + pRoot(3+a,7)) :0:5);
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.11.2016, 01:06
Ответы с готовыми решениями:

Перевести код с языка Pascal на язык С++
var i,n,a:integer; rez:integer; begin Write('Enter digit A = ');readln(a); Write('Enter...

Перевести код с языка Pascal
Нужно сделать точно такую же программу (она была написана на питоне и переведена на паскаль) на...

Перевести этот код с языка Pascal, в язык PHP
Всем привет! Я извиняюсь. Помогите перевести этот код с языка Pascale, в языки PHP! Вот сам...

Перевести код с языка C++ на язык Паскаль
Помогите написать в паскаль данную программу using namespace std; struct m { int n; int l;...

1
nmcf
6562 / 5775 / 2632
Регистрация: 14.04.2014
Сообщений: 24,547
18.11.2016, 09:50 2
Лучший ответ Сообщение было отмечено Aecttann как решение

Решение

C++
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
#include <iostream>
#include <iomanip>
#include <cmath>
 
using namespace std;
 
 
const double eps = 1e-4;
 
double pRoot(double x, int k)
{
    double y, y0;
 
    y = 1;
    do
    {
        y0 = y;
        y += (x / pow(y, k - 1) - y) / k;
    } while (fabs(y - y0) >= eps);
 
    return y;
}
 
int main()
{
    double a;
    cin >> a;
    cout << fixed << setprecision(5) << (pRoot(a, 3) - pRoot(a * a + 1, 6)) / (1 + pRoot(3 + a, 7)) << endl;
}
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.11.2016, 09:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевести код программы с языка Pascale на язык Java
Здравствуйте, помогите,пожалуйста,перевести вот этот код на Java. Паскаля совсем не знаю,как и...

Нужно перевести код с языка Pascal на C# - метод нахождения квадрата по квадратному корню
Есть код: var x,n: integer; begin write('n = '); readln(n); x := 1; while...

Перевести с языка с++ на язык с#
нужно перевести этот код с языка с++ на язык с# int min(int a, int b){ return a &lt; b ? a : b; }...

Перевести с языка с++ на язык с#
Пожалуйста,помогите перевести int main() { int a, b, c; cin &gt;&gt; a &gt;&gt; b &gt;&gt; c; if (a...

Перевести с естественного языка на язык предикатов
Переведите с естественного языка на язык логики предикатов Зайцы не всегда глупее лис.

Перевести с языка КуМир на язык Паскаль
var a: integer; Begin Writeln ('Введите число'); Readln (a); if a mod 2 = 0 then ...


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

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

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