Консультация № 182061
31.01.2011, 19:11
51.28 руб.
0 3 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
задание.Напишите программу для решения задачи на языке программирования VВScript.

Даны декартовы координаты вершин треугольника ( в плоскости). Напишите программу, вычисляющую площадь и периметр этого треугольника.

Обсуждение

давно
Профессор
230118
3054
31.01.2011, 21:27
общий
Вы уверены, чтоVВScript?
Неизвестный
31.01.2011, 22:15
общий
так написано в методичке: язык VISUAL BASIC SCRIPT (VВScript) очень легок в освоении....
давно
Академик
320937
2216
01.02.2011, 10:53
общий
это ответ
Здравствуйте, Марина! Вводим по очереди координаты каждой из вершин, вычисляем длину каждой стороны, вычисляем периметр, полупериметр, площадь. Проверено в IE8
Код:
<HTML>
<HEAD>
<SCRIPT LANGUAGE="VBScript">
dim Xa, Ya, Xb, Yb, Xc, Yc
dim AB, BC, CA
dim P, pp, S

Xa=CDbl(inputbox("Xa="))
Ya=CDbl(inputbox("Ya="))

Xb=CDbl(inputbox("Xb="))
Yb=CDbl(inputbox("Yb="))

Xc=CDbl(inputbox("Xc="))
Yc=CDbl(inputbox("Yc="))

AB = sqr((Xa-Xb)^2+(Ya-Yb)^2)
BC = sqr((Xb-Xc)^2+(Yb-Yc)^2)
CA = sqr((Xc-Xa)^2+(Yc-Ya)^2)

p = AB+BC+CA
pp = p / 2 ' полупериметр
S = sqr(pp*(pp-AB)*(pp-BC)*(pp-CA)) 'формула Герона

msgBox("P=" & P & vbNewLine & "S=" & S)
</SCRIPT>
</HEAD>
<body>
</body>
</HTML>

Удачи!
Форма ответа