Занятие 12. MS Excel. Взаимное влияние двух конкурирующих видов. Процедуры ввода-вывода через диалоговые окна

Взаимное влияние некоторых двух конкурирующих видов на размер Xn, Yn их популяций в n-м году описывается системой

х_n+1 = 2х_n — у_n,

у_n+1 = — х_n + 2у_n.

Пусть X₀ = а, Y₀ = b (а≠b), где а и b — данные числа.

1. Создайте функцию пользователя, вычисляющую численность одного из видов через K лет. Аргументы этой функции: A – исходная численность вида X; B – исходная численность вида Y; K – количество лет.

Function ВидX(A As Integer, B As Integer, K As Integer) As Single

Dim i, x, y, xi, yi As Single

x = A

y = B

For i = 1 To K

xi = 2 * x - y

yi = -x + 2 * y

x = xi

y = yi

Next i

ВидX = x

End Function

2. Создайте функцию пользователя, вычисляющую численность одного из видов после полного вымирания второго. Аргументы этой функции: A – исходная численность вида X; B – исходная численность вида Y.

Function Вид0(A As Integer, B As Integer) As Long

Dim i, x, y, xi, yi As Long

x = A

y = B

Do While x > 0 And y > 0

xi = 2 * x - y

yi = -x + 2 * y

x = xi

y = yi

Loop

If x < 0 Then

Вид0 = y

Else

Вид0 = x

End If

End Function