Вычислить значение функции и суммы

@HPB · Регистрация: 20.07.2012

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

Добрый день. Помогите пожалуйста .
Не могу разобраться с суммами под номером 7)
Натолкните на "истину"

Благодарю.

Кликните здесь для просмотра всего текста

@HPB · 13.10.2014, 19:43 **[ТС]**

1+cosX/1!+cos2X/2!....+x(n)+cos(nx)/n!!\

@Puporev · 13.10.2014, 19:46

Напиши полное задание руками и формулы в редакторе под окном сообщений, а эту немую картину повесь себе в изголовье...

@HPB · 13.10.2014, 20:31 **[ТС]**

Вычислить значение функции y(x) и суммы S(x) на отрезке [a; b] с шагом h=0.1.
Вывести на печать таблицу значений x, y и S.
Сумма S является приближенным значением функции на заданном интервале. Поэтому если программа составлена правильно, то значения y и S должны быть примерно одинаковыми.

Добавлено через 3 минуты
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y={e}^{cosx} * cos (\sin x)$
функция y(x)

Добавлено через 5 минут
$https://www.cyberforum.ru/cgi-bin/latex.cgi?1+\frac{\cos x}{1}+\frac{cos2x}{2}+...\frac{cos(nx)}{n}$
для суммы , h=10 [a;b](0.1;1)

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

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
uses crt;
const n=10;
      a=0.1;
      b=1.0;
var x,t,s,y:real;
    i:integer;
begin
writeln('---------------------------');
writeln('|  x  |    s    |    y    |');
writeln('---------------------------');
x:=a;
while x<=b do
 begin
  s:=0;
  t:=0.1;
  for i:=1 to n do
   begin
    t:=t*x;
    s:=s+t*i*(i+2);
   end;
  y:=1+(cos(x)/1)+(cos(2*x)/2);
  writeln('|',x:4:1,' |',s:8:3,' |',y:8:3,' |');
  x:=x+0.1
 end;
 writeln('---------------------------');
 end.

так будет выглядеть для суммы?

@Puporev · 13.10.2014, 20:56

Вроде просто, но почему-то сходимость скверная,такое ощущение что ошибки в формулах...

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
uses crt;
const n=10;
      a=0.1;
      b=1.0;
      h=0.1;
function y(x:real):real;
begin
y:=exp(cos(x))*cos(sin(x))
end;
function s(x:real):real;
var i:integer;
    sm:real;
begin
sm:=1;
for i:=1 to n do
sm:=sm+cos(i*x)/i;
s:=sm
end;
var x:real;
begin
writeln('---------------------------');
writeln('|  x  |    s    |    y    |');
writeln('---------------------------');
x:=a;
while x<=b do
 begin
  writeln('|',x:4:1,' |',s(x):8:3,' |',y(x):8:3,' |');
  x:=x+h
 end;
writeln('---------------------------');
end.

@HPB · 13.10.2014, 21:30 **[ТС]**

Благодарю вас.
А можно еще один вопрос.
Допустим мне нужно (-1) возвести в n степень , как это сделать?

Добавлено через 8 минут
Еще кажется я понял ошибку
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{cos(nx)}{n!}$
забыл про факт
я вот так написал , но тоже значения совсем не близкие :С

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
[SPOILER]Program series;
uses crt;
var y,s,x:real;
i:integer;
const n=10;
h=0.1;
a=0.1;
b=1.0;
e=2.7182818;
 
function fact(r : Integer) : Integer;
begin
if r <= 1 then fact := 1 else
fact := fact(r - 1) * r;
end;
begin
x:=a;
while x<=b do begin
y:=power(e,cos(x))*cos(sin(x));
s:=1;
for i:=1 to n do
s:=(s+cos(i*n)/ fact(i));
WriteLn(x:5:1, ' ',y:15:5, ' ',s:15:5) ;
x := x + h;
end;
ReadLn;
End.[/SPOILER]

@Puporev · 14.10.2014, 08:41

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
uses crt;
const n=10;
      a=0.1;
      b=1.0;
      h=0.1;
function y(x:real):real;
begin
y:=exp(cos(x))*cos(sin(x))
end;
function s(x:real):real;
var i:integer;
    t,sm:real;
begin
sm:=1;
t:=1;
for i:=1 to n do
 begin
  t:=t/i;
  sm:=sm+cos(i*x)*t;
 end;
s:=sm
end;
var x:real;
begin
writeln('---------------------------');
writeln('|  x  |    s    |    y    |');
writeln('---------------------------');
x:=a;
while x<=b do
 begin
  writeln('|',x:4:1,' |',s(x):8:3,' |',y(x):8:3,' |');
  x:=x+h
 end;
writeln('---------------------------');
end.

@bormant · 14.10.2014, 15:15

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

Допустим мне нужно (-1) возвести в n степень , как это сделать?

Подобным образом достигается всего лишь чередование знака:

Pascal
1
2
3
4
5
6
7
8
9
var
  i, sg: Integer;
...
  sg:=-1; { или 1, смотря какой должен быть знак у первого эл-та }
  for i:=1 to n do begin
...
    s:=s+sg*();
    sg:=-sg;
  end;

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@HPB 26 / 26 / 4 Регистрация: 20.07.2012 Сообщений: 399 Записей в блоге: 1

	Вычислить значение функции и суммы 13.10.2014, 19:34. Показов 1357. Ответов 7 Метки нет (Все метки) Добрый день. Помогите пожалуйста . Не могу разобраться с суммами под номером 7) Натолкните на "истину" Благодарю. Кликните здесь для просмотра всего текста 0

@HPB 26 / 26 / 4 Регистрация: 20.07.2012 Сообщений: 399 Записей в блоге: 1
	13.10.2014, 19:43 [ТС]
	1+cosX/1!+cos2X/2!....+x(n)+cos(nx)/n!!\ 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.10.2014, 19:46
	Напиши полное задание руками и формулы в редакторе под окном сообщений, а эту немую картину повесь себе в изголовье... 1

Вычислить значение функции и суммы

Решение