logo search
Методичка_Delphi_Ч1

Процедура вычисления синуса

Следует заметить, что для вычисления синуса, так же как и в предыдущем случае, правильнее было бы написать функцию, или процедуру, которая возвращала бы значение корня. Мы же напишем процедуру, которая будет вызываться по событию onClick для кнопки «Синус».

Рассматриваемая процедура, представленная на рисунке 5.11, ничего не возвращает, но она вычисляет синус и выводит его в текстовое поле для результата. Кроме того, она, для проверки, выводит значение синуса, найденное с помощью стандартной процедуры.

Перед вычислением синуса в процедуре добавлен цикл уменьшения значения х. Это сделано для того, чтобы избежать переполнения или потери значащих цифр при больших значениях х. В этом цикле переменная х уменьшается каждый раз на величину периода синуса, который равен 2π. Цикл работает до тех пор, пока абсолютная величина х не станет меньше, чем 2π.

Процедура также обеспечивает вывод последовательных значений членов и суммы ряда в компонент MemoSteps.

Рисунок 5.11 - Процедура вычисления синуса