Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
САЙ Е. «развилка» вариант 13 БТП-814
Вычислить значение функции:
Sin a , если a = 3
P = a2 + 1 , если a > 3
0 , если a < 3
, где a =
Входные данные:
a, d – вещественные числа
Выходные данные:
P– вещественное число
Математическая модель.
Sin a , если a = 3
P = a2 + 1 , если a > 3
0 , если a < 3
, где a =
Алгоритм.
Код программы.
Private Sub Command1_Click()
Dim P As Single, a As Single, d As Single
d = InputBox("d=")
a = d ^ (1 / 3)
If a = 3 Then
P = Sin(a)
Else
If a > 3 Then
P = a ^ 2 + 1
Else
P = 0
End If
End If
Print "d=" & d
Print "P=" & P
End Sub
.
Отладка кода программы
Вычислить значение функции:
Y = , если x > 0
x , если x < 0
Входные данные:
x – вещественное число
Выходные данные:
Y– , вещественное число.
Математическая модель.
Y = , если x > 0
x , если x < 0
Алгоритм
Код программы.
Private Sub Command1_Click()
Dim x As Single, Y As Single
x = InputBox("x=")
If x > 0 Then
Y = x / 2 ^ x
Else
Y = x
Print "y=" & y
Print "x=" & x
End If
End Sub
Отладка кода программы.
PAGE 4