1.3 Математична модель задачі

Для обчислення доходу фірми застосовується формула:

y = 100 * (((x - 1.7) * Sin(5 * x)) / ((2 * x + 3) * (x + 8)) + 5.3 * Exp(-x))

Для визначення суми прибутків в заданих межах:

Sp = 0

If y > 0 And y < 710 ThenSp = Sp + y

If Sp> 0 Then Cells(16, 4) = Sp Else Cells(16, 4) = "Прибутків в межах не було"

Для визначення максимального збитку та його року:

Zmax = 0

If y < 0 And y <ZmaxThenZmax = y

If y < 0 And y <= ZmaxThenCells(17, 4) = x ElseCells(17, 4) = "Збитків не було"

IfZmax< 0 ThenCells(18, 4) = ZmaxElseCells(18, 4) = " Збитків не було "

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

Алгоритми розв’язування задачі в Excel та VBA будуть різними. Тому існує необхідність зазначити, що даний алгоритм є застосовним для розрахунку у VBA:

Початок алгоритму. Оголошення величин

Задати початкові значення величин (Sp = 0;Zmax = 0)

Задати цикл за параметром і, значення якого змінюються від 1 до 12

Ввести адресу х

Порахувати у за формулоюy = 100 * (((x - 1.7) * Sin(5 * x)) / ((2 * x + 3) * (x + 8)) + 5.3 * Exp(-x))

Вивести у

Перевірити умову, якщо у>0, то A = "Фірма мала прибуток"

Перевірити умову, якщо у<0, то A = "Фірма мала збиток"

Перевірити умову, якщо у=0, то A = "Фірма мала нульовий баланс"

Вивести А

Перевірити умову, якщо y> 0 та y< 710 то Sp = Sp + y

Перевірити умову, якщо y< 0 та y<Zmax, то Zmax = y,

Перевірити умову, якщо y <0 та y <=Zmax , то вивести = x , в іншому випадку вивести "збитків не було"

Наступне коло циклу

Перевірити умову, якщо Zmax< 0, то вивести Zmax, в іншому випадку вивести " збитків не було"

Перевірити умову, якщо Sp> 0, то вивести Sp, в іншому випадку вивести " прибутків в межах не було"

Кінець алгоритму

1.5 Блок-схема

y_i<Zmax

5

4

+

x

Sp=Sp+y_i

5

4

Розділ 2. Реалізація алгоритму та аналіз даних в ms excel

2.1 Опис формул засобами ms Excel

Для обчислення доходу фірми використовується формула:

=100*(((B4-1,7)*SIN(5*B4))/((2*B4+3)*(B4+8))+5,3*EXP(-B4))

(Додаток А)

Для визначення суми прибутків в заданих межах:

=СУММЕСЛИМН(C4:C15;C4:C15;">0";C4:C15;"<710")

(Додаток В)

Для визначення року максимального збитку:

=ЕСЛИ(СЧЁТЕСЛИ(C4:C15;"<0");ИНДЕКС(B4:B15;ПОИСКПОЗ(МИН(C4:C15);C4:C15;0));"немає збитків")

(Додаток С)

Для визначення максимального збитку:

=МИН(C4:C15;0)

(Додаток D)

2.2 Таблиця розрахунків в ms Excel

Рік	Дохід	Аналіз доходу
2000	-0,0076	фірма мала збиток
2001	0,0205	фірма мала прибуток
2002	0,0192	фірма мала прибуток
2003	-0,0096	фірма мала збиток
2004	-0,0247	фірма мала збиток
2005	-0,0044	фірма мала збиток
2006	0,0221	фірма мала прибуток
2007	0,0169	фірма мала прибуток
2008	-0,0125	фірма мала збиток
2009	-0,0240	фірма мала збиток
2010	-0,0011	фірма мала збиток
2011	0,0234	фірма мала прибуток
Сума прибутків в межах від 0 до 710 у.о.	0,1022	фірма мала збитки
Рік, у якому був максимальний збиток	2004
Максимальний збиток	-0,0247

2.3 Графічний аналіз даних

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

3.1 Опис форми з елементами управління обчисленням

Для обчислення використовувалась кнопка Gaydych до якої прив’язаний код процедури

3.2 Опис використаних процедур та функцій користувача

Для розрахунків використовувалась процедура Gaydych, створена у VBA

Private Sub Gaydych_Click()

Dim x, y, Sp, Zmax, A As Variant

Dim iAs Integer

Sp = 0

Zmax = 0

For i = 1 To 12

x = Cells(3 + i, 3)

y = 100 * (((x - 1.7) * Sin(5 * x)) / ((2 * x + 3) * (x + 8)) + 5.3 * Exp(-x))

Cells(3 + i, 4) = y

If y > 0 Then A = "фірма мала прибуток"

If y < 0 Then A = "фірма мала збиток"

Ify = 0 Then A = "фірма мала нульовий баланс"

Cells(3 + i, 5) = A

If y > 0 And y < 710 Then Sp = Sp + y

If y < 0 And y <Zmax Then Zmax = y

If y < 0 And y <= Zmax Then Cells(17, 4) = x Else Cells(17, 4) = "Збитків не було"

Next

If Zmax< 0 Then Cells(18, 4) = Zmax Else Cells(18, 4) = "Збитків не було"

If Sp> 0 Then Cells(16, 4) = Sp Else Cells(16, 4) = "Прибутків в межах не було"

EndSub

(ДодатокЕ)