Сегодня на форуме кто-то разместил задачу о вычислении значения выражения с косинусами и иксами в некоей степени. И она стала темой данной статьи. Почему я решила остановиться на этой задаче? Потому что в программировании на Delphi есть некая заковыка, связанная с общепринятыми символьными обозначениями. К примеру, все мы знаем, как выглядят плюсы и минусы, умножение и деление, а вот возведение в степень при помощи верхней крышечки (вот такой - ^) в Delphi, увы, не работает.
Зато существует совершенно замечательная функция Power(), аргументами которой является возводимое в степень число и, собственно, сам показатель степени.
Обратите внимание, что воспользоваться данной функцией вы сможете, только упомянув в uses библиотеку math. Эта библиотека вообще создана для упрощения математических расчетов, поэтому в случае получения заданий на чистую математику не брезгуйте справкой. Выделяйте math и нажимайте F3 - перечень доступных к применению функций широк настолько, что, казалось бы, сложная задача укладывается в одно действие.
Но вернемся к конкретному примеру решения.
Требуется вычислить значение следующей функции: Y(X)=cos(X)+cos(X)*(X)+cos(X)*(X)*(X)+...+cos(X)*(X)^n
Х, n - данные, вводимые пользователем.
Алгоритм решения задания расписывать не вижу смысла, и сразу размещаю delphi исходники:
for i := 0 to n do
A:=A+cos(X)*power(X,i);
Все.
Если возникли вопросы, или же трудность вызывает какая-либо другая программа, предлагаю воспользоваться моими услугами в написании программы на заказ. Контакты - тут.
| 