0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 38
1

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора

13.11.2012, 19:35. Показов 1720. Ответов 2
Метки нет (Все метки)

Вычислить и вывести на экран в виде таблицы значения
функции, заданной с помощью ряда Тейлора, на интервале от
Xнач до Xкон с шагом dx с точностью ε. Таблицу снабдить
заголовком и шапкой. Каждая строка таблицы должна
содержать значение аргумента, значение функции и количество
просуммированных членов ряда.
Миниатюры
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2012, 19:35
Ответы с готовыми решениями:

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Помогите исправить программу Program P3; var xn,xk,dx,e:real; n:integer; function...

2
4202 / 1794 / 211
Регистрация: 24.11.2009
Сообщений: 27,562
14.11.2012, 13:34 2
Лучший ответ Сообщение было отмечено MuBRiK как решение

Решение

Pascal
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
36
37
38
39
40
41
42
43
program p;
type tfri=function(x:real; i:integer):real;
var start, endx, h, e, x:real; 
function degree(x:real; n:integer):real;
var r:real;
     i:integer;
begin
       r:=1;
       for i:=1 to n do
       begin
              r:=r*x;
       end;
       for i:=-1 downto n do
       begin
              r:=r/x;
       end;
       degree:=r;
end;
function calca(x:real; n:intger):real;
begin
       calca:=2*degree(x, 2*n+1)/(2*n+1);
end;
function teilor (x, e:real; f:tfri):real;
var a,r:real;
     n:integer;
begin
       n:=1;
       r:=0;
       repeat
                a:=f(x, n);
                r:=r+a;
       until abs(a)<e;
       teilor:=r;
end;
begin
       readln(start, endx, h, e);
       writeln('x          y');
       x:=start-h;
       repeat
                x:=x+h;
                wrileln(x:10:4, ' '  2*teilor(x, calca):10:4);
       until x>=endx;
end.
Добавлено через 1 минуту
Что сложного?

Добавлено через 10 часов 54 минуты
Цитата Сообщение от taras atavin Посмотреть сообщение
n:=1;
Здесь n:=0;

Добавлено через 6 часов 46 минут
Блин, бесконечный цикл слепил.
Pascal
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
36
37
38
39
40
41
42
43
44
program p;
type tfri=function(x:real; i:integer):real;
var start, endx, h, e, x:real; 
function degree(x:real; n:integer):real;
var r:real;
     i:integer;
begin
       r:=1;
       for i:=1 to n do
       begin
              r:=r*x;
       end;
       for i:=-1 downto n do
       begin
              r:=r/x;
       end;
       degree:=r;
end;
function calca(x:real; n:intger):real;
begin
       calca:=2*degree(x, 2*n+1)/(2*n+1);
end;
function teilor (x, e:real; f:tfri):real;
var a,r:real;
     n:integer;
begin
       n:=-1;
       r:=0;
       repeat
                n:=n+1;
                a:=f(x, n);
                r:=r+a;
       until abs(a)<e;
       teilor:=r;
end;
begin
       readln(start, endx, h, e);
       writeln('x          y');
       x:=start-h;
       repeat
                x:=x+h;
                wrileln(x:10:4, ' '  2*teilor(x, calca):10:4);
       until x>=endx;
end.
1
0 / 0 / 0
Регистрация: 12.11.2012
Сообщений: 38
14.11.2012, 19:13  [ТС] 3
в Паскале выдает ошибку. искал причину, как видно я не нашел.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.11.2012, 19:13
Помогаю со студенческими работами здесь

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Сам бы все это дело сделал бы да не могу :) у меня комп слишком &quot;Старый&quot; Для &quot;Новейшего&quot; Turbo...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
помогите заменить формулу,пожалуйста) формулу прикрепил. program demo; var...

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Помогите, пожалуйста, с решением

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора
Вычислить и вывести на экран в виде таблицы значения функции, заданной с по- мощью ряда Тейлора,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru