daily pastebin goal
75%
SHARE
TWEET

Untitled

a guest Oct 23rd, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Sub Main()
  2.     'Объявляем переменные
  3.     Dim x, f, P As Single
  4.    
  5.     'Присваиваем переменной P значение 3.14
  6.     P = 3.14
  7.    
  8.     'Просим ввести X
  9.     x = InputBox("Введите значение X")
  10.    
  11.     'Делаем условия, при которых будут выведены ответы
  12.     If (x > 0 And x < (P / 2)) Then
  13.    
  14.         'Решаем математическое выражение
  15.         f = Sqr(Abs(Cos(x) ^ 3 - Ln(3 * x)))
  16.        
  17.         'Выводим результат
  18.         result = MsgBox("Результат: " & f, vbInformation + vbOKOnly, "Решение")
  19.     ElseIf ((x > (P / 2)) And (x < (P * 2))) Then
  20.    
  21.         'Решаем математическое выражение
  22.         f = Ln(x + 4 * x) ^ 2
  23.        
  24.         'Выводим результат
  25.         result = MsgBox("Результат: " & f, vbInformation + vbOKOnly, "Решение")
  26.     Else
  27.         'Если условия не совпадают, выводим сообщение об ошибке
  28.         result = MsgBox("Параметры не подходят под заданное условие", vbInformation + vbOKOnly, "Решение")
  29.     End If
  30. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top