Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 06.10.2014, 00:26   #1 (permalink)
Vikesiya
Новичок
 
Регистрация: 05.10.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Вычисление функции разложением ее в ряд, Паскаль

Помогите с задачкой
Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношения при вычислении очередного члена ряда. Для оценки правильности результата предусмотреть вычисление по контрольной формуле. Вычисление суммы заканчивается, если модуль очередного слагаемого оказывается меньше заданного значения точности (Е), причем для этих рядов (при |X|<1) абсолютная величина суммы всех отброшенных членов ряда при этом оказывается меньше Е. (Pascal)
Во Вложение Ряд и Контрольная формула





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


Код:
Var s,x,e,b,c,a,y:real;
i:integer;
Begin
  Read (x,e);
  if ...
Миниатюры
ipfuqs2tr7w.jpg  
Vikesiya вне форума   Ответить с цитированием

Старый 06.10.2014, 00:26
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Посмотрите в этих темах, возможно там есть нужный ответ

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

Старый 06.10.2014, 00:29   #2 (permalink)
Vikesiya
Новичок
 
Регистрация: 05.10.2014
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Контрольная формула: 1-(1/((1+x)^(1/3)))
Vikesiya вне форума   Ответить с цитированием
Старый 06.10.2014, 00:59   #3 (permalink)
Николай_С
Радиоинженер
 
Аватар для Николай_С
 
Регистрация: 25.09.2012
Адрес: г.Дзержинск Нижегородской обл.
Сообщений: 25,265
Записей в дневнике: 7
Сказал(а) спасибо: 291
Поблагодарили 219 раз(а) в 70 сообщениях
Репутация: 110185
По умолчанию

Тут всё немного сложней...
- сначала надо проверить ряд на сходимость. Если ряд расходящийся - то всё псу под хвост.
- расчетная формула оформляется в виде подпрограммы (точнее - функции).
- пишется программа, в которой есть цикл с выходом по значению функции меньшему Е и суммированием всех её значений.

Надеюсь, теперь кое-что прояснилось. Сами справитесь?
Николай_С вне форума   Ответить с цитированием
Старый 06.10.2014, 10:14   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Vikesiya Посмотреть сообщение
думала пол дня над этим
Этого мало. Но лучше бы Вы воспользовались поиском: у нас на форуме рассмотрено 100000000 подобных задач. Вот и сейчас я не стал заморачиваться с написанием программы "с нуля", а просто взял первую попавшуюся аналогичную, да чуть-чуть подправил под Ваши условия. Работы аж на пять минут.
Код:
VAR
 i:Integer;
 S,x,A,Eps:Real;

Function F(z:real):real;
begin
 F:=1-1/Exp(Ln(1+z)/3);
end;

Begin
 Write('x (-1<x<1) = ');
 Readln(x);
 Write('Eps (e.g. 0.0001)= ');
 Readln(Eps);
 i:=0;
 A:=-1;
 S:=0;
 Repeat
  Inc(i);
  A:=-A*(3*i-2)/(3*i)*x;
  S:=S+A;
 Until Abs(A)<Eps;
 Writeln('x= ',x:0:3,'   Sum= ',S:0:5,'   Accurate value= ',F(x):0:5);
 Readln
End.
P.S. Коля, не надо грузить человека лишним: условие сходимости (|X|<1) прописано в формулировке задачи.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:54.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.