ОЧЕНЬ ! КОД НА ПИТОНЕ НУЖЕН Вычислить и вывести на экран в виде таблицы значения функции, заданной графически (рис. 5), на интервале от x нач до x кон с шагом dx. Интервал и шаг задать таким образом, чтобы проверить все ветви программы. Таблицу снабдить заголовком и шапкой.
var x,xn,xk,dx,p,s,e:real; k:integer; begin write('xn xk dx e: '); readln(xn,xk,dx,e); x:=xn; repeat s:=1; k:=1; p:=1; repeat p:=-p*x*x/k/(k+1); s:=s+p; k:=k+2 until abs(p) < e; writeln(x:10:5,s:10:5,k:5,cos(x):10:5); x:=x+dx until x > xk; readln end.
Для контроля добавила столбик с вычисленным напрямую значением косинуса. Заголовки, шапки и завитушки вокруг таблицы пусть пишет тот, кому не лень. Контрольный пример ввода можно задать, например, как 0.1 1.0 0.1 0.0001
var x,xn,xk,dx,p,s,e:real; k:integer; begin write('xn xk dx e: '); readln(xn,xk,dx,e); x:=xn; repeat s:=1; k:=1; p:=1; repeat p:=-p*x*x/k/(k+1); s:=s+p; k:=k+2 until abs(p) < e; writeln(x:10:5,s:10:5,k:5,cos(x):10:5); x:=x+dx until x > xk; readln end.
Для контроля добавила столбик с вычисленным напрямую значением косинуса. Заголовки, шапки и завитушки вокруг таблицы пусть пишет тот, кому не лень. Контрольный пример ввода можно задать, например, как 0.1 1.0 0.1 0.0001