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

@MuBRiK · Регистрация: 12.11.2012

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

@taras atavin · 14.11.2012, 13:34

Pascal

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

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.

@MuBRiK · 14.11.2012, 19:13 **[ТС]**

в Паскале выдает ошибку. искал причину, как видно я не нашел.

@MuBRiK 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 38
		1
	Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора 13.11.2012, 19:35. Показов 1720. Ответов 2 Метки нет (Все метки) Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Xнач до Xкон с шагом dx с точностью ε. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@MuBRiK 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 38
	14.11.2012, 19:13 [ТС]	3
	в Паскале выдает ошибку. искал причину, как видно я не нашел. 0

Опции темы

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

Решение