Ан
Антон
помогите пожалуйста... проблема в запуске ошибка Error: Identifier not found "Power" программа Лазарус..
Program RGR_21_3;
const Pi=3.1415927;
var x0,xf,dx,x,y,e:double;
i,j:byte;
function ln(x,e:double; var n:byte):single;
var a,y:double;
begin
n:=0; y:=0;
repeat
a:=((1/(2*n+1))*Power(x,(2*n+1)));
y:=y+a;
n:=n+1;
until abs(a)
Program RGR_21_3;
const Pi=3.1415927;
var x0,xf,dx,x,y,e:double;
i,j:byte;
function ln(x,e:double; var n:byte):single;
var a,y:double;
begin
n:=0; y:=0;
repeat
a:=((1/(2*n+1))*Power(x,(2*n+1)));
y:=y+a;
n:=n+1;
until abs(a)
А куда?