Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 21.04.2019, 06:45   #1
Iskryen
Пользователь
 
Регистрация: 21.01.2014
Адрес: Москва, Дмитровский Проезд.
Сообщений: 20
Репутация: 31

skype: telesa283
По умолчанию Помогите усовершенствовать Программу.

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

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

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

"Дано вещественное число 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, 09:07   #2
p51x
Профессионал
 
Регистрация: 15.02.2010
Сообщений: 14,487
Репутация: 2631
По умолчанию

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

Цитата:
Сообщение от 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 в 09:40.
taras-proger77 вне форума   Ответить с цитированием
Старый 21.04.2019, 11:08   #4
digitalis
Профессионал
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 1,573
Репутация: 549
По умолчанию

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

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

skype: telesa283
По умолчанию

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

Огромное тебе пожалуйста. Будешь случаем в Зюзино - передай привет общаге Физтеха Я там в 75-76гг прокачивал свои skills.
Изображения
 

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
усовершенствовать медиаплеер 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 19:59
Помогите усовершенствовать код xPAL Общие вопросы Delphi 6 20.09.2008 00:05


18:58.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru