Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от х-нач. до x-конеч. с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.
На ПАСКАЛЕ или на VBA
переделай эту прогу под свою
{разложение ln(x+1)X в ряд}
program Lab;
uses crt;
const eps=0.001;
function st(n:real;k:integer):real;
// (n^k)
var
i:integer;
l:real;
begin
l:=1;
for i:=1 to k do
l:=l*n;
st:=l;
end;
function st1(n:integer):integer;
//(-1)^n
var
i,l:integer;
begin
l:=-1;
for i:=1 to n do
l:=-l;
st1:=l;
end;
var
n,k:integer;
S,a,x: real;
BEGIN
clrscr;
write('vvesti x --> ' ); readln(x);
k:=0 ;
S:=0;
repeat
a:= st1(k+1)*st(x,k+1)/(k+1); ; writeln('a=',a:10:4);
S:=S+a; writeln('s=',s:6:2);
k:=k+1;
until abs(a) < eps ;
writeln('k= ',k,' s= ',s:6:4);
writeln(ln(x+1):6:3);
writeln('end programm');
readln;
END.
⇢