С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/29: Рейтинг темы: голосов - 29, средняя оценка - 4.62
0 / 0 / 1
Регистрация: 20.04.2017
Сообщений: 19
1

Найти сумму первых N членов знакочередующегося ряда

16.01.2018, 11:56. Показов 5646. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти сумму первых N членов знакочередующегося ряда:
S = 1 – X/2 + X2/3 – X3/4 + …, где |X|<1
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.01.2018, 11:56
Ответы с готовыми решениями:

Найти сумму первых 10 членов ряда
Написать программу подсчета суммы 10 первых членов ряда \sum_1\frac{1}{n^3 + 1}

Найти сумму первых N членов знакочередующего ряда
Здравствуйте, уважаемые программисты... Тема 2. Числовые последовательности и ряды Найти...

Найти сумму первых 7 членов ряда по заданной формуле
cos x=1-(x^2/2!)+(x^4/4!)-(x^6/6!)+... Найти сумму первых 7 членов ряда

Найти сумму N первых членов ряда. Y=1+X/2+X/3+X[/SUP]/4+..., где Х - любое число.
Найти сумму N первых членов ряда. Y=1+X/2+X/3+X/4+..., где Х - любое число.

2
26 / 26 / 13
Регистрация: 23.11.2010
Сообщений: 58
16.01.2018, 13:19 2
Лучший ответ Сообщение было отмечено garikas как решение

Решение

Я так понимаю X2/3 и X3/4 .....- это х2 и х3
Поэтому как вариант решения
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
s:real; //сума
x,p:real;  // сам х; р- его степеня
n,i:integer;//n колличество; i счетчик
t:integer;// переменная для знакочередования
begin
s:=1;
write('N=');readln(n);
write('X=');readln(x);
p:=1;
for i:=2 to n do
begin
if (i mod 2 = 0) then t:=-1 else t:=1;
p:=p*x;
writeln(i,' ',t*(p/i));
s:=s+t*(x/i);
end;
writeln('S=',s);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7795 / 4618 / 2830
Регистрация: 22.11.2013
Сообщений: 13,114
Записей в блоге: 1
16.01.2018, 13:59 3
Лучший ответ Сообщение было отмечено garikas как решение

Решение

Tjm,
со знаком можно поступить чуть проще, заодно исправить ошибку в строке 16:
Pascal
10
11
12
13
14
15
  p:=1; s:=1;
  for i:=2 to n do begin
    p:=-p*x; s:=s+p/i;
    WriteLn(i,' ',p/i);
  end;
  WriteLn('S=',s);
1
16.01.2018, 13:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.01.2018, 13:59
Помогаю со студенческими работами здесь

Подсчитать сумму членов ряда и сумме первых 10 членов ряда
Для ряда, члены которого вычисляются по формуле(ниже формула). Подсчитать сумму членов ряда с...

Вычислить сумму первых 16 членов ряда
Составьте программу вычисления написать программу, которая вычисляет сумму первых 16 членов ряда: ...

Вычислить сумму первых N членов ряда
1) составить программу, которая будет выводить на весь экран сло МИР,используя символ(*) 2)Ввести...

Циклы. Вычислить сумму первых n членов ряда
Добрый день. Помогите, пожалуйста решить задачу через цикл for Задание. Напишите программу,...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru