С ОСТАВЛЕНИЕ ПРОГРАММ ДЛЯ ВЫЧИСЛЕНИЙ ЗНАЧЕНИЯ ВЫРАЖЕНИЯ

М АТЕМАТИЧЕСКИЕ ФУНКЦИИ Тригонометрические: Sin(), Cos(), Tan(), Atn(). Квадратный корень Sqr(). Логарифм Log(). Показательная функция Exp(). Получение случайного числа Rnd(). Модуль числа Abs().

З АДАНИЕ Составить программу для вычисления значения выражения Значения x и y – десятичные дроби.

Запишем выражение в одну строку =(3+2^(y-1))/(1+ x^2*abs(y-tan(x)))

С ОЗДАНИЕ ФОРМЫ. 1 СПОСОБ. Создать форму, присвоить свойству Name значение Frm1. Создать кнопку, присвоить свойству Name значение Cmd1, свойству Caption значение «Вычислить».

П РОГРАММА. 1 СПОСОБ. Dim sngX As Single, sngY As Single, sngA As Single Private Sub Cmd1_Click() sngX=InputBox(Введите X, Ввод значений) sngY=InputBox(Введите Y, Ввод значений) sngA= (3+2^(sngY-1))/ (1+sngX^2*abs(sngY-tan(sngX))) Frm1.Print Ответ А= sngA End Sub

С ОЗДАНИЕ ФОРМЫ. 2 СПОСОБ. Создать форму, присвоить свойству Name значение Frm1. Создать кнопку, присвоить свойству Name значение Cmd1, свойству Caption значение «Вычислить». Создать текстовые поля для каждой переменной и для результата (txtX, txtY, txtA). Создать подписи – 3 объекта label.

П РОГРАММА. 1 СПОСОБ. Private Sub Cmd1_Click() txtA.Text= (3+2^(Val(txtY.Text)-1))/ (1+Val(txtX.Text)^2* abs(Val(txtY.Text))- tan(Val(txtX.Text))) End Sub

З АДАНИЕ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ Составить программу для вычисления значения выражения

З АДАНИЕ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ Составить программу для вычисления значения выражения