Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.04.2019, 05:45   #1
Iskryen
Пользователь
 
Регистрация: 21.01.2014
Сообщений: 31
По умолчанию Помогите усовершенствовать Программу.

Здравствуйте!

Помогите, пожалуйста, усовершенствовать Программу.

Задание следующее.

"Дано вещественное число X и целое число N>0. Найти значение выражения
X-X^3/(3!)+X^5/(5!)-...+(-1)^N*X^2*N+1/((2*N+1)!)*(N!=1*2...N)".

Я вроде бы решил эту Задачу.

Вот моё Решение:

Uses Crt;
var i, N: integer;
Sum, a, x, z: real;
Begin
Write ('Введите N: ');
readln (N);
Write ('Введите X');
Readln (x);
z:=Sqr (x);
a:=x;
Sum:=x;
for i:=2 to N do
Begin
a:=-a*z;
Sum:=Sum + a/(2*i+1)
End;
Writeln;
Writeln ('Значение Суммы', Sum);
End.

Но мой Преподаватель придрался к Строчке: Sum:=Sum + a/(2*i+1)

Вопрос к Вам следующий.

Как задать Значение "i" по другому?

Заранее спасибо!

PS Я так понял, что его не устроила запись 2i и он хочет, чтобы i было просто i.

Извините меня за такие простецкие выражения, я - начинающий. )))
Я желаю всем достигнуть поставленных целей!
Iskryen вне форума Ответить с цитированием
Старый 21.04.2019, 08:07   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Т.е. вы даже ошибку не видите?
1. На первой итерации цикла у вас будет X - X^3/5. Вас это не смущает?
2. Но главная ошибка - ! в знаменателе не для красоты стоит...
p51x вне форума Ответить с цитированием
Старый 21.04.2019, 08:36   #3
taras-proger77
Заблокирован
 
Регистрация: 17.12.2018
Сообщений: 514
По умолчанию

Цитата:
Сообщение от Iskryen Посмотреть сообщение
Но мой Преподаватель придрался к Строчке: Sum:=Sum + a/(2*i+1)

Вопрос к Вам следующий.

Как задать Значение "i" по другому?
Во-первых по кому другому? А во-вторых задачу ты не решил.
Надо вычислить:
X-X^3/(3!)+X^5/(5!)-X^7/(7!)+...+((-1)^N)*(X^(2N+1))/((2N+1)!)
X-X^3/(1*2*3)+X^5/(1*2*3*4*5)-X^7/(1*2*3*4*5*7)+...+((-1)^N)*(X^(2N+1))/((2N+1)!)/((2N+1)!)
что посчитал?
X-X^3/3+X^4/(3*5)-X^5/(3*5*7)+...+((-1)^2)*(X^(N+2))/(f(2N+1)), где f – произведение всех нечётных чисел от 1 до значения аргумента. В противоположность факториалу, равному произведению всех чисел от 1 до значения аргумента. Так что Ваша программа называется «у меня есть решение, но к задаче оно не подходит». То есть Вы решили, да. Но не задачу, а что-то своё.

Последний раз редактировалось taras-proger77; 21.04.2019 в 08:40.
taras-proger77 вне форума Ответить с цитированием
Старый 21.04.2019, 10:08   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Код:
for i:=1 to N do
Begin
a:=-a*z;
Sum:=Sum + a/((2*i)*(2*i+1))
End;
Как-то так. А то, что "Программа" написано с прописной - хорошо. Значить, уважает !

Последний раз редактировалось digitalis; 21.04.2019 в 10:11.
digitalis на форуме Ответить с цитированием
Старый 21.04.2019, 18:14   #5
Iskryen
Пользователь
 
Регистрация: 21.01.2014
Сообщений: 31
По умолчанию

Спасибо Вам огромное!
Я желаю всем достигнуть поставленных целей!
Iskryen вне форума Ответить с цитированием
Старый 21.04.2019, 21:27   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

Огромное тебе пожалуйста. Будешь случаем в Зюзино - передай привет общаге Физтеха Я там в 75-76гг прокачивал свои skills.
Изображения
Тип файла: jpg zju.jpg (14.6 Кб, 77 просмотров)

Последний раз редактировалось digitalis; 22.04.2019 в 21:02.
digitalis на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
усовершенствовать медиаплеер C++ carrie bradshaw Помощь студентам 1 03.02.2014 22:35
Усовершенствовать макрос kain151 Microsoft Office Word 5 19.12.2013 15:39
Кто может усовершенствовать программу для разбинаривания 3D моделей? OFPman Gamedev - cоздание игр: Unity, OpenGL, DirectX 0 24.03.2011 18:59
Помогите усовершенствовать код xPAL Общие вопросы Delphi 6 20.09.2008 00:05