"Все сообщения пользователя sveto4ek"


Страницы: 1
как вычислить сумму с заданной точностью
Пользователь: sveto4ek
Сообщений: 2
Статус: Незримый
Зарегистрирован:
27 марта 2009, 8:01
Был:16 июня 2011, 9:44
sveto4ek
smsup 		Дата: 27 марта 2009, 8:24 Сообщение №
Код анологичной задачи:
Дана некая функция у и интервал переменной х. х изменяется с заданным шагом.
Задана формула приближенного вычисления функции y для конкретного х.
Требуется вычислить сумму ряда с заданой точностью для каждого х и сравнить полученную сумму с точным значением функции в этой точке. Сумму вычислять с заданной точностью.
для каждого значения х вычислялась бесконечная сумма и точное значение. Далее х увеличивался на заданый шаг и вычисления повторялись. 

Код на Pascal
  1.   
  2. {Вычислить сумму ряда с заданной точностью e}   
  3. Const p=3.14;   
  4. e=0.001; {точность}   
  5. Var S, S1, x, y, a :real;   
  6. i, n: Integer;   
  7. Begin   
  8. x:=0.1; {начало отрезка вычислений}   
  9. writeln('|*-*-*-*-*-*-*-*-*-*-*-*-*-*|');   
  10. Writeln('| x | function | summa |');   
  11. writeln('|*-*-*-*-*-*-*-*-*-*-*-*-*-*|');   
  12. While x<=0.8 do begin {цикл прохода по всему отрезку}   
  13. S:=0; {обнуляем сумму}   
  14. a:=1; {начальные константы,}   
  15. n:=1; {зависят от формулы ряда}   
  16. While a>e do begin {собственно вычисление суммы}   
  17. a:=a*x;   
  18. S1:=S;   
  19. S:=S+a*Sin(n*p/4); {формула определена заданием}   
  20. n:=n+1; {подсчет числа итераций}   
  21. end;   
  22. y:=(x*Sin(p/4))/(1-2*x*Cos(p/4)+x*x); {точное значение функции}   
  23. Write('| ',x:3:1,' |'); {для каждого х}   
  24. Write(' ',y:8:5,' |');   
  25. Writeln(' ',S:8:5,' |');   
  26. writeln('|---------------------------|');   
  27. {увеличение х и повтор вычислений}   
  28. end;   
  29. readln;   
  30. End.  
  31.  
При использовании обязательна ссылка на http://DMTSoft.ru

Страницы: 1