a008888
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
uses crt;
var
Xa,Ya, Xb,Yb, Xc,Yc, Xn,Yn :integer;
Sabn,Sbcn,Sacn,Sabc:real;
AB,BC,AC, AN,BN,CN:real;
begin
clrscr; {очистка экрана}
writeln('Наберите координаты т. A'); readln(Xa,Ya); {ввод координат вершин}
writeln('Наберите координаты т. B'); readln(Xb,Yb); {ввод координат вершин}
writeln('Наберите координаты т. C'); readln(Xc,Yc); {ввод координат вершин}
writeln('Наберите координаты т. N'); readln(Xn,Yn); {ввод координат заданной точки}
AB:=sqrt(sqr(Xa-Xb)+sqr(Ya-Yb)); {длина стороны AB}
BC:=sqrt(sqr(Xc-Xb)+sqr(Yc-Yb)); {длина стороны BC}
AC:=sqrt(sqr(Xa-Xc)+sqr(Ya-Yc)); {длина стороны AC}
AN:=sqrt(sqr(Xa-Xn)+sqr(Ya-Yn)); {длина стороны AN}
BN:=sqrt(sqr(Xb-Xn)+sqr(Yb-Yn)); {длина стороны BN}
CN:=sqrt(sqr(Xc-Xn)+sqr(Yc-Yn)); {длина стороны CN}
Sabn:=sqrt( ((AB+BN+AN)/2) * ((AB+BN+AN)/2-AB) * ((AB+BN+AN)/2-BN) * ((AB+BN+AN)/2-AN));
Sbcn:=sqrt( ((BC+CN+BN)/2) * ((BC+CN+BN)/2-BC) * ((BC+CN+BN)/2-CN) * ((BC+CN+BN)/2-BN));
Sacn:=sqrt( ((AC+CN+AN)/2) * ((AC+CN+AN)/2-AC) * ((AC+CN+AN)/2-CN) * ((AC+CN+AN)/2-AN));
Sabc:=sqrt( ((AB+BC+AC)/2) * ((AB+BC+AC)/2-AB) * ((AB+BC+AC)/2-BC) * ((AB+BC+AC)/2-AC));
if Sabn+Sbcn+Sacn>Sabc then writeln('Точка вне треугольника ABC')
else writeln('Точка в треугольнике ABC');
end. |
Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 09:35 27-09-2008 | Исправлено: a008888, 09:40 27-09-2008 |
|
