Private Sub Command1_Click()

Private Sub Command1_Click()

Const PI = 3.141592

Dim a, b, x As Single

Dim w, y As Single

a = Text1.Text

b = Text2.Text

x = Text3.Text

Print "Лабораторна робота № 10"

Print "На тему: "; Лінійні; алгоритми; ""

Print "Студента групи МЕ-125"

Print "Галаган"

Print "Жанна"

Print ""

Print "Результати роботи програми"

w = Sqr((x ^ 2) + b - (b ^ 2 * (Sin(x + a)) ^ 3) / x)

y = Cos(x ^ 3) ^ 2 - x / Sqr(a ^ 2) + b ^ 2

Print "Значення w=", w

Print "Значення y=", y

End Sub

Private Sub Command2_Click()

End

End Sub

Дата добавления: 2015-09-29