Advertisement
Guest User

Untitled

a guest
Sep 22nd, 2014
184
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.76 KB | None | 0 0
  1.  
  2.  
  3. Public Sub uzdevums_3_3()
  4. Dim A As Variant
  5. Dim B As Variant
  6. Dim C As Variant
  7. Dim y As Variant
  8. Dim E As Variant, D As Variant, H As Variant, I As Variant, J As Variant, L As Variant, O As Variant
  9. A = InputBox("Ievadu A = ")
  10. B = InputBox("Ievadu B = ")
  11. C = InputBox("Ievadu C = ")
  12. If B > 1 Then
  13. MsgBox "Skaitli nepietiek"
  14. ElseIf A < 5 Then
  15. MsgBox "Skaitli nepietiek"
  16. ElseIf C > 1 Then
  17. MsgBox "Skaitli nepietiek"
  18. End If
  19. E = (A * B) / (C + Sin(C))
  20. D = Log(Log(A) / Sin(B))
  21. H = Sqr((A ^ 2) - (B ^ 2) * Cos(C))
  22. I = Sqr((A - 5) / (C + A))
  23. L = Sqr(Sqr(A) + Sqr(C))
  24. O = Sqr(2 * Sin(Sqr(A)))
  25. J = Sqr(L + O)
  26. y = (E + D - H) / (I - J)
  27. MsgBox "y=" & y
  28. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement