Описать функцию 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