Как это все записать в devC++?

[fs_x]

Помогите все это написать на devC++

program fs;
uses crt;
procedure F(x,e:real; var s:real; var i:longint);
var t:real;
begin
s:=1/x; t:=x; i:=1;
while abs(1/((2*i+1)*t))>e do
begin
i:=i+1; t:=t*x*x; s:=s+1/(t*(2*i-1));
end;
s:=2*s;
end;
var xn,xk,e,dx,s:real; n:longint;
begin clrscr;
repeat
write('Vvedite nachalo intervala -1>xn or xn>1 xn=');
readln(xn);
until (xn<-1)or(xn>1);
repeat
write('Vvedite konec intervala ',xn:0:1,'<xk<1 xk=');
readln(xk);
until (xk>xn);
repeat
write('Vvedite tochnost v intervale (0,1) e=');
readln(e);
until (e>0)and(e<1);
repeat
write('Vvedite shag tabulyacii, polojitelnoe chislo menshe ',xk-xn:0:2,'dx=');
readln(dx);
until(dx<xk-xn)and(dx>0); clrscr;
writeln(' tablica tabulirovania funkcii ln((1+x)/(1-x))');
writeln('na intervale ',xn:0:2,' ',xk:0:2,' s tochnostiu',e:0:6);
writeln('----------------------------------------------------');
writeln('| | | 1+x | |');
writeln('| x | vichisleno | ln----- | n |');
writeln('| | | 1-x | |');
writeln('----------------------------------------------------');
while xn<=xk+e do
begin
F(xn,e,s,n);
writeln('|',xn:6:2,' |',s:10:6,' |',ln((1+xn)/(xn-1)):10:6,' |',n:4,' |');
xn:=xn+dx;
end;
writeln('----------------------------------------------------');
readln
end.

[p51x]

выучить с/с++ и переписать

[three_cats]

Можно порыться в интернете, есть программы, переводящие код из pascal на c++.