С ОСТАВЛЕНИЕ ПРОГРАММ ДЛЯ ВЫЧИСЛЕНИЙ ЗНАЧЕНИЯ ВЫРАЖЕНИЯ. - презентация

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

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

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

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

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

6 П РОГРАММА. 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

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

8 П РОГРАММА. 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

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

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