из Pascal в C++

[spinogryz_ua]

Не очень дружу с С++...
Смогёте перевести?

Var x,sv,y,sz:real;
i,j,f,r:integer;
begin
   writeln('ввести x');
read(x);
writeln('внутреннея сума','    Внешнея сума');
sz:=0; f:=120;
for j:=4 to 11 do
begin
sv:=0;
 i:=1; r:=1;
while i<=12 do
begin
y:=r*(exp((i+1)*ln(x))*ln(i+x))/(f+exp(i+x));
sv:=sv+y;
i:=i+1; r:=-r;
end;
f:=f*(j+2); sz:=sz+sv;
writeln (sv:15:10,' ',sz:15:10);
end;
writeln('Окончательная внешняя сума = ',sz:15:10);
end.

[BDA]

Проверьте:

#include <iostream>
#include <math.h>
using namespace std;
 
int main() {
 
        double x,sv,y,sz=0;
		int i,f=120,r;
        cout << "Input x: ";
        cin >> x;
		cout << endl;
		cout << "Internal sum   External sum" << endl;
		for (int j=4; j<12; j++)
		{
			sv=0;
			i=1;
			r=1;
			while (i<=12)
			{
				y=r*(exp((i+1)*log(x))*log(i+x))/(f+exp(i+x));
				sv+=y;
				i++;
				r=-r;	
			}
			f*=(j+2);
			sz+=sv;
			cout << sv << ' ' << sz << endl;
		}
		
        cout << "Resulted external sum: " << sz << endl;
        return 0;
}

[spinogryz_ua]

Да. Это то что нужно! Спасибо!