Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
ButterflyOnAFir
1 / 1 / 0
Регистрация: 27.12.2011
Сообщений: 34
#1

Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b) - VB

18.06.2012, 21:42. Просмотров 868. Ответов 3
Метки нет (Все метки)

Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.06.2012, 21:42
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b) (VB):

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4 - Visual Basic
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 Заранее огромное спасибо!

Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то оба значен - Visual Basic
Даны действительные числа X, Y. Если X, Y. – отрицательны, то каждое значение заменить его модулем;если отрицательно только одно из них, то...

Даны целые числа a1<= a2<= ...<= an и число с. Получить последовательность - Visual Basic
Даны целые числа a1&lt;= a2&lt;= ...&lt;= an и число с. Получить последовательность a1&lt;= a2&lt;= ...&lt;= an+1, включив в нее число с.

Даны целые числа a1<= a2<= .<= an и число с. Получить последовательность a1<= a2<= .<= an+1, включив в нее - Visual Basic
Даны целые числа a1&lt;= a2&lt;= ...&lt;= an и число с. Получить последовательность a1&lt;= a2&lt;= ...&lt;= an+1, включив в нее число с.

Даны две действительные матрицы порядка n... - Visual Basic
Даны две действительные матрицы порядка n. Получить новую матрицу размером n*2n , в которой в первых n столбцах расположена первая матрица...

Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b) - Pascal
Даны действительные числа А и В. Получить z = arcsin (|ab|)+10 sin(b)

3
SoftIce
10195 / 3696 / 955
Регистрация: 27.07.2011
Сообщений: 8,874
Завершенные тесты: 1
19.06.2012, 10:07 #2
Насчёт вычисления арксинуса не уверен, возможно что неправильно.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Const Pi = 3.14
Dim A As Single, B As Single, x As Single, arcsin As Single
A = Val(Replace(InputBox("Введите значение A=", "Ввод данных", 0.5), ",", "."))
B = Val(Replace(InputBox("Введите значение B=", "Ввод данных", 0.7), ",", "."))
x = Abs(A * B)
 
    If x > -1 And x < 1 And x <> 0 Then
         arcsin = Atn(x / Sqr(1 - x ^ 2))
    Else
         MsgBox "ERROR", vbCritical, "Некорректные данные": Exit Sub
    End If
 
    z = arcsin + 10 * Sin(B)
    MsgBox z
End Sub
0
Linoge
Эксперт Hardware
2088 / 1464 / 240
Регистрация: 25.10.2011
Сообщений: 4,369
19.06.2012, 10:24 #3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim pi#
 
Private Sub Form_Load()
    pi = Atn(1) * 4
End Sub
 
Function ASin(ByVal x As Double) As Double
    If Abs(x) = 1 Then
        ASin = pi / 2 * Sgn(x)
    ElseIf Abs(x) < 1 Then
        ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
    End If
End Function
1
SoftIce
10195 / 3696 / 955
Регистрация: 27.07.2011
Сообщений: 8,874
Завершенные тесты: 1
19.06.2012, 11:10 #4

Не по теме:

Linoge, Вы как всегда на высоте


Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim pi#
Private Sub Form_Load()
    pi = Atn(1) * 4
End Sub
 
Function ASin(ByVal x As Double) As Double
    If Abs(x) = 1 Then
        ASin = pi / 2 * Sgn(x)
    ElseIf Abs(x) < 1 Then
        ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
    End If
End Function
 
Private Sub Command1_Click()
Dim A As Double, B As Double, x As Double, z As Double
    A = Val(Replace(InputBox("Введите значение A=", "Ввод данных", 0.5), ",", "."))
    B = Val(Replace(InputBox("Введите значение B=", "Ввод данных", 0.7), ",", "."))
    x = Abs(A * B)
    z = ASin(x) + 10 * Sin(B)
    MsgBox z
End Sub
0
19.06.2012, 11:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.06.2012, 11:10
Привет! Вот еще темы с ответами:

Даны действительные числа s,t. Получить - Turbo Pascal
Помогите пожалуйста решить данную задачу. Заранее благодарю за Вашу помощь.

Даны действительные числа x, y. Получить - C++
Даны действительные числа x, y. Получить http://s007.***********/i302/1109/f1/e39dd57364b1.jpg Дана гипотенуза и катет прямоугольного...

даны действительные числа .Получить y= - Turbo Pascal
даны действительные числа а,b,c.Получить y= (max(a,a+b)+max(a,b+c))/ 1+max(a+b*c,2*а,с*b) , max(x,x1) определить как функцию,где х и х1...

Даны действительные числа x,y,z.Получить: - Turbo Pascal
Даны действительные числа x,y,z.Получить: a)MAX(x,y,z); б)MIN(x,y,z),MAX(x,y,z);


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru