Вычислить и распечатать значение суммы

@Ivacin · Регистрация: 17.10.2019

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

Задание 1. Вычислить и распечатать значение суммы
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{12} \frac{{(-1)}^{n}}{\sqrt{n*(n+1)}}, S=0.4250$
Задание 2. Вычислить и распечатать приближенное значение суммы, для значения x=2,
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\infty }\frac{{(-1)}^{n}*{x}^{2n+3}}{n*(n+1)!},S=-7.8535$
Задание 3. Вычислить и распечатать наименьший номер элемента последовательности, заданной рекуррентной формулой при выполнении указанного условия. $https://www.cyberforum.ru/cgi-bin/latex.cgi?{{A}_{n+1}}^{}=\frac{{A}_{n}-{A}_{n-1}}{2}$ , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{0}=1, {A}_{1}=2,\left|{A}_{n} \right|<{10}^{-3}, n=18$

При разработке программы необходимо использовать следующие конструкции: оператор присваивания, операторы ввода/вывода, арифметические операции, стандартные функции, операторы цикла. Для решения задания 1 следует использовать оператор цикла for. Для решения задания 2 следует использовать оператор цикла while, значение параметра x должно вводиться с клавиатуры, а при организации цикла следует вывести рекуррентную формулу, связывающую два последовательных элемента суммы. Суммирование прекращается, когда абсолютная величина очередного элемента суммы становится меньше $https://www.cyberforum.ru/cgi-bin/latex.cgi?{10}^{-7}$ . Для решения задания 3 следует использовать оператор цикла repeat. Для заданий 1 и 2 необходимо вычислить первые три элемента сумм, для задания 3 необходимо вычислить элементы последовательности;

@Puporev · 13.11.2019, 12:21

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var z:integer;
    s:real;
begin
z:=1;
s:=0;
for var n:=1 to 12 do
 begin
  z:=-z;
  s:=s+z/sqrt(n*(n+1));
 end;
write('S=',s:0:4)
end.

Но ответ не 0.4250, а -0.4250

Добавлено через 53 минуты
2. Здесь ответ вообще не сходится.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const x=2;
      e=0.0001;
var n:integer;
    t,s:real;
begin
n:=1;
t:=-power(x,5)/2;
s:=t/n;
while abs(t)/n>e do
 begin
  n:=n+1;
  t:=-t*x*x/(n+1);
  s:=s+t/n;
 end;
write('S=',s:0:4)
end.

Добавлено через 18 минут
3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a0,a1,an:real;
    n:integer;
begin
a0:=1;
a1:=2;
an:=(a1-a0)/2;
n:=1;//отсчет от 0
while abs(an)>0.001 do
 begin
  n:=n+1;
  an:=(a1-a0)/2;
  a0:=a1;
  a1:=an;
 end;
write('an=',an:0:5,' n=',n)
end.

@Ivacin · 14.11.2019, 15:50 **[ТС]**

А как это в одной программе записать?

@Puporev · 14.11.2019, 16:13

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
var w:char;
    n,z:integer;
    x,e,t,s,a0,a1,an:real;
begin
repeat  
 repeat
  writeln('Выберите задание 1,2,3,0-выход');
  readln(w);
 until w in['0'..'3']; 
case w of
  '1':begin
      z:=1;
      s:=0;
      for var i:=1 to 12 do
       begin
        z:=-z;
        s:=s+z/sqrt(i*(i+1));
       end;
      writeln('S=',s:0:4)
      end;
  '2':begin  
      x:=2;
      e:=0.0001;
      n:=1;
      t:=-power(x,5)/2;
      s:=t/n;
      while abs(t)/n>e do
       begin
        n:=n+1;
        t:=-t*x*x/(n+1);
        s:=s+t/n;
       end;
      writeln('S=',s:0:4)
      end; 
  '3':begin
      a0:=1;
      a1:=2;
      an:=(a1-a0)/2;
      n:=1;//отсчет от 0
      while abs(an)>0.001 do
       begin
        n:=n+1;
        an:=(a1-a0)/2;
        a0:=a1;
        a1:=an;
       end;
      writeln('an=',an:0:5,' n=',n)  
      end;
   '0':exit;   
  end; 
until w='0'
 
end.

@Ivacin · 22.11.2019, 17:22 **[ТС]**

Помогите еще пожалуйста, можно как то без power написать? то есть заменить как нибудь

@Puporev · 22.11.2019, 17:27

power(x,5)/2=x*x*x*x*x/2

@Ivacin · 22.11.2019, 17:59 **[ТС]**

спасибо большое

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Ivacin 0 / 0 / 0 Регистрация: 17.10.2019 Сообщений: 17

	Вычислить и распечатать значение суммы 12.11.2019, 20:17. Показов 1964. Ответов 6 Метки нет (Все метки) Задание 1. Вычислить и распечатать значение суммы $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{12} \frac{{(-1)}^{n}}{\sqrt{n(n+1)}}, S=0.4250$ Задание 2. Вычислить и распечатать приближенное значение суммы, для значения x=2, $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\infty }\frac{{(-1)}^{n}{x}^{2n+3}}{n*(n+1)!},S=-7.8535$ Задание 3. Вычислить и распечатать наименьший номер элемента последовательности, заданной рекуррентной формулой при выполнении указанного условия. $https://www.cyberforum.ru/cgi-bin/latex.cgi?{{A}_{n+1}}^{}=\frac{{A}_{n}-{A}_{n-1}}{2}$ , $https://www.cyberforum.ru/cgi-bin/latex.cgi?{A}_{0}=1, {A}_{1}=2,\left\|{A}_{n} \right\|<{10}^{-3}, n=18$ При разработке программы необходимо использовать следующие конструкции: оператор присваивания, операторы ввода/вывода, арифметические операции, стандартные функции, операторы цикла. Для решения задания 1 следует использовать оператор цикла for. Для решения задания 2 следует использовать оператор цикла while, значение параметра x должно вводиться с клавиатуры, а при организации цикла следует вывести рекуррентную формулу, связывающую два последовательных элемента суммы. Суммирование прекращается, когда абсолютная величина очередного элемента суммы становится меньше $https://www.cyberforum.ru/cgi-bin/latex.cgi?{10}^{-7}$ . Для решения задания 3 следует использовать оператор цикла repeat. Для заданий 1 и 2 необходимо вычислить первые три элемента сумм, для задания 3 необходимо вычислить элементы последовательности; 0

@Ivacin 0 / 0 / 0 Регистрация: 17.10.2019 Сообщений: 17
	14.11.2019, 15:50 [ТС]
	А как это в одной программе записать? 0

@Ivacin 0 / 0 / 0 Регистрация: 17.10.2019 Сообщений: 17
	22.11.2019, 17:22 [ТС]
	Помогите еще пожалуйста, можно как то без power написать? то есть заменить как нибудь 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.11.2019, 17:27
	Сообщение было отмечено ZX Spectrum-128 как решение Решение power(x,5)/2=xxxxx/2 0

@Ivacin 0 / 0 / 0 Регистрация: 17.10.2019 Сообщений: 17
	22.11.2019, 17:59 [ТС]
	спасибо большое 0

Вычислить и распечатать значение суммы

Решение