тся натисканням кнопок F '(X), F "(X), F (X)
вводяться коефіцієнти
Виводить на екран вікно введення коефіцієнтів
ГРАФІК
Виводить графік функції
ПОШУК КОРНЕЙ
Відображає вікно, керуюче пошуком коренів
ПРО ПРОГРАМУ
Виводить вікно В«Про програмуВ»
ВИХІД
Завершує роботу програми, предварітельнозадавая питання про збереження змін
Введення коефіцієнтів здійснюється наступним чином: у вікні є 2 поля - одне для вказівки ступеня, інше для введення власне коефіцієнта. Якщо Ви вже вводили деяку функцію, то для її видалення натисніть кнопку "очистити", для запам'ятовування коефіцієнта натисніть "Ок", для завершення введення - "завершити".
Пошук коренів спрощений до межі. Вам достатньо вказати неоюходімую точність і вибрати метод пошуку: бісекціоний або комбінований.
6 .5. Вихідний текст програми
UNIT1
Dim curcell As Range
Dim ma As Double
Dim Ao As Double
Public Function F (x As Variant)
F = (x ^ 20 * Range ("a20"). Value) + (x ^ 19 * Range ("a19"). Value) + (x ^ 18 * Range ("a18"). Value) + (x ^ 17 * Range ("a17"). Value) + (X ^ 16 * Range ("a16"). Value) + (x ^ 15 * Range ("a15"). Value) + (x ^ 14 * Range ("a14"). Value) + (x ^ 13 * Range ("a13"). Value) + (x ^ 12 * Range ("a12"). Value) + (X ^ 11 * Range ("a11"). Value) + (x ^ 10 * Range ("a10"). Value) + (x ^ 9 * Range ("a9"). Value) + (x ^ 8 * Range ("a8"). Value) + (x ^ 7 * Range ("a7"). Value) + (x ^ 6 * Range ("a6"). Value) + (x ^ 5 * Range ("a5"). Value) + (x ^ 4 * Range ("a4"). Value) + (x ^ 3 * Range ("a3"). Value) + (x ^ 2 * Range ("a2"). Value) + (x * Range ("a1"). Value) + Range ("a21"). Value
End Function
Public Function F1 (x As Variant)
F1 = (x ^ 20 * Range ("j20"). Value) + (x ^ 19 * Range ("j19"). Value) + (x ^ 18 * Range ("j18"). Value) + (x ^ 17 * Range ("j17"). Value) + (X ^ 16 * Range ("j16"). Value) + (x ^ 15 * Range ("j15"). Value) + (x ^ 14 * Range ("j14"). Value) + (x ^ 13 * Range ("j13"). Value) + (x ^ 12 * Range ("j12"). Value) + (X ^ 11 * Range ("j11"). Value) + (x ^ 10 * Range ("j10"). Value) + (x ^ 9 * Range ("j9"). Value) + (x ^ 8 * Range ("j8"). Value) + (x ^ 7 * Range ("j7"). Value) + (x ^ 6 * Range ("j6"). Value) + (x ^ 5 * Range ("j5"). Value) + (x ^ 4 * Range ("j4"). Value) + (x ^ 3 * Range ("j3"). Value) + (x ^ 2 * Range ("j2"). Value) + (x * Range ("j1"). Value) + Range ("j21"). Value
End Function
Public ...
