| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Visual Basic] Пройдет ли кирпич в отверстие |
| Автор: Gromov 21.12.2008, 19:19 |
| Привет всем! Помогите решить задачу. Имеется кирпич со сторонами a,b,c и круглое отверстие с радиусом R. Определить пройдет ли кирпич в отверстие. Заранее спасибо! Примерный код: rivate Sub Command1_Click() Dim a, b, c, r, z As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) r = Val(Text4.Text) z = 2 * r If a < z And b < z And c < z Then MsgBox "Кирпич пройдет в отверстие" If a >= z And b >= z And c >= z Then MsgBox "Кирпич не пройдет в отверстие" If a <= z And b >= z And c >= z Then MsgBox "Кирпич не пройдет в отверстие" If a <= z And b >= z And c <= z Then MsgBox "Кирпич не пройдет в отверстие" If a <= z And b >= z And c >= z Then MsgBox "Кирпич не пройдет в отверстие" End Sub Private Sub Command2_Click() Text1.Text = "ыва" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Sub Command3_Click() End End Sub |
| Автор: airyashov 22.12.2008, 08:16 |
| r^2>(a/2)^2+(b/2)^2 то пройдет r^2>(a/2)^2+(c/2)^2 то пройдет r^2>(b/2)^2+(c/2)^2 то пройдет иначе уй, т.е. не пройдет |