Алгоритм розв’язування завдання

 

Початок

Задайте значення x, y, z

Якщо х<y, то F=

Якщо х>y, то F=

Вивести значення F, якщо х= у, то вивести повідомлення «Поза зоною досліджень»

Кінець

 

 

Побудувати блок-схему

 

 

+

F=

F=

Вивести «поза зоною досліджень»

Вивести F

Кінець

Початок

Ввести х,у,z

x<y

-

+

-

x>y

 

 

Зробити опис процедур і функцій

В даному прикладі використовується функція натурального логарифма,яка в MS Excel задається як стандартна функція ln. Засобами мови VBA натуральний логарифм позначається як log. Також застосовується експонента, яка в MS Excel задається як стандартна функція exp. Засобами мови VBA експонента позначається також як exp. Крім того, використовується функція синуса, яка в MS Excel задається як стандартна функція sin. Засобами мови VBA синус позначається як sin.

 

РОЗДІЛ 2.РЕАЛІЗАЦІЯ ОБЧИСЛЮВАЛЬНИХ АЛГОРИТМІВ ТА АНАЛІЗ ДАНИХ В MS EXCEL

Розрахунки в MS Excel

Для обрахування функції в MS Excel користувачу необхідно задати формулу, за якою відбуватимуться розрахунки. В даному випадку формула буде мати такий вигляд:

=ЕСЛИ(D12<$E$9; (SIN(D12))^2 +(COS($E$9))^2; ЕСЛИ(D12>$E$9; (((D12-$E$9)^(-2) - LN($E$10)))/$E$10*LN(D12-$E$9); "Поза зоною дослідження"))

Побудувати графік функціональної залежності

Описати етапи розв’язування завдання в MS Word

При розв’язуванні завдання в MS Excel ми спочатку записуємо функцію, яку необхідно розв’язати. Другим кроком буде складання таблиці із довільними значеннями х та значеннями обрахунків функції, залежних від цих х. Заповнення другого стовпця таблиці відбувається за допомогою формули для обрахування значення функції.

=ЕСЛИ(D12<$E$9; (SIN(D12))^2 +(COS($E$9))^2; ЕСЛИ(D12>$E$9; (((D12-$E$9)^(-2) - LN($E$10)))/$E$10*LN(D12-$E$9); "Поза зоною дослідження"))

при цьому ми вводимо значення констант для обрахування функції. За отриманими даними таблиці ми складаємо графік функції.

Таким чином, ми розв’язуємо завдання за допомогою формули та показуємо цей розв’язок графічно.

РОЗДІЛ 3.ОСНОВИ ОФІСНОГО ПРОГРАМУВАННЯ

Опис структури програми і даних в MS Word

Початок процедури

Оголошення типів змінних

Присвоєння «у» значення з комірки Excel

Присвоєння «z» значення з комірки Excel

Завдання меж циклу для змінної «і»

Присвоєння «х» значення комірок Excel

Обчислення F за умови, коли х>y

Обчислення F за умови, коли x<y

Визначення F за умови, коли x=y

Виведення значення F в комірку Excel

Перехід на наступний етап циклу

Вихід з процедури

Розрахунки в VBA

Код для кнопки «Розрахувати»:

Sub Кнопка2_Щелчок()

Dim x, y, z, F As Variant

Dim i As Integer

y = Cells (9, 3)

z = Cells (10, 3)

For i = 1 To 15

x = Cells (11 + i, 2)

If x < y Then F = 1 / 5 * y * Exp(-(x - 2) / 50)

If x > y Then F = (Log(x - y) + 0.1 * z) / (Sin(x) ^ 2 + 0.5 * z)

If x = y Then F = "Поза зоною дослідження"

Cells (11 + i, 3) = F

Next

End Sub

 

Код для кнопки «Очистити»:

Sub VBA_Кнопка3_Щелчок()

Dim i As Integer

For i = 1 To 15

Cells (11 + i, 3) = clene

Next

End Sub