Даны 3 положительных вещественных числа x, y, z. Определить, существует ли прямоугольный треугольник с такими длинами сторон.

[Proskurina]

Здравствуйте,помогите пожалуйста написать программку на Visual Basice, язык новый, не знаю как в нем программировать! Даны 3 положительных вещественных числа x, y, z. Определить, существует ли прямоугольный треугольник с такими длинами сторон.

[interacia]

С объектами на форме надеюсь разберётесь.

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim Bol As Boolean
Bol = False

x = 4 'здесь как ни будь присвоите значения переменным
y = 5
z = 3
If ((z > x) And (z > y) And ((z ^ 2) = (x ^ 2 + y ^ 2))) Then Bol = True
If ((x > z) And (x > y) And ((x ^ 2) = (z ^ 2 + y ^ 2))) Then Bol = True
If ((y > x) And (y > z) And ((y ^ 2) = (z ^ 2 + x ^ 2))) Then Bol = True

If Bol Then Label1.Caption = "Есть"
If Bol = False Then Label1.Caption = "нет такого"
End Sub

[BDA]

Небольшое логическое исправление:

Dim t As Integer
...
if (x > y) Then
  t = x
  x = y
  y = t
End If
if (y > z) Then
  t = y
  y = z
  z = t
End If
if (x > y) Then
  t = x
  x = y
  y = t
End If
If ((z < y + x) And (x < y + z) And (y < x + z) And ((z ^ 2) = (x ^ 2 + y ^ 2))) Then Bol = True
...

Выстраиваем стороны по возрастанию. Проверяем, существует ли такой треугольник и прямоуголен ли он.

[Proskurina]

Спасибо большое)