Составить программу, которая вычисляет площадь треугольника данного координатами собственных

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

lt;htmlgt;  

lt;headgt;lt;titlegt;Формы и элементыlt;/titlegt;lt;/headgt;  

lt;SCRIPT LANGUAGE="VBScript"gt;  

lt;!--  

Sub cmdCalculate_OnClick()

x11 = document.frmExercise2.x11.value

y11 = document.frmExercise2.x11.value

x22 = document.frmExercise2.x11.value

y22 = document.frmExercise2.x11.value

x33 = document.frmExercise2.x11.value

y33 = document.frmExercise2.x11.value

 

 

'x11 = InputBox("Введите координату x1", , 1)

'y11 = InputBox("Введите координату y1", , 1)

'x22 = InputBox("Введите координату x2", , 4)

'y22 = InputBox("Введите координату y2", , 1)

'x33 = InputBox("Введите координату x3", , 3)

'y33 = InputBox("Введите координату y3", , 2)

call pl(x11,y11,x22,y22,x33,y33)

end sub

sub pl(x1,y1,x2,y2,x3,y3)

d1 = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)

d2 = Sqr((x3 - x2) ^ 2 + (y3 - y2) ^ 2)

d3 = Sqr((x3 - x1) ^ 2 + (y3 - y1) ^ 2)

If d2 + d3 gt; d1 And d1 + d3 gt; d2 And d2 + d1 gt; d3 Then

   p = d1 + d2 + d3

   MsgBox "Периметр треугольника=" amp; p

   p = p / 2

   s = Sqr(p * (p - d1) * (p - d2) * (p - d3))

MsgBox "Площадь треугольника=" amp; s  

Else

   MsgBox "Такой треугольник не существует"

   

End If

end sub

--gt;  

lt;/SCRIPTgt;  

 lt;/HEADgt;

   lt;BODYgt;

   lt;H1gt;Вычисление площади треугольникаlt;/H1gt;

   lt;Pgt;Написать программу которая вычисляет площадь треугольника,

      данного координатами своих вершин.использовать формулу Герона.

      вычисление расстояния меж 2-мя точками оформить в виде процедуры либо функции.lt;/Pgt;

   lt;FORM NAME="frmExercise2"gt;

       lt;TABLEgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;X1=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="x11" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;Y1=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="y11" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

       lt;/TABLEgt;

       lt;TABLEgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;X2=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="x22" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;Y2=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="y22" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

       lt;/TABLEgt;

   lt;TABLEgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;X3=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="x33" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

           lt;TRgt;

               lt;TDgt;lt;Bgt;Y3=lt;/Bgt;lt;/TDgt;

               lt;TDgt;lt;INPUT TYPE="Text" NAME="y33" SIZE=5gt;lt;/TDgt;

           lt;/TRgt;

       lt;/TABLEgt;

       lt;BRgt;

       lt;INPUT TYPE="Button" NAME="cmdCalculate" VALUE="Вычислить площадь"gt;

   lt;/FORMgt;

   lt;/BODYgt;

   lt;/HTMLgt;

вроде так