Разработать алгоритм и составить программу вычисления таблицы значений функции

@TheBlackBull · Регистрация: 16.03.2016

Студворк — интернет-сервис помощи студентам

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f(x)=\frac{\pi ^2}{3}+4\left[\cos x+\frac{\cos 2x}{2^2}+\frac{\cos 3x}{3^2}+...+\frac{\cos kx}{k^2}+... \right]<br />$

Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | а_к | <z.
При вычислении очередного члена целесообразно воспользоваться рекуррентным выражением:
а_к+1=с_ка_к; к= 0, 1, 3, ...,
где а_к - некоторый к-ый член ряда; а_к+1 - следующий к+1-ый член ряда; с_к - коэффициент, определяемый номером к.
При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR.
Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции z задаются при вводе.

@Puporev · 16.03.2016, 08:42

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
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
var xn,xk,h,z,x,s,t:real;
    k,q:integer;
begin
clrscr;
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала, больше ',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции, 0<h<',xk-xn:0:1,' h=');
readln(h);
until (h>0)and(h<xk-xn);
repeat
write('Введите точность 0<z<1 z=');
readln(z);
until (z>0)and(z<1);
clrscr;
writeln('       Табулирование функции,');
writeln('представленной разложением в степенной ряд');
writeln('на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',h:0:1,' с точностью ',z:0:5);
writeln;
writeln('        ------------------');
writeln('        |   x  |  f(x)   |');
writeln('        ------------------');
x:=xn;
q:=0;
while x<=xk+h/2 do
 begin
  s:=0;
  k:=1;
  t:=cos(x);
  while abs(t)>z do
   begin
    k:=k+1;
    t:=cos(k*x)/sqr(k);
    s:=s+t
   end;
  s:=sqr(pi)/3+4*s;
  writeln('        |',x:5:1,' |',s:8:4,' |');
  q:=q+1;
  if q mod 15=0 then
   begin
    write('Нажмите Enter');
    readln;
    clrscr;
    writeln('        ------------------');
    writeln('        |   x   |  f(x)  |');
    writeln('        ------------------');
   end;
  x:=x+h;
 end;
writeln('        ------------------');
readln
end.

Сообщение от TheBlackBull

При вычислении очередного члена целесообразно воспользоваться рекуррентным выражением:
ак+1=скак; к= 0, 1, 3, ...,

В этом ряду нет рекуррентной зависимости.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@TheBlackBull 0 / 0 / 0 Регистрация: 16.03.2016 Сообщений: 7

	Разработать алгоритм и составить программу вычисления таблицы значений функции 16.03.2016, 01:52. Показов 1767. Ответов 1 Метки нет (Все метки) Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> f(x)=\frac{\pi ^2}{3}+4\left[\cos x+\frac{\cos 2x}{2^2}+\frac{\cos 3x}{3^2}+...+\frac{\cos kx}{k^2}+... \right]<br />$ Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: \| а_к \| <z. При вычислении очередного члена целесообразно воспользоваться рекуррентным выражением: а_к+1=с_ка_к; к= 0, 1, 3, ..., где а_к - некоторый к-ый член ряда; а_к+1 - следующий к+1-ый член ряда; с_к - коэффициент, определяемый номером к. При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR. Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции z задаются при вводе. 0

Опции темы

Разработать алгоритм и составить программу вычисления таблицы значений функции

Решение