Pascal. Записать листинг программы на языке Паскаль: Треугольник задан координатами вершин А(0; 0), В(2; 2-1) и С (-2; 2+1). Вычислить медиану mа и биссектрису Wb.
Pascal. Записать листинг программы на языке Паскаль: Треугольник задан координатами вершин А(0; 0), В(2; 2-1) и С (-2; 2+1). Вычислить медиану mа и биссектрису Wb.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var xa,ya,xb,yb,xc,yc:real;
Write('Введите координаты точки А: '); Read(xa,ya);
Write('Введите координаты точки B: '); Read(xb,yb);
Write('Введите координаты точки C: '); Read(xc,yc);
var xd:=(xb+xc)/2;
var yd:=(yb+yc)/2;
var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
Writeln('ma=',ma:0:5);
var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
Writeln('Wb=',Wb:0:5)
end.
Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667
Не нашли ответ?
Похожие вопросы