Найти площадь треугольника.

[Teemonya]

Нужна помощь в составлении правильного условия. Я понимаю, что оно не правильное, но почему и как его поменять, чтобы всё корректно работало - не понимаю.
Задача:Найти площадь треугольника. Известны только вершины треугольника(координаты).

Sub homak1()
a1 = Cells(1, 1)
a2 = Cells(1, 2)
b1 = Cells(2, 1)
b2 = Cells(2, 2)
c1 = Cells(3, 1)
c2 = Cells(3, 2)
ab = Sqr((b1 - a1) ^ 2 + (b2 - a2) ^ 2)
bc = Sqr((c1 - b1) ^ 2 + (c2 - b2) ^ 2)
ac = Sqr((c1 - a1) ^ 2 + (c2 - a2) ^ 2)
p = ab + bc + ac
s = Sqr(p / 2 * (p / 2 - ab) * (p / 2 - bc) * (p / 2 - ac))
If ac > bc + ab Or ab > bc + bc Or bc > ab + ac Then MsgBox ("s=" + Str(s)) Else
MsgBox ("Треугольник не существует")
End Sub

[IgorGO]

  p = (ab + bc + ac) / 2
  s = Sqr(p * (p - ab) * (p - bc) * (p - ac))
  MsgBox IIf(s > 0, "S = " & s, "Треугольник не существует")
End Sub

[Аватар]

А зачем по Герону с корнями? Вот отличная формула:
S = 1/2*|(x2-x1)(y3-y1)-(x3-x1)(y2-y1)|

[Teemonya]

Все ровно пишет, что треугольника не существует

[Аватар]

А координаты какие?

[Teemonya]

В задаче не даны конкретные координаты
Возможно, предполагается, что пользователь должен их сам вводить
Или программа должна выбирать их сама из заданного диапазона

[Аватар]

Ну ты же ввел хоть какие, иначе что считать? А со всеми нулями естественно треугольник не существует ))

[Teemonya]

Да, логично, спасибо)