Програма Turbo Pascal

Question

Даны координаты трех вершин треугольника А (1, 1) В (2, 2) С (-1, 2). Вычислить медиану в треугольнике. Значение вершин задать с помощью оператора присваивания

Николай · Accepted Answer

Программные скобки имеют вид

Елена Шелепина · Answer

Медиан, между прочим, в треугольнике три. Вычислим все:
var x1,x2,x3,y1,y2,y3,a,b,c,m1,m2,m3:real;
begin 
x1:=1; y1:=1; x2:=2; y2:=2; x3:=-1; y3:=2; 
a:=sqrt(sqr(x1-x2)+sqr(y1-y2)); 
b:=sqrt(sqr(x2-x3)+sqr(y2-y3)); 
c:=sqrt(sqr(x3-x1)+sqr(y1-y3)); 
m1:=sqrt(2*a*a+2*b*b-c*c)/2;
m2:=sqrt(2*a*a+2*c*c-b*b)/2;
m3:=sqrt(2*c*c+2*b*b-a*a)/2;
writeln('m1=',m1:0:3,' , m2=',m2:0:3,' , m3=',m3:0:3);
readln
end.