Вычислить значение выражения

@nosferato · Регистрация: 02.02.2012

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

задание во вложенном документе,т.к. не смог здесь прописать формулу

вот мой код:

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
Program Variant_9;
 Var x, s, f, n, x_nach, x_kon, delta_x, eps, t: Real;
 Begin
 
  WriteLn('ввод исходных данных:');
  Write('x_nach=');
  ReadLn(x_nach);
  Write('x_kon=');
  ReadLn(x_kon);
  Write('delta_x=');
  ReadLn(delta_x);
  Write('eps=');
  ReadLn(eps);
  WriteLn;
  WriteLn('для  x=', x_nach:0:3, '  до ', x_kon:0:3, ' шаг=', delta_x:0:3, '  точность=', eps:0:3);
  WriteLn;
  WriteLn('  x       n         s          f');
  WriteLn('-----------------------------------');
  x:=x_nach;
  Repeat
    t:=1.0;
    s:= pi/2.0-x;
    n:=1;
    f:=pi / 2.0 - arctan(x / sqrt(1 - sqr(x)));
    While (Abs(t)>eps) Do
      Begin
        t:=((2.0*n-1.0)*(exp ((2.0*n+1.0)*ln(x))))/(2.0*n*(2.0*n+1.0)) ;
        s:=s+t;
        n:=n+1;
      End;
    WriteLn(x:0:3, '   ', n:3:0, '     ', s:0:5, '   ', f:0:5);
    x:=x+delta_x;
  Until(x>x_kon);
End.

но значение суммы не сходится с значением точности,а почему понять не могу

@Puporev · 09.02.2012, 14:24

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

задание во вложенном документе,т.к. не смог здесь прописать формулу

ТЬогда скинь для 2003. Или используй редактор формул над окном сообщений.

@nosferato · 09.02.2012, 14:46 **[ТС]**

вот задание в 2003м офисе

@Puporev · 09.02.2012, 15:44

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
Program Variant_9;
uses crt;
var x, s, f, x_nach, x_kon, delta_x, eps, t: Real;
    n:Integer;
Begin
WriteLn('ввод исходных данных:');
repeat
Write('|x_nach|<1 =');
ReadLn(x_nach);
until abs(x_nach)<1;
repeat
Write('x_nach<x_kon<1 =');
ReadLn(x_kon);
until(x_kon>x_nach)and(x_kon<1);
repeat
Write('x_kon-x_nach > delta_x=');
ReadLn(delta_x);
until delta_x<x_kon-x_nach;
repeat
Write('eps>0 =');
ReadLn(eps);
until eps>0;
clrscr;
WriteLn('Для  x=',x_nach:0:3,' до ',x_kon:0:3,' шаг=',delta_x:0:3,' точность=',eps:0:3);
WriteLn;
Writeln('----------------------------------');
WriteLn('|  x    | n  |    s    |    f    |');
WriteLn('----------------------------------');
x:=x_nach;
Repeat
 t:=x;
 s:=x;
 n:=0;
 if x=0 then f:=pi/2
 else if x>0 then f:=arctan(sqrt(1 - sqr(x))/x)
 else f:=pi+arctan(sqrt(1 - sqr(x))/x);
 While (Abs(t)>eps) Do
  Begin
   n:=n+1;
   t:=t*x*x*(2*n-1)/(2*n);
   s:=s+t/(2*n+1);
  End;
 s:=pi/2-s;
 WriteLn('|',x:6:3,' |',n:2,'  |',s:8:5,' |',f:8:5,' |');
 x:=x+delta_x;
Until(x>x_kon);
WriteLn('----------------------------------');
End.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	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-код на мобильном. Вращайте камеру одним пальцем,. . .

Вычислить значение выражения

Решение