В прямоугольной системе координат даны координаты A (3 3), B (-42 14) C (-2 4)

Найти координаты точки М, где М - середина ВС



Нужна программа в паскале, помогите пожалуйста.

1

Ответы и объяснения

2014-02-17T09:36:27+00:00
type point = record
                    x,y:real;
                  end;
procedure setkoord (const xx,yy:real; var obj:point);
 begin
   obj.x:=xx;
   obj.y:=yy;
 end;
var A,B,C,M:point;
begin
  setkoord (3,3,A);
  setkoord (-42,14,B);
  setkoord (-2,4,C);
  M.x:=(B.x+C.x)/2;
  M.y:=(B.y+C.y)/2;
  writeln ('M(',M.x,',',M.y,')');
end.