Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
sds614
1

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

23.01.2012, 19:12. Показов 1941. Ответов 1
Метки нет (Все метки)

помогите пожалуйста написать программу которая вычисляет площадь треугольника,заданного координатами своих вершин.использовать формулу Герона.вычисление расстояния между двумя точками оформить в виде процедуры или функции.
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.01.2012, 19:12
Ответы с готовыми решениями:

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

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

Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин
Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин?

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

1
729 / 405 / 95
Регистрация: 19.12.2010
Сообщений: 756
24.01.2012, 08:32 2
как вариант на VBS
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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)
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
Добавлено через 7 часов 47 минут
Вариант с использованием HTML. Будет работать только с IE.
Visual Basic
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>
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2012, 08:32

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Написать программу, которая вычисляет площадь правильного треугольника, вписанного в окружность заданного радиуса
Написать программу, которая вычисляет площадь правильного треугольника, вписанного в окружность...

написать функцию которая вычисляет площадь криволинейного треугольника
Только начал изучать C++ Не понимаю как сделать такую программу даже математически Дана...

Разработать программу, которая вычисляет периметр и площадь треугольника
Задание: На плоскости заданы ограничена линиями (1-14) область R и точки A(x1,y1), B(x2,y2),...

Ссылки или указатели (Написать функцию , которая вычисляет гипотенузу, площадь и периметр прямоугольного треугольника)
Написать функцию , которая вычисляет гипотенузу(корень квадратный из суммы квадратов катетов) ,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.