Вывести значения элементов данной окружности - VB

Узнай цену своей работы

Формулировка задачи:

Помогите написать программу! (с помощью оператора Case) Элементы окружности пронумерованы следующим образом:1-радиус R, 2-диаметр D=2*R, 3-длина , 4-площадь круга (R-в квадрате). Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения использовать 3,14. заранее большое спасибо!!

Решение задачи: «Вывести значения элементов данной окружности»

textual
Листинг программы
Private Sub Command1_Click()
'   Элементы окружности пронумерованы следующим образом:
'   1-радиус R, 2-диаметр D=2*R, 3-длина , 4-площадь круга
'   Дан номер одного из этих элементов и его значение.
'   Вывести значение остальных элементов данной окружности(в том же порядке). В качестве значения использовать 3,14.
Dim Number As Integer, Value As Double
Dim S As Double, D As Double, R As Double, L As Double
Const Pi = 3.14
Number = InputBox("Введите номер элемента", , 4)
Value = InputBox("Введите значение элемента", , 10)
   Select Case Number
        Case 1: R = Value: D = R * 2: L = 2 * Pi * R: S = Pi * (R ^ 2)
        Case 2: D = Value: R = D / 2: L = Pi * D: S = Pi * ((D / 2) ^ 2)
        Case 3: L = Value: R = L / 2 * Pi: D = L / Pi: S = Pi * (((L / Pi) / 2) ^ 2)
        Case 4: S = Value: R = Sqr(S / Pi): D = (Sqr(S / Pi)) * 2: L = ((Sqr(S / Pi)) * 2) * Pi
   End Select
   MsgBox "R = " & R & vbCrLf & _
          "D = " & D & vbCrLf & _
          "L = " & L & vbCrLf & _
          "S = " & S
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.769 из 5
Похожие ответы