Даны три положительных вещественных числа x, y, z

[Мвнюня]

Даны три положительных вещественных числа x, y, z

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

 

[iks2]

Можно так...

Option Explicit
Dim x As Single, y As Single, z As Single

Private Sub cmdD_Click()
    x = Val(txtX)
    y = Val(txtY)
    z = Val(txtZ)
    If x + y > z And y + z > x And z + x > y Then
        label.Caption = "YES"
    Else
        label.Caption = "NO"
    End If
End Sub

 

[Vladimir_S]

Можно так...

Нельзя. Сударь, внимательнее: в задаче спрашивается не просто "существует ли треугольник?", а "существует ли прямоугольный треугольник?". Т.е надо условием OR проверять, не совпадут ли суммы квадратов двух чисел с квадратом третьего. Причем еще и меру точности ввести: числа-то вещественные...

 

[iks2]

Vladimir_S,
я извиняюсь за свою невнимательность. Вы правы, тут надо добавить условие типа

If Abs(x^2 + y^2 - z^2) < eps And Abs(y^2 + z^2 - x^2) < eps And Abs(z^2 + x^2 - y^2) < eps Then

где eps - погрешность действия с вещественными числами

 

[Vladimir_S]

Vladimir_S,
я извиняюсь за свою невнимательность. Вы правы, тут надо добавить условие типа

If Abs(x^2 + y^2 - z^2) < eps And Abs(y^2 + z^2 - x^2) < eps And Abs(z^2 + x^2 - y^2) < eps Then

где eps - погрешность действия с вещественными числами

Не пойдёт. Все "And" нужно заменить на "Or". Потому что искомый треугольник образуется, если выполняется ХОТЯ БЫ ОДНО из условий, а не все три разом, что, кстати, и невозможно.

 

[iks2]

Vladimir_S,
я еще раз извиняюсь...

If Abs(x^2 + y^2 - z^2) < eps Or Abs(y^2 + z^2 - x^2) < eps Or Abs(z^2 + x ^2 - y^2) < eps Then