Лабораторная работа: Работа в среде Visual Basic

Результат

6

Picture 1

Pic 1

Список идентификаторов

Переменная	Тип	Идентификатор
х	Single	х
y	Single	y

Непосредственные коды процедур

Private Sub Form_Click()

Rem Вычисление функции для заданного значения x

Print

Print " y=x+sin(x+4*atn(1)/3)-log(abs(x)"

x = Val(Textx.Text)

y = x + Sin(x + 4 * Atn(1) / 3) - Log(Abs(x))

Print "для x= "; x

Print "получено значение функции y= "; y

End Sub

Результаты вычислений и выводы

Вычисление функции

Введите х и нажмите Enter 2

Задание 2