Презентация на тему: Составление программ для вычислений значения выражения

Составление программ для вычислений значения выражения

Математические функции Тригонометрические: 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

Задание для самостоятельной работы Составить программу для вычисления значения выражения

Задание для самостоятельной работы Составить программу для вычисления значения выражения