Вычисление площади круга - VB

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

Здравствуйте уважаемые товарищи-программисты!

Хочу обратится к вам за помощью. Вообщем задание такое: Запрашивается радиус круга (от 10 до 100 пикселов). И нужно написать программку так чтобы она вычисляла площадь этого круга. Круг нарисован в зависимости от введенного радиуса, внутри выводится вычисленная площадь с точностью до сотых. Помогите пожалуйста, горю

Решение задачи: «Вычисление площади круга»

textual
                            Листинг программы 
                        

                            Const PI = 3.14159
 
Private Sub Command1_Click()
Dim S As Single, R As Single, W As Integer
    Cls
    R = Val(Replace(InputBox("Введите радиус", "Ввод данных", 79.8), ",", "."))
    S = Round(PI * R * R, 2)
    Scale (-200, 200)-(200, -200)
    Circle (0, 0), R
    Print "r = " & R & vbCrLf & "S = " & S
End Sub
                        

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

13 голосов , оценка 3.923 из 5

Похожие ответы