24_6

  x. , , , 2x4 - 3x3 + 4x2 - 5x + 6. 4 4 .

  d:=2*x*x*x*x-3*x*x*x+4*x*x-5*x+6 . , , :

=1 d=4, x=2 d=20 x=10 d=17356

  , x>0.

, =0, d=6, ( ), 0 . , xn = exp(n*ln(x)), . x6 = x*x*x*x*x*x*x = exp(6*ln(x))

  program m2b4_6;

{ 2 , 2 }

uses crt;

var c,n:integer; d,x:real;

begin

clrscr;

write('vvedite znachenie X>0 '); read(x);

c:=2; n:=4; d:=0;

while n>=0 do begin

d:=d+c*exp(n*ln(x));

if c<0 then c:=(c-1)

else c:=(c+1);

c:=c*-1; n:=n-1;

end;

writeln('d=',d:3:2);

end.

 

program m2b4_61;

{ 1 , 1 }

uses crt;

var c,n:integer; d,x,k:real;

begin

clrscr;

write('vvedite znachenie X>0 '); read(x);

n:=4; d:=0;

for c:=2 to 6 do begin

k:=c;

if k mod 2 = 1 then k:=k*-1;

d:=d+k*exp(n*ln(x));

n:=n-1;

end;

writeln('d=',d:3:2);

end.

 

program m2b4_62;

{ 2 , }

uses crt;

var c,n:integer;

d,x:real;

begin

clrscr; write('vvedite znachenie X>0 '); readln(x);

c:=2; n:=4; d:=0;

repeat

begin

d:=d+c*exp(n*ln(x));

if c<0 then c:=(c-1)

else c:=(c+1);

c:=c*-1; n:=n-1;

end;

until n<0;

writeln('d=',d:3:2);

end.

 

program m2b4_63;

{ 2 , }

uses crt;

var c,n:integer;

d,x:real;

begin

clrscr; write('vvedite X>0'); readln(x);

c:=2; n:=4; d:=0;

repeat

begin

if c mod 2=0 then d:=d+c*exp(n*ln(x))

else d:=d-c*exp(n*ln(x));

c:=c+1; n:=n-1;

end;

until n<0;

writeln('d=',d:3:2);

end.

 

program m2b4_64;

{ 2 , }

uses crt;

var c,n:integer;

d,x:real;

begin

clrscr; write('vvedite X>0 '); readln(x);

c:=2; n:=4; d:=0;

repeat

begin

if c mod 2=1 then d:=d-c*exp(n*ln(x))

else d:=d+c*exp(n*ln(x));

c:=c+1; n:=n-1;

end;

until n<0;

writeln('d=',d:3:2);

end.

 

program m2b4_65;

{ 2 , }

uses crt;

var c,n:integer;

d,x,k:real;

begin

clrscr; write('vvedite x>0 '); readln(x);

c:=2; n:=4; d:=0;

repeat

begin

k:= c*exp(n*ln(x))

if c mod 2=1 then d:=d-k

else d:=d+k;

c:=c+1; n:=n-1;

end;

until n<0;

writeln('d=',d:3:2);

end.

, if x<0 then x:=x*-1, c*exp(n*ln(x)) - c*exp(n*ln(abs(x)))

 

program m2b4_66;

{ 2 , }

uses crt;

var c,n:integer;

d,x,k:real;

begin

clrscr; write('vvedite luboe znachenie x<>0 '); readln(x);

c:=2; n:=4; d:=0;

repeat

begin

k:= c*exp(n*ln(abs(x)))

if c mod 2=1 then d:=d-k

else d:=d+k;

c:=c+1; n:=n-1;

end;

until n<0;

writeln('d=',d:3:2);

end.

, , ,


Copyright © somit.ru & . , 2009
@Mail.ru