Програмування розгалужених алгоритмів

Лабораторна робота №14

Програмування розгалужених алгоритмів

Дано: обчислити величину y = F+1/2

Де, F = { z,z>0,

0,-1≤z≤0,

z^2,z<-1,)┤ z = x^9+5x,x-ввести з клавіатури.

Знайти: y

Розв'язання:

Блок-схема

Код програми:

Sub lin()

x = 0: y = 0: z = 0

x = Application.InputBox("Введіть число х: ", , , , , , , 1)

Z = x ^ 9 + 5 * x

If Z > 0 Then

F = Z

Else

If Z < -1 Then

F = Z ^ 2

Else

F = 0

End If

End If

y = F + 1 / 2

MsgBox "Y=" & y

End sub

Результати:

При х = 1 При х = -1 При х = -2

У = 6,5 У = 36,5 У = 272484,5

Програмування лінійних алгоритмів

Дано: x  6,14; y 1,7; z  (5,5)

А = (2 cos⁡(x-π/6))/(1/2+〖sin〗^2 y) В = 1+ z^2/(3+z^2/5)

Знайти: А та В

Код програми:

Sub Alg()

x = (6.14): y = (1.7): Z = (5.5)

A = ((2 * Cos(x - (Pi / 6))) / (1 / 2 + Sin(y) ^ 2))

B = 1 + (Z ^ 2 / (3 + (Z ^ 2 / 5)))

MsgBox "A=" & A

MsgBox "B=" & B

End Sub