Описать функцию RingS (R1, R2) вещественного типа, находящую площадь кольца - VB

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

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

Описать функцию RingS( R1,R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 - вещественные, R1>R2). С ее помощью найти площадь трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R:S= п*R^2. В качестве значения п использовать 3.14

Решение задачи: «Описать функцию RingS (R1, R2) вещественного типа, находящую площадь кольца»

textual
Листинг программы
Private Sub Command1_Click()
    Dim R1 As Double, R2 As Double, i As Integer
    Randomize
    For i = 1 To 3
       R1 = InputBox("R1 = ", , Round(Rnd * 20 + 10, 2))
       R2 = InputBox("R2 = ", , Round(Rnd * 10, 2))
       MsgBox "R1 = " & R1 & "   R2 = " & R2 & "  RingS = " & Round(RingS(R1, R2), 2)
    Next i
End Sub
 
Function RingS(R1 As Double, R2 As Double) As Double
    Const PI As Double = 3.14
    RingS = PI * (R1 ^ 2 - R2 ^ 2)
End Function

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


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

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

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