Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 24.03.2020
Сообщений: 55

Составьте программу вычисления суммы

25.03.2020, 07:57. Показов 2153. Ответов 4

Студворк — интернет-сервис помощи студентам
Составьте программу вычисления суммы(для натуральных чисел k,n,m,p, вещественных x и a>1)
https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=m}^{p}\left\frac{((({-1}^{k+1})/{k!})*{x}^{2k+1})
https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{p}(\frac{{-1}^{n+1}*2n}{(n+1)!}*{x}^{2n})
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.03.2020, 07:57
Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f типа reals, type = file of...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл последовательного доступа N...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of real; i,j:byte; begin ...

4
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
25.03.2020, 10:26
MariaEst,
4.3.Создавайте темы с осмысленными и понятными названиями - это серьезно повышает шансы, что на ваш вопрос ответят.
5.4.Запрещено создавать темы с бессмысленными названиями вроде "Помогите!", "Вопрос" и т.п.
https://www.cyberforum.ru/announcement.php?a=3
1
Модератор
10410 / 5697 / 3401
Регистрация: 17.08.2012
Сообщений: 17,350
31.03.2020, 14:17
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Какое ещё a>1, где оно у Вас?

Полагаю, что формулы Вы написали не точно. Думаю, вот так правильно:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sum_{k=m}^{p}\frac{(-1)^{k+1}x^{2k+1}}{k!}=\sum_{k=m}^{p}a_k<br />

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sum_{n=1}^{p}\frac{2n(-1)^{n+1}x^{2n}}{(n+1)!}=\sum_{n=1}^{p}b_n<br />

Найдём рекуррентные соотношения.

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\left(a_1=x^3 \right);\ \ a_k=\frac{(-1)^{k+1}x^{2k+1}}{k!};\ \ a_{k-1}=\frac{(-1)^kx^{2k-1}}{(k-1)!};\\\\\frac{a_k}{a_{k-1}}=\frac{\frac{(-1)^{k+1}x^{2k+1}}{k!}}{\frac{(-1)^kx^{2k-1}}{(k-1)!}}=\frac{-x^2}{k}\ \Rightarrow \ \boxed{a_k=\frac{-x^2a_{k-1}}{k}}<br />

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
b_1=x^2;\ \ b_n=\frac{2n(-1)^{n+1}x^{2n}}{(n+1)!};\ \ b_{n-1}=\frac{2(n-1)(-1)^nx^{2n-2}}{n!};\\\\\frac{b_n}{b_{n-1}}=\frac{\frac{2n(-1)^{n+1}x^{2n}}{(n+1)!}}{\frac{2(n-1)(-1)^nx^{2n-2}}{n!}}=\frac{-nx^2}{(n-1)(n+1)}\ \Rightarrow \ \boxed{b_n=\frac{nx^2b_{n-1}}{(1-n)(n+1)}}<br />

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
var
  k, m, n, p: integer;
  x, a, sa, b, sb: real;
begin
  write('m = ');
  readln(m);
  write('p = ');
  readln(p);
  write('x = ');
  readln(x);
  a := x * x * x;
  for k := 2 to m - 1 do a := -x * x * a / k;
  sa := 0
  for k := m to p do
    begin
      a :=  -x * x * a / k;
      sa := sa + a
    end;
  b := x * x;
  sb := b;
  for n := 2 to p do
    begin
      b := n * x * x * b / (1 - n) / (n + 1);
      sb := sb + b
    end;
  writeln('Sa = ', sa);
  writeln('Sb = ', sb)
end.
1
0 / 0 / 0
Регистрация: 24.03.2020
Сообщений: 55
01.06.2020, 20:09  [ТС]
При проверке выявили, что в числителе пропущена -1
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
04.06.2020, 11:02
Цитата Сообщение от MariaEst Посмотреть сообщение
При проверке выявили, что в числителе пропущена -1
Отчего же сразу вы не сообщили?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
04.06.2020, 11:02
Помогаю со студенческими работами здесь

Переделайте, пожалуйста, программу из Turbo pascal в ABC pascal
Помогите, пожалуйста, перевести из PASCAL TURBO в PASCAL ABC Program ProgInt; Uses Crt, Graph; Var Punkt : Byte; Knopka :...

Переписать код из Turbo Pascal в Pascal ABC
program zadacha; uses crt, graph; const m=50; var gd,gm,i,j,s1,s2,c1,c2: integer; z,x,y,x1,y1,x2,y2,h: real; t: array of...

Переписать программу с Turbo Pascal на Pascal ABC
Здравствуйте, не могли бы помочь переписать программу с Turbo Pascal на Pascal ABC. Хоть убейте не могу запустить на Turbo. Программа...

Переписать код из Turbo Pascal в Pascal ABC
Программа 1: program zadacha; uses crt, graph; const m=150; var gd,gm,i,j,s1,s2,c: integer; z,x,y: real; t: array of pointtype; ...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в Pascal ABCprogram zadacha; uses crt, graph; const m=150; var gd,gm,i,j,s1,s2,c1,c2: integer; z,x,y:...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru