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

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

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

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

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

Первые инструкции процедуры обеспечивают ввод значения числа, из которого вычисляется корень, и значение точности вычислений.

Затем реализуется алгоритм, рассмотренный в пункте 5.1.5.1.

Внутри цикла, после вычисления очередного приближения, дополнительно включена инструкция для вывода последовательных приближений.

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