В прямоугольной системе координат даны координаты A (3 3), B (-42 14) C (-2 4)
10-11 класс
|
Найти координаты точки М, где М - середина ВС
Нужна программа в паскале, помогите пожалуйста.
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.
Другие вопросы из категории
выражение
2. Составить линейную логическую программу, печатающую значение 1, если указанное высказывание является истинным, и 0 – в противном случае: данное четырехзначное число читается одинаково слева направо и справа налево.
Читайте также
истинность высказывания: «Данные поля имеют одинаковый цвет».
помагите решить
площадь данного прямоугольника.
A(-12,57;-10,23),B(3,3;12,47),C(15,67;-10,32).Найдите с точностью до одного знака после запятой площадь треугольника АВС. В ответе укажите только число,отделяя дробную часть от целой запятой без пробелов,например,13,2