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

Мвнюня · 25.03.2013, 21:52

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

iks2 · 23.10.2016, 15:17

Можно так...

Код:

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 · 23.10.2016, 15:39

Цитата:

Сообщение от iks2

Можно так...

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

iks2 · 23.10.2016, 17:28

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 · 23.10.2016, 17:35

Цитата:

Сообщение от 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 - погрешность действия с вещественными числами

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

iks2 · 23.10.2016, 18:12

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

25.03.2013, 21:52	#1 (permalink)
Мвнюня Member Регистрация: 03.03.2013 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Даны три положительных вещественных числа x, y, z Здравствуйте,помогите пожалуйста написать программку на Visual Basice, язык новый, не знаю как в нем программировать! Даны 3 положительных вещественных числа x, y, z. Определить, существует ли прямоугольный треугольник с такими длинами сторон.

23.10.2016, 15:17	#2 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Можно так... Код: 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 Миниатюры

23.10.2016, 17:28	#4 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	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 - погрешность действия с вещественными числами

23.10.2016, 18:12	#6 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070