программа на "если"

@azat123 · Регистрация: 26.04.2013

Помогите решить:
Вычислить и округлить до 0,001 функцию
у=5sin2x, если x<1,3 или x>7,3 y(1,12)=3,922
y=5arctg5+lg2x если 4,1<x<6,1 y(5,51)=7,909
y=ctg2-x, в остальных случаях. y(3,84)=-4,298

@antonboom · 27.04.2013, 22:26

Хм, не знаю, где ошибка, но почему-то не совпадает с твоим Вход - Выход

Visual Basic

Function lg(x1 As Double) As Double
   lg = Log(x1) / Log(10)
End Function
Function ctg(x2 As Double) As Double
   ctg = Cos(x2) / Sin(x2)
End Function
 
Private Sub Form_Load()
Me.AutoRedraw = True
Dim x, y, TO_RAD, TO_DEG As Single
x = InputBox("Ââåäèòå x")
 
TO_RAD = 3.14159265358979 / 180
TO_DEG = 1 / TO_RAD
 
If x < 1.3 Or x > 7.3 Then
y = 5 * Sin(2 * x * TO_RAD)
ElseIf x > 4.1 And x < 6.1 Then
y = 5 * Atn(5 * TO_DEG) + lg(2 * x)
Else
y = ctg(2 * TO_RAD) - x
End If
 
Print Format(y, "0.000")
End Sub

Добавлено через 1 минуту
Понял, в твоем задании не предусмотрен перевод из радиан в градусы - убери TO_RAD и TO_DEG и все будет норм =)

@azat123 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 29
		1
	программа на "если" 27.04.2013, 16:10. Показов 1087. Ответов 1 Метки нет (Все метки) Помогите решить: Вычислить и округлить до 0,001 функцию у=5sin2x, если x<1,3 или x>7,3 y(1,12)=3,922 y=5arctg5+lg2x если 4,1<x<6,1 y(5,51)=7,909 y=ctg2-x, в остальных случаях. y(3,84)=-4,298 0

Опции темы

программа на "если"

Решение