Примеры программы алгоритма линейной структуры

Выполнить вычисления по формулам:

T=(1-x)/(3*x-2*y)

P=x*(X-y/(1+x))/2

Z=T-P

Sub primLin()

Dim X, Y, T, P, Z As Single

X = InputBox("Окно ввода", "Ввести значение Х")

Y = InputBox("Окно ввода", "Ввести значение Х")

T = (1 + X) / (3 * X - 2 * Y)

T = Format(T, "###0.0")

P = X * ((X - Y) / (1 + X)) / 2

P = Format(P, "###0.0")

Z = T - P

Z = Format(Z, "###0.0")

MsgBox " x= " & X & " y= " & Y & (Chr(10) & Chr(13)) & _

" T= " & T & " P= " & P & " Z= " & Z, _

vbInformation, "Расчет по формулам: " & Date

End Sub