Вычислить значение бесконечной суммы S(x) по формуле

25.11.2012, 13:47. **Показов** 3066. **Ответов** 3

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

Помогите пожалуйста написать код программы для задачи
1) Ввести ОДНО значение х (например, х=1) и вычислить значение бесконечной суммы S(x) по формуле из первого столбца с точностью e=0.001 (т.е., вычислять сумму до тех пор, пока очередное СЛАГАЕМОЕ НЕ БУДЕТ по модулю меньше точности e=0.001. Затем, используя стандартные функции Паскаля, вычислить соответствующее значение функции из столбца y(x) и оба результата вывести на экран.
S(x) = Вложение 205057
y(x)= Название: ии.png
Просмотров: 316

Размер: 791 байт

Название: ии.png
Просмотров: 316

Размер: 791 байт

Вот что написал я, но почему не работает не знаю

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program abc;
var x, n, nf, i:integer;
e, s, y :real;
begin
readln (x);
e:=0.001;
s:=10;
n:=0;
while (abs(s)<=e) do
begin
begin
nf:=1;
for i:=0 to n do
nf:=n+n*(i+1);
end;
y:=sin(x)/x;
s:=exp(ln(-1)*x)*exp(ln(x)*2*n)/(2*n+1);
end;
writeln ('вывод:',x, y, s);
end.

@Yurek · 25.11.2012, 14:05

Так что там в задании? Вложение не доступно.
У тебя begin там не лишний, случайно?
Логарифм от -1 брать - это зачёт, однозначно

25.11.2012, 14:23

я вообще не понимаю паскаль...
как понять "неверная вещественная строка"
и может кто нибудь записать на паскале правильно формулу S(x) а то я не знаю как

Добавлено через 2 минуты
s(x) = http://skripters.biz/uploads/f... 834221.png

@Yurek · 25.11.2012, 15:58

Число (-1) просто вынеси из выражения, поставь как множитель. Поскольку этот ряд имеет чередующиейся по знаку элементы - чётный элемент положителен, нечётный отрицателен, то удобно получать это чередование умножением (-1) на предшествующее его значение. Если оно было тоже отрицательным, то будет умножено (-1)*(-1)=1, если положительное, то (-1)*1=-1.
Ещё один момент, который надо учесть - вычисление факториала для каждого элемента ряда. Видимо это надо вынести длч удобства в функцию.
Вот эта часть кода "exp(ln(-1)*x)" можешь смело удалить.
Про переменную nf не понял. Наверное это попытка вычислить факториал, по-моему там что-то не так, не буду пока вникать, но по-любому, ты его дальше не используешь, а ведь надо

Добавлено через 7 минут
Сочетание строк

Pascal
1
2
3
s := 10;
...
while (abs(s) <= e) do

Приводит к тому, что цикл while ни разу не срабатывает со всеми вытекающими...

Добавлено через 16 минут
Само условие abs(s) <= e неверное. Цикл типа while выполняется пока условие правдивое. В нашем случае вычисления должны производиться пока очередной член ряда превышает Эпсилон (e). У тебя записано всё наоборот.
С вычислением факториала тоже беда. Напоминаю, что суть факториала в этом: k!=1*2*3*4...*k.
В программе ещё присутствует путаница между n и i.
Разберись, хотя проще начать новую программу чтобы уже написаное не мешало

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Yurek 181 / 179 / 23 Регистрация: 29.08.2012 Сообщений: 489
	25.11.2012, 14:05
	Так что там в задании? Вложение не доступно. У тебя begin там не лишний, случайно? Логарифм от -1 брать - это зачёт, однозначно 0

anton47
	25.11.2012, 14:23
	я вообще не понимаю паскаль... как понять "неверная вещественная строка" и может кто нибудь записать на паскале правильно формулу S(x) а то я не знаю как Добавлено через 2 минуты s(x) = http://skripters.biz/uploads/f... 834221.png