Вычисление суммы ряда, перевести код с Pascal

@term1 · Регистрация: 10.10.2012

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

Вычисление суммы ряда оформить в виде процедуры с параметром (в качестве параметра использовать количество слагаемых m). Проверить правильность вычисления. Значения слева и справа должны быть равными. На экран вывести значение выражения слева, значение выражения справа и количество просуммированных членов ряда.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sin x = x - \frac{x^3}{3!} + \frac{x^5}{5!} - \ldots + \frac{(-1)^{m-1} \cdot x^{2 m-1}}{(2 m - 1)!}, \qquad \qquad m = 1, 2, \ldots$

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses Crt;
var
m:integer;
s,x:real;
procedure sum(x:real; m:integer; var s:real);
 var
 xn:=real;
  k:integer;
   begin
    s:=x;
     xn:=x;
    for k:=1 to m do begin
      xn:=-xn*sqr(x)/((2*k+1)*2*k); 
        s:=s+xn;   
       end;
      end;
begin
Clrscr;
readln(x,m);
sum(x,m,s)
writeln(m,' ',sin(x):0:5,' ',s:0:5);
readln;
end.

@Nameless One · 10.10.2012, 13:13

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

Проверить правильность вычисления

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

@term1 · 10.10.2012, 13:16 **[ТС]**

помогите перевести прогу паскаль в си!

@Nameless One · 10.10.2012, 13:34

term1, ты мое сообщение прочитал?

А вообще, вот достаточно эффективный способ вычисления синуса через разложение в ряд Тейлора:

C
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
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
 
#ifndef M_PI
#define M_PI 3.14159265358979323846
#endif /* M_PI */
 
double taylor_sin(double x)
{
    static const double coeffs[] = {
        -0.16666666666666665052e+0,
        0.83333333333331650314e-2,
        -0.19841269841201840457e-3,
        0.27557319210152756119e-5,
        -0.25052106798274584544e-7,
        0.16058936490371589114e-9,
        -0.76429178068910467734e-12,
        0.27204790957888846175e-14,
    };
    static const size_t num_coeffs = sizeof coeffs / sizeof *coeffs;
    double sum, x_2, multiplier;
    size_t i;
 
    x = fmod(x, 2 * M_PI);
    sum = x;
    x_2 = x * x;
    multiplier = x * x_2;
 
    for(i = 0; i < num_coeffs; ++i)
    {
        sum += multiplier * coeffs[i];
        multiplier *= x_2;
    }
 
    return sum;
}
 
int main(void)
{
    double x;
    printf("Enter a number: ");
    fflush(stdout);
    scanf("%lf", &x);
    printf("sin %.5f = %.5f\ttaylor_sin %.5f = %.5f\n",
           x, sin(x), x, taylor_sin(x));
    exit(EXIT_SUCCESS);
}

@term1 · 10.10.2012, 13:36 **[ТС]**

короче такое задание (не используя стандарные функции ( за исключение abs) вычислить сумму следующего ряда с заданной точностью E>0 (E,x,a вводятся с клавиатуры) а пример
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sin x = x - \frac{x^3}{3!} + \frac{x^5}{5!} - \ldots + \frac{(-1)^{m-1} \cdot x^{2 m-1}}{(2 m - 1)!}, \qquad \qquad m = 1, 2, \ldots$
надо написать прогу на си ++

@Nameless One · 10.10.2012, 13:37

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

надо написать прогу на си ++

term1, так на С или на С++?

@term1 · 10.10.2012, 13:45 **[ТС]**

с++ помоги пожалуйста!

Новые блоги и статьи Все статьи Все блоги /
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 На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@term1 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 65
	10.10.2012, 13:16 [ТС]
	помогите перевести прогу паскаль в си! 0

@term1 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 65
	10.10.2012, 13:36 [ТС]
	короче такое задание (не используя стандарные функции ( за исключение abs) вычислить сумму следующего ряда с заданной точностью E>0 (E,x,a вводятся с клавиатуры) а пример $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sin x = x - \frac{x^3}{3!} + \frac{x^5}{5!} - \ldots + \frac{(-1)^{m-1} \cdot x^{2 m-1}}{(2 m - 1)!}, \qquad \qquad m = 1, 2, \ldots$ надо написать прогу на си ++ 0

@term1 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 65
	10.10.2012, 13:45 [ТС]
	с++ помоги пожалуйста! 0