|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.04.2019, 05:45 | #1 |
Пользователь
Регистрация: 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. Извините меня за такие простецкие выражения, я - начинающий. )))
Я желаю всем достигнуть поставленных целей!
|
21.04.2019, 08:07 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,759
|
Т.е. вы даже ошибку не видите?
1. На первой итерации цикла у вас будет X - X^3/5. Вас это не смущает? 2. Но главная ошибка - ! в знаменателе не для красоты стоит... |
21.04.2019, 08:36 | #3 | |
Заблокирован
Регистрация: 17.12.2018
Сообщений: 514
|
Цитата:
Надо вычислить: 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. |
|
21.04.2019, 10:08 | #4 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Код:
Последний раз редактировалось digitalis; 21.04.2019 в 10:11. |
21.04.2019, 18:14 | #5 |
Пользователь
Регистрация: 21.01.2014
Сообщений: 31
|
Спасибо Вам огромное!
Я желаю всем достигнуть поставленных целей!
|
21.04.2019, 21:27 | #6 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Огромное тебе пожалуйста. Будешь случаем в Зюзино - передай привет общаге Физтеха Я там в 75-76гг прокачивал свои skills.
Последний раз редактировалось digitalis; 22.04.2019 в 21:02. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
усовершенствовать медиаплеер 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 |