Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub uzdevums_3_3()
- Dim A As Variant
- Dim B As Variant
- Dim C As Variant
- Dim y As Variant
- Dim E As Variant, D As Variant, H As Variant, I As Variant, J As Variant, L As Variant, O As Variant
- A = InputBox("Ievadu A = ")
- B = InputBox("Ievadu B = ")
- C = InputBox("Ievadu C = ")
- If B > 1 Then
- MsgBox "Skaitli nepietiek"
- ElseIf A < 5 Then
- MsgBox "Skaitli nepietiek"
- ElseIf C > 1 Then
- MsgBox "Skaitli nepietiek"
- End If
- E = (A * B) / (C + Sin(C))
- D = Log(Log(A) / Sin(B))
- H = Sqr((A ^ 2) - (B ^ 2) * Cos(C))
- I = Sqr((A - 5) / (C + A))
- L = Sqr(Sqr(A) + Sqr(C))
- O = Sqr(2 * Sin(Sqr(A)))
- J = Sqr(L + O)
- y = (E + D - H) / (I - J)
- MsgBox "y=" & y
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement