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

@Justicee · Регистрация: 17.04.2017

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

Дано действительное число x. Последовательность a1,a2. образована по следующему закону:

(Фотография текста удалена)

@JuriiMW · 18.04.2017, 07:21

Вы только что согласились с правилами форума и тут-же их нарушили!
Смотрите раздел 5 пункт 18 : https://www.cyberforum.ru/announcement.php?a=3

@ZX Spectrum-128 · 18.04.2017, 07:27

Комментарий модератора

Justicee, текст наберите вручную. Формулу - в редакторе формул.

@Justicee · 18.04.2017, 10:39 **[ТС]**

Извиняюсь не прав.

@Retsnom · 19.04.2017, 07:02

в помощь Justicee, переписал задания как требуют правила форума:

Дано действительное число x. Последовательность a₁, a₂, ... образована по следующему закону:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?a_n=\frac{x^{2n}\cdot \sin \left( x^n\right) }{n^2}$

получить a₁ + ... + a_k, где k - наименьшее число, удовлетворяющее двум условиям: k > 10 и |a_k+1| < 10^-5. Постарайтесь обойти без массивов - в задачи нет необходимости сохранения a_i.

Добавлено через 2 часа 37 минут
вот как то так, но что то мне кажется что не правильно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var x,eps,a   :real;
    k         :integer;
begin
write('x=');
readln(x);
k:=0;
a:=0;
while k<10 do
 begin
   k:=k+1;
   a:=(power(x,(2*k))*sin(power(x,k)))/sqr(k);
   writeln('a',k,'=',a:0:10);
   if abs(a)<0.00001 then k:=10;
 end;
readln
end.

Добавлено через 1 час 34 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x,eps,a,s   :real;
    k           :integer;
begin
write('x=');
readln(x);
k:=0;   //Здесь не ясно!!!
a:=0;
s:=0;
while k<10 do
 begin
   k:=k+1;
   a:=(power(x,(2*k))*sin(power(x,k)))/sqr(k);
   writeln('a',k,'=',a:0:10);
   s:=s+a;
   if abs(a)<0.00001 then k:=10;
 end;
readln
end.

Добавлено через 11 часов 41 минуту
забыл вывод суммы s после 16 строки дописать

Pascal
17
18
19
writeln('s = ',s:0:10);
readln
end.

но это неверный код программы, решение потому что при х=1.01 сумма должно равняется 1.517429, а у меня получается 1.3715454
помогите пожалуйста

@Puporev · 20.04.2017, 17:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var x,a,s   :real;
    k       :integer;
begin
write('x=');
readln(x);
k:=1;
a:=x*sin(x);
writeln('a',k,'=',a:0:6);
s:=a;
repeat
 k:=k+1;
 a:=power(x,2*k)*sin(power(x,k))/k/k;
 writeln('a',k,'=',a:0:6);
 s:=s+a;
until(k>10)and(abs(power(x,2*k+1)*sin(power(x,k+1))/(k+1)/(k+1))<0.00001);
writeln('s=',s:0:6,' k=',k,' |a',k+1,'|=',abs(power(x,2*k+1)*sin(power(x,k+1))/(k+1)/(k+1)));
end.

@Justicee · 20.04.2017, 18:03 **[ТС]**

А контрольный пример не соответствует:

Исходные данные: x=1,01
Ожидаемый результат: 1,517429

@Puporev · 20.04.2017, 18:49

Неправильно написал в строке 7, нужно

Pascal
1
a:=x*x*sin(x);

@Cyborg Drone · 20.04.2017, 19:35

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

это неверный код программы

Естественно. Есть подозрение, что Вы неверно поняли задание. Написано:

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

k > 10 и |a_k+1| < 10^-5

У Вас это не проверяется. Ну и... Использовать функцию power там, где достаточно рекуррентного соотношения - это практически из гаубицы по воробьям. Вот:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const eps = 1e-5;
      n = 10;
var x, xk, a, s: real;
    k: integer;
begin
  write('x = ');
  readln(x);
  k := 1;
  xk := x;
  a := x * x * sin(x);
  s := 0;
  repeat
    s := s + a;
    inc(k);
    xk := xk * x;
    a := xk * xk * sin(xk) / k / k
  until (k >= n) and (abs(a) < eps);
  writeln('S = ', s:0:10);
  readln
end.

Обратите внимание, a₁ вычисляется перед циклом, а в цикле на самом деле вычисляется k+1 и а_k+1, выход из цикла - при одновременном выполнении указанных в задании условий.

В программе xk - это x^k. Если нужна ненужная печать a_k, добавьте соответствующее write после repeat, если нужна ненужная печать a_k+1, то перед until.

Вообще, и a, и k, логично распечатать вместе с S после цикла, и то только для того, чтобы проконтролировать, выполнено ли условие по заданию. Причём нужно печатать k-1, поскольку k "лишний" раз инкрементируется для вычисления a_k+1.

Добавлено через 29 минут

Не по теме:

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

как требуют правила форума

Justicee, в правилах также написано, что дублирование и кросспостинг тем запрещены. То, что тема потеряла актуальность, не может быть оправданием для производства дублей: в правилах указано, что для поднятия актуальности темы достаточно написать в неё новое сообщение. То есть, написал в "упавшую" тему новое сообщение, например, из одного слова "Актуально", и тема тут же оказывается наверху списка тем раздела.

@Retsnom · 21.04.2017, 04:16

2Cyborg Drone спасибо что помогли, не дали помереть не образованным

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Justicee 1 / 1 / 0 Регистрация: 17.04.2017 Сообщений: 15

	Вычислить сумму ряда 18.04.2017, 06:13. Показов 960. Ответов 9 Метки нет (Все метки) Дано действительное число x. Последовательность a1,a2. образована по следующему закону: (Фотография текста удалена) 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	18.04.2017, 07:21
	Вы только что согласились с правилами форума и тут-же их нарушили! Смотрите раздел 5 пункт 18 : https://www.cyberforum.ru/announcement.php?a=3 0

@Justicee 1 / 1 / 0 Регистрация: 17.04.2017 Сообщений: 15
	18.04.2017, 10:39 [ТС]
	Извиняюсь не прав. 0

@Justicee 1 / 1 / 0 Регистрация: 17.04.2017 Сообщений: 15
	20.04.2017, 18:03 [ТС]
	А контрольный пример не соответствует: Исходные данные: x=1,01 Ожидаемый результат: 1,517429 0

@Retsnom 0 / 0 / 1 Регистрация: 15.08.2016 Сообщений: 17
	21.04.2017, 04:16
	2Cyborg Drone спасибо что помогли, не дали помереть не образованным 0