Неправильно определяется радиус окружности - VB

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

Помогите пожалуйста,не могу понять в чем ошибка. У круга радиус должен быть по идее 10, но на картинке это не так

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
For p = 0 To 2
Picture1.Line (-10, 0)-(10, 0), blue
Picture1.Line (0, -10)-(0, 10), blue
Const pi As Single = 3.14159265359
 
For i = 2 To 10 Step 2
Picture1.Circle (0, 0), 10, vbRed, -3 * 3.14 / 2, -2 * 3.14
Picture1.Circle (0, 0), 10, vbRed, -2 * 3.14, -3.14 / 2
Picture1.Circle (0, 0), 10, vbRed, -3.14 / 2, -3.14
Picture1.Circle (0, 0), 10, vbRed, -3.14, -3 * 3.14 / 2
 
Picture1.Line (-10, -i)-(-10, i), vbRed
Picture1.Line (i, 10)-(-i, 10), vbRed
Picture1.Line (10, -i)-(10, i), vbRed
Picture1.Line (i, -10)-(-i, -10), vbRed
 
Next i
Next p
End Sub

Решение задачи: «Неправильно определяется радиус окружности»

textual
                            Листинг программы 
                        
Const pi As Single = 3.14159265359

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

11 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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