Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
2 / 2 / 0
Регистрация: 22.10.2019
Сообщений: 66
1

Вычислить сумму ряда.

22.10.2019, 13:28. Просмотров 1932. Ответов 4
Метки нет (Все метки)


Y = X - x^2/2! + x^3/3! - x^4/4! +... С точностью E=10^-4
Где x = -0,3; -0,5; -0,7
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 13:28
Ответы с готовыми решениями:

Вычислить сумму ряда с точностью до числа ряда меньшего экспонентой
Вычислить сумму данного ряда с точностью до числа ряда меньшего экспонентой,для каждого значения Х...

Вычислить сумму ряда
Вычислите сумму ряда с заданной степенью точности \alpha :\sum_{beskonechnost}^{n=1} (-1)^n*...

Вычислить сумму ряда
Здравствуйте! Не могу додуматься составить алгоритм выполнения программы. Помогите, пожалуйста....

Вычислить сумму ряда
Задача 1. написать программу вычисления суммы S=1+1/2+1/3+...+1/50

4
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,741
22.10.2019, 15:16 2
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
const e=0.0001;
function Y(x:real):real;
var n:integer;
    t,s:real;
begin
n:=1;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x/n;
  s:=s+t;
 end;
Y:=s;
end;
var x:real;
    i:integer;
begin
for i:=1 to 3 do
 begin
  x:=-(2*i+1)/10;
  writeln('При х=',x:4:1,' Y=',Y(x):0:4);
 end;
end.
1
2 / 2 / 0
Регистрация: 22.10.2019
Сообщений: 66
24.01.2020, 23:45  [ТС] 3
а можно в таблицу все занести с помощью gotoxy
0
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,741
25.01.2020, 07:23 4
Лучший ответ Сообщение было отмечено Vincent_Moro21A как решение

Решение

Зачем???
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
uses crt;
const e=0.0001;
function Y(x:real):real;
var n:integer;
    t,s:real;
begin
n:=1;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x/n;
  s:=s+t;
 end;
Y:=s;
end;
var x:real;
    i:integer;
begin
writeln('---------------');
writeln('|  x  |   y   |');
writeln('---------------');
for i:=1 to 3 do
 begin
  x:=-(2*i+1)/10;
  gotoXY(1,i+3);write('|',x:0:1);
  gotoXY(7,i+3);write('|',Y(x):0:4);
  writeln('|');
 end;
writeln('---------------');
end.
1
2 / 2 / 0
Регистрация: 22.10.2019
Сообщений: 66
25.01.2020, 11:23  [ТС] 5
Вопросы здесь задаем мы! Спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.01.2020, 11:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вычислить сумму ряда
2) Дано действительное х и натуральное n/ Вычислить:...

Вычислить сумму ряда
.....

Вычислить сумму ряда
S = 2 - 4 + 6 - 8 + ... + (-1)n * ЗАРАНЕЕ СПАСИБО

Вычислить сумму ряда
Нужно решить задачу, надеюсь на вашу помощь. Даны натуральное число n действительное x....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.