Сумма ряда

@rifds · Регистрация: 28.10.2012

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

Составить программу для вычисления значений суммы ряда S(x)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?S=1+2\frac{x}{2}+...+\frac{{n}^{2}+1}{n!}{\left(\frac{x}{2}\right)}^{n}$
для N значений x, выбранных в интервале $https://www.cyberforum.ru/cgi-bin/latex.cgi?0,1\leq x\leq 1$ .
Сумма данного ряда S(x) сходится к функции y(x)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\left(\frac{{x}^{2}}{4}+\frac{x}{2}+1\right){e}^{\frac{x}{2}}$
Вывод результатов на экран оформить в виде таблицы.
Провести вычисления, приняв N=10, ε=0,0001.

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
Program LAB;
var 
   x1,x2,x,y,S, H,EPS:real;
   I,N:integer;
   outf:text;
   Function Ryad(x,EPS:real):real;
      var
         i:integer;
         S,A:real;
        begin
           S:=1;
           I:=2;
           A:=1;
            repeat
            A:=A*(x/2)*(exp(2*ln(i))+1)/(exp(3*ln(i))-2*exp(2*ln(i))+2*i);
            S:=S+A;
            i:=i+1;
            until abs(A)<EPS;
             Ryad:=S;
        end;
begin
      assign(outf,'1.txt');
      rewrite(outf);
      writeln('x1='); readln(x1);
      writeln('x2='); readln(x2);
       H:=(x2-x1)/(N-1);
        writeln('Результат вычислений');
        writeln(outf,'Результат вычислений');
        writeln('N !,x !,S !,y !,S-x');
        writeln(outf,'N !,x !,S !,y !,S-x');
         for I:=1 to N do begin
         x:=x1+(I-1)*H;
         y:=Ryad(x,EPS);
         writeln(I:3,'!',x:8:4,'!',y:8:4,'!',S-y:8:4);
         writeln(outf,I:3,'!',x:8:4,'!',y:8:4,'!',S-y:8:4);
end;
    close(outf);
 end.

Добавлено через 15 часов 49 минут

для N значений x, выбранных в интервале $https://www.cyberforum.ru/cgi-bin/latex.cgi?0,1\leq x\leq 1$ .
Сумма данного ряда S(x) сходится к функции y(x)
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\left(\frac{{x}^{2}}{4}+\frac{x}{2}+1\right){e}^{\frac{x}{2}}$
Вывод результатов на экран оформить в виде таблицы.
Провести вычисления, приняв N=10, ε=0,0001.

С этого момента уже ничего не понятно

Помогите, пожалуйста!!!

@Puporev · 08.12.2012, 12:19

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
uses crt;
const e=0.0001;
var x,s,t:real;
    n:integer;
begin
writeln('       Табулирование функции y=(x^2/4+x/2+1)*e^(x/2)');
writeln('        представленной разложением  в степенной ряд');
writeln('        на интервале 0.1..1 с шагом 0.1');
writeln;
writeln('        -----------------------------------------');
writeln('        |   X   |    S    |(x^2/4+x/2+1)*e^(x/2)|');
writeln('        -----------------------------------------');
x:=0.1;
while x<=1.0+0.05 do
 begin
  n:=0;
  t:=1;{текущий член ряда}
  s:=t;{сумма}
  while abs(t*(n*n+1))>=e do
   begin
    n:=n+1;
    t:=t*(x/2)/n;
    s:=s+t*(n*n+1);
   end;
  writeln('        |',x:6:1,' |',s:8:4,' |',(x*x/4+x/2+1)*exp(x/2):15:4,'      | ');
  x:=x+0.1;
end;
writeln('        -----------------------------------------');
end.

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .