Встроенные функции языка Visual Basic
| Математическая функция | Функция языка Visual Basic | Комментарий |
| | x | | Abs(x) | Абсолютное значение числа x |
| ex | Exp(x) | Возведение в степень x числа e |
| Sgr (x) | Корень квадратный от x |
| ln(x) | Log (x) | Натуральный логарифм аргумента x |
| Round (x, n) | Округляет число x до n знаков после запятой | |
| Sgn(x) | Определяет знак числа | |
| Rnd(N) | Генерирует последовательность псевдослучайных чисел. При N<0 генерирует определенное число, зависящее от N, при N=0 возвращает последнее случайное число, выданное Rnd, при N>0 генерируется новое случайное число. Для изменения базы генератора псевдослучайных чисел можно использовать оператор Randomize | |
| Sin(x) | Sin(x) | Синус числа х |
| Cos(x) | Cos(x) | Косинус числа х |
| Tg(x) | Tan(x) | Тангенс числа х |
| Arctg(x) | Atn(x) | Арктангенс х, обратная тригонометрическая функция |
В тригонометрических функциях аргумент х должен задаваться в радианах.
Из обратных тригонометрических функций имеется только одна функция arctg(х). Остальные тригонометрические функции вычисляются через arctg(x) или другие тригонометрические и арифметические функции по правилам математики.
Варианты задач
Варианты задач представлены в таблице 9.
Таблица 9. Индивидуальные варианты задания 1
| Номер вариан | Ф у н к ц и я | Исходные данные |
| Y=e-Öx cos2(bx)+c/ctg(b) | b=2;c=-0,75; x=1,5 | |
| a cos(bt sin(t))+c Z= -------------------------- sin a + ctg b | a=2;b=0,7;c=0,5; t=0,2 | |
| 3 ------------------------------- Z= Ö a +b esin(x) +1 | a=2; b=1,2;x=0,9 | |
| 3 --------------------------------------- F = Ö m tg(t) + c sin3(t) | m=2;c=-1;t=1,1 | |
| sin(x) ctg(m) Z = -------------------------- - c ln(mx) ______________ Ö 1 + m2 sin2(x) | m=0,7;c=2,1; x=1,5 | |
| bx2 - a Y = ------------- arccos (x) e ax - 1 | a= -0,5;b=2,3; x=0,1 | |
| ______ b t eat + aÖ t+1,5 Z = --------------------------- arcctg(a) ch(t) | a=-0,5; b=1,5; t=-0,5 | |
| _____ 3 _________ e-ax Ö x+1 + e -bx Ö x+1,5 S = ------------------------------- ctg x | x=1,3;a=0; b=1 | |
| x + a cos(2x) Z = ------------------------------- arcctg(x) _____________ x + Öa + b sin(3x) | a=4,1;b=-2,3; x=0,5 | |
| ______ b x arctg(x / a) - Ö x+ a Y = --------------------------------- sh(x) ctg2 (x) | a=3,7;b=0,5; x=3,5 | |
| S = e-ax arccos(x) + e-bx arcsin (x) | a=0,5;b=0,8; x=0,5 | |
| 2x ln(ax) - 3x ln(bx) Z = ------------------------------- ctg2(ax) | a=1,2;b=0,7; x=3,5 | |
| 3_______________ S = e-ax Ö ax + b sin2 (2x) | a=1,5;b=-1,2; x=1,5 | |
| S = a arctg(t/a) + b arcsin(t/b) | a=1,5;b=2;t=0,8 | |
| ax + e-x cos2(bx) Z = ------------------------------ bx - e-x ctg (ax) +1 | a =0,5; b=2,9; x=0,5 |
Пример выполнения задания
Вычислить выражение
Последовательность решения задачи приведена ниже
1. Открыть новый проект.
2. Создать интерфейс пользователя на форме аналогично приведенному ниже
3. Ввести программный код, реализующий алгоритм решения задачи, вида
Private Sub Command1_Click()
Dim a As Single
Dim y As Single
a = Val(Text1.Text)
y = Sin(a) ^ (2 / 3) / (Log(Abs(a)) / Log(10))
Text2.Text = Str(y)
End Sub
4. Отобразить результаты расчетов в VB 6
5. Проверить результаты расчетов в Mathcad (листинг приведен ниже)
6. Результаты в VB и Mathcad полностью совпадают
Задание 2