перевести код с Паскаля на С++

[Arman107]

Вычислить бесконечную сумму с заданной точностью
program p119;
uses Crt;

{------------область переменных---------------}
var
eps: real;
i: byte;

{*******ввод информации********}
procedure VvodInfo;
begin
write('введите точность вычисления ');
readln(eps);
end;

{*******Значение функции*********}
procedure Func;
var
s4et4ik, fact: integer;
tmp_1, tmp_2: real;
vr: real;
begin
tmp_1:=-1;
tmp_2:=-0.5;
i:=2;
fact:=2;

while eps <= abs(tmp_1-tmp_2) do
begin
tmp_1:=tmp_2;

inc(i);
fact:=fact*i;
vr:=1/fact;

if i mod 2 = 1 then
vr:=-fact;

tmp_2:=tmp_2+vr;
end;

writeln('значение функции ', tmp_2:5:2);
end;

{*******начало основной программы*******}
begin
ClrScr;
VvodInfo;
Func;
ReadKey;
end.