Код программы

program xxx;

{timoshenko maxim variant 16}

uses crt;

const eps=0.001;

var a,b,h,x,s,q,u,f:real;

k,n:integer;

begin

clrscr;

write('vvedite otrezok a,b─> ');

readln(a,b);

write('vvedite znachenie k ');

readln(k);

h:=(b-a)/k;

x:=a;

writeln('tabica znachenii funkcii');

writeln('┌────────┬────────┬────────┬─────────┬────────────┐');

writeln('│ x │ s │ f │ q │ n │');

writeln('├────────┼────────┼────────┼─────────┼────────────┤');

while x<=b do

begin

s:=0;

n:=1;

q:=x;

u:=x;

while abs(u)>eps do

begin

s:=s+u;

n:=n+1;

q:=q*(-x);

u:=q/n;

end;

f:=ln(1+x);

writeln('│ ',x:4:2,'│',s:8:4,'│',f:8:4,'│ ',q:8:4,'│ ',n:4,' │');

x:=x+h;

end;

writeln('└────────┴────────┴────────┴─────────┴────────────┘');

readln;

end.

Результат выполнения программы

Код программы

program xxx;

{timoshenko maxim variant 16}

uses crt;

const eps=0.001;

var a,b,h,x,s,q,u,f:real;

k,n:integer;

begin

clrscr;

write('vvedite otrezok a,b─> ');

readln(a,b);

write('vvedite znachenie k ');

readln(k);

h:=(b-a)/k;

x:=a;

writeln('tabica znachenii funkcii');

writeln('┌────────┬────────┬────────┬─────────┬────────────┐');

writeln('│ x │ s │ f │ q │ n │');

writeln('├────────┼────────┼────────┼─────────┼────────────┤');

repeat

s:=0;

n:=1;

q:=x;

u:=x;

repeat

s:=s+u;

n:=n+1;

q:=q*(-x);

u:=q/n;

until abs(u)>=eps;

f:=ln(1+x);

writeln('│ ',x:4:2,'│',s:8:4,'│',f:8:4,'│ ',q:8:4,'│ ',n:4,' │');

x:=x+h;

until x>b;

writeln('└────────┴────────┴────────┴─────────┴────────────┘');

readln;

end.