VBA!!!

[NitriNKa]

решите пожалуйста!!Дан круг радиуса R. Определить, поместится ли правильный треугольник со стороной а в этом круге.

[Levsha100]

R= (a корней из 3)/6.Где a-сторона треугольника!

[NitriNKa]

за это, конечно, спасибо, а можно в коде это написать???

[Levsha100]

К сожалению в VBA не работал, но алгоритм написать могу:
1)Получаем значение радиуса
2)Вычисляем макс радиус(по формуле)
3)Если макс радиус>Вашего радиуса, то вписать невозможно, иначе - возможно

[NitriNKa]

ну и на этом спасибо, сейчас попробуем))

[Terran]

NitriNKa, вот держите код:

Private Sub CommandButton1_Click()
Dim R As Integer
R = (TextBox1.Text * Sqr(3)) / 3
If TextBox2.Text > R Then
Label1.Caption = "Треугольник поместится"
End If
If TextBox2.Text < R Then
Label1.Caption = "Треугольник не поместится"
End If
End Sub

TextBox1 – Вводится сторона треугольника.
TextBox2 – Вводится радиус.
Вроде как работает, но если я где-то ошибся, то поправьте.