<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>
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.