Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 38
1

Написать программу с рядом Тейлора

06.10.2013, 21:31. Просмотров 751. Ответов 6
Метки нет (Все метки)

Составить и отладить программу вычисления значения функции с помощью бесконечного ряда Тейлора с точностью заданного ε по формуле:
0
Миниатюры
Написать программу с рядом Тейлора  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2013, 21:31
Ответы с готовыми решениями:

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

Написать программу на суммирование рядом
Программа должна формировать таблицу, содержащую столбцы: - значения аргумента, - значения суммы...

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

Написать программу печати таблицы функции, заданной бесконечным рядом вида тейлора
#include <stdio.h> #include <stdlib.h> #include <math.h> double fnct(double x, double eps);...

6
Модератор
1600 / 1060 / 480
Регистрация: 17.07.2012
Сообщений: 5,245
06.10.2013, 22:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var i:Integer;
s,p,f,e,x,a:Real;
begin
Write('e=');
Readln(e);
Write('x=');
Readln(x);
i:=0;
a:=0;
s:=0;
f:=1;
p:=-1/x;
i:=0;
repeat
p:=-p*x;
if i<>0 then
f:=f*i;
a:=p/f;
s:=s+a;
until abs(a)<e;
Writeln('s=',s:0:2);
Readln;
end.
Что у меня не так?Подскажите пожалуйста я с вычислением ряда с заданной точностью не дружу.

Добавлено через 12 секунд
Выдает Runtime Error.
0
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
06.10.2013, 23:11 3
Новичок, Вы i нигде не увеличиваете. Следовательно f не изменяется, a всегда равно 1. Вот моё решение
1
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 38
06.10.2013, 23:26  [ТС] 4
Samhain, простите ,а можно решение под мою задачу о.о . Заранее благодарен
0
693 / 567 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
06.10.2013, 23:32 5
stinfrai,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s,si,x,e:real;
    i:integer;
begin
  write('x = ');readln(x);
  write('e = ');readln(e);
  s:=1;si:=1;i:=1;
  repeat
    si:=-x*si/i;
    inc(i);
    s:=s+si;
  until (abs(si)<e);
  write('s = ',s:0:10,', проверка e = ',exp(-x):0:10);
  readln
end.
1
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 38
07.10.2013, 00:26  [ТС] 6
Samhain, СПасибо!
0
Модератор
1600 / 1060 / 480
Регистрация: 17.07.2012
Сообщений: 5,245
07.10.2013, 00:29 7
Samhain, ваш вариант и короче и правильней.Еще раз спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.10.2013, 00:29

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать программу для перестановки рядом стоящих слов в строке
Задача: Написать программу для перестановки рядом стоящих слов в строке, используя стандартные...

Написать программу заполнение квадратной матрицы рядом натуральных чисел
Программу такую написал, но она мне не нравится - слишком длинная - 40 строк. Может кто-нибудь из...

Написать программу по вычислению функции ряда Тейлора
Помогите с кодом на С++ :help: :gcray: Написать программу, которая вычисляет и выводит на экран в...

написать программу по блок-схеме. ряды тейлора
доброго времени суток. нужна помощь в написании программы. Вычислить и вывести в виде таблицы...


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

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

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