Вопрос по информатике:
Срочна нужна программа на паскале.
Аналитическая функция f(x), разложение в ряд S(x)
Вывести (x;y) табличкой
Пожаловаться
- 26.08.2018 07:13
- Информатика
- remove_red_eye 6386
- thumb_up 11
Ответы и объяснения 1
Const x0=0; xk=0.8; h=0.1; e=0.0001;
var x,xn,x4,a,s:real; n,i,k:integer;
begin
x:=x0-h;
n:=round((xk-x0)/h)+1;
writeln('№ x S(x) y(x)');
for i:=1 to n do
begin
x:=x+h;
xn:=x;
x4:=x*x*x*x;
a:=x;
s:=x;
k:=0;
while abs(a)>e do begin
k:=k+1;
xn:=xn*x4;
a:=xn/(4*k+1);
s:=s+a;
end;
writeln(i,' ',x:4:1,' ',s:8:5,' ',1/4*ln((1+x)/(1-x))+1/2*arctan(x):8:5);
end;
end.
Результат:
№ x S(x) y(x)
1 -0.0 -0.00000 -0.00000
2 0.1 0.10000 0.10000
3 0.2 0.20006 0.20006
4 0.3 0.30049 0.30049
5 0.4 0.40208 0.40208
6 0.5 0.50648 0.50648
7 0.6 0.61678 0.61678
8 0.7 0.73901 0.73901
9 0.8 0.88665 0.88668
var x,xn,x4,a,s:real; n,i,k:integer;
begin
x:=x0-h;
n:=round((xk-x0)/h)+1;
writeln('№ x S(x) y(x)');
for i:=1 to n do
begin
x:=x+h;
xn:=x;
x4:=x*x*x*x;
a:=x;
s:=x;
k:=0;
while abs(a)>e do begin
k:=k+1;
xn:=xn*x4;
a:=xn/(4*k+1);
s:=s+a;
end;
writeln(i,' ',x:4:1,' ',s:8:5,' ',1/4*ln((1+x)/(1-x))+1/2*arctan(x):8:5);
end;
end.
Результат:
№ x S(x) y(x)
1 -0.0 -0.00000 -0.00000
2 0.1 0.10000 0.10000
3 0.2 0.20006 0.20006
4 0.3 0.30049 0.30049
5 0.4 0.40208 0.40208
6 0.5 0.50648 0.50648
7 0.6 0.61678 0.61678
8 0.7 0.73901 0.73901
9 0.8 0.88665 0.88668
Пожаловаться
- 27.08.2018 06:34
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы