Описать функцию 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
