16 Март 2011

Определить впишется ли треугольник в окружность

Задачи |  Таги: ,

Определить впишется ли треугольник в окружность

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

Запись опубликована on 16.03.2011 at 15:38 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.