Добрий день. Сьогодні буде вельми простінькій урок, так що Я навіть не буду виставляти скін того, що повинно у вас вийде. На формі буде всього-то одна кнопка і один Label об'єкт. 🙂
Однак, який моторошної історією обросла ця програма. Коротше, Я примудрився писати її не 5 хвилин, як варто було б, а цілих 2 дні. Та ще й вводив масиви, які там абсолютно не потрібні. Ось бувають такі викрутаси у мізків ... 🙂 Але тут Я привожу хороший, коротенький програмний код, який прям радує око.
Ось, коли Ви Новомосковсклі ці рядки, минуло приблизно секунд п'ять. П'ять секунд мого ганьби. Але для такого відступу не шкода і потерпіти. 🙂 Ну що, готові? Приступаємо до теорії!
Рівняння типу F (x) = 0 або x = f (x) називається нелінійним. Вирішити його, значить, знайти такі х при яких це рівняння перетворюється в тотожність. У загальному випадку таке рівняння може мати від нуля до нескінченної кількості коренів. Розглянемо два методи вирішення таких рівнянь:
Завдання: Вирішити нелінійне рівняння cos (x) = 0.
Думаю Ви вже досить розбираєтеся в Delphi, щоб в цій статті Я лише вставив весь програмний код з деякими поясненнями. 😉
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
Як бачите, програма, дійсно, дуже проста ...
Скажу Вам наступне: при такому коді наша програма буде виглядати вельми простенько, Ви ж можете включити фантазію і уявити її в іншому вигляді. Чим більше будете вносити корективів в програмний код, тим краще і швидше освоїте мову! Дерзайте! 😉