Задать вопрос Регистрация
Помочь другим

  • Составить программу, которая вычисляет площадь треугольника заданного координатами своих вершин. Используя формулу Герона. вычисления расстояния между двумя точками оформить в виде процедуры или функции

Ответы 1

  • 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

    <html>  

    <head><title>Формы и элементы</title></head>  

    <SCRIPT LANGUAGE="VBScript">  

    <!--  

    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 > d1 And d1 + d3 > d2 And d2 + d1 > d3 Then

       p = d1 + d2 + d3

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

       p = p / 2

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

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

    Else

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

       

    End If

    end sub

    -->  

    </SCRIPT>  

     </HEAD>

       <BODY>

       <H1>Вычисление площади треугольника</H1>

       <P>Написать программу которая вычисляет площадь треугольника,

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

          вычисление расстояния между двумя точками оформить в виде процедуры или функции.</P>

       <FORM NAME="frmExercise2">

           <TABLE>

               <TR>

                   <TD><B>X1=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="x11" SIZE=5></TD>

               </TR>

               <TR>

                   <TD><B>Y1=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="y11" SIZE=5></TD>

               </TR>

           </TABLE>

           <TABLE>

               <TR>

                   <TD><B>X2=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="x22" SIZE=5></TD>

               </TR>

               <TR>

                   <TD><B>Y2=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="y22" SIZE=5></TD>

               </TR>

           </TABLE>

       <TABLE>

               <TR>

                   <TD><B>X3=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="x33" SIZE=5></TD>

               </TR>

               <TR>

                   <TD><B>Y3=</B></TD>

                   <TD><INPUT TYPE="Text" NAME="y33" SIZE=5></TD>

               </TR>

           </TABLE>

           <BR>

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

       </FORM>

       </BODY>

       </HTML>

    вроде так

    • Автор:

      ester2zfm
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years