Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
sanja_sanja18
0 / 0 / 0
Регистрация: 29.09.2011
Сообщений: 27
1

Функция и разложение её в ряд

29.09.2011, 18:12. Просмотров 664. Ответов 1
Метки нет (Все метки)

Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд
S(x) для x изменяющихся от a до b с заданным шагом h и точностью ε.
Близость значений S(x) и Y(x) во всем диапазоне значений x указывает на
правильность вычисления S(x) и Y(x).
Функция и разложение её в ряд
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2011, 18:12
Ответы с готовыми решениями:

Разложение y=sh(x) в ряд Тейлора
Пожалуйста, помогите решить следующую задачку (я только начала учить Делфи):...

Разложение функции в ряд
Доброго времени суток. Столкнулся с таким примером по разложению функции в ряд...

Функции. Разложение в ряд.
Вывести на экран таблицу значений функции Y(x) и ее разложения в ряд S(x) для...

Разложение функции в ряд
Здравствуйте! Помогите, пожалуйста, с заданием: Само задание и что получилось...

Разложение функции в ряд
Необходимо вывести на экран таблицу значений функции Y(x) и ее разложения в ряд...

1
Puporev
Модератор
54719 / 42124 / 29087
Регистрация: 18.05.2008
Сообщений: 99,437
29.09.2011, 20:39 2
Лучший ответ Сообщение было отмечено sanja_sanja18 как решение

Решение

Можно конечно подключить модуль Math и использовать его функции, но думаю что это типичная паскалевская задача на рекуррентные соотношения.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
function F(x,e:real):real;
var n:integer;
    t,s:real;
begin
if e>=1 then F:=1
else
 begin
  n:=0;
  t:=1;
  s:=1;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*x*x/((2*n+1)*2*n);
    s:=s+t;
   end;
 end;
F:=s;
end;
var a,b,h,e,x,y:real;
begin
writeln('a,b, a<b:');
readln(a,b);
write('h<b-a, h=');
readln(h);
write('e=');
readln(e);
x:=a;
while x<=b+h/2 do
 begin
  writeln('x=',x:5:1,' y=',F(x,e):6:2,'  sinx/x=',sin(x)/x:6:2);
  x:=x+h;
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2011, 20:39

Рекуррентность. Разложение в ряд
Ребята, не могу составить формулу! вот код(+сама формула на скрине!) ...

Разложение в ряд функций
Получено такое задание.Нужно создать программу для вычисления arctg(x) и ch(x)...

Разложение в ряд Маклорена
Привет программистам. У меня такая ситуация: задали лабу, составил оформление и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru