Var Ax,Ay,Bx,By,x,y:real; begin Write('Введите координаты x,y первой точки: '); Read(Ax,Ay); Write('Введите координаты x,y второй точки: '); Read(Bx,By); x:=(Ax+Bx)/2; y:=(Ay+By)/2; Writeln('Координаты середины отрезка: (',x:0:2,';',y:0:2,')') end.
Тестовое решение: Введите координаты x,y первой точки: -5 -3 Введите координаты x,y второй точки: 8 3 Координаты середины отрезка: (1.50;0.00)
1 - моделью 2 - меньше информации 3 - глобус, макет здания, муляж яблока, манекен 4 - рисунок, фотография 5 - знаковой 6 - смешанной 7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу 8 - существенные признаки объекта-оригинала 9 - разные модели объекта 10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро 11 - словесное описание, формула 12 - знаковой 13 - смешанной 14 - болт — чертеж болта, мелодия — нотная запись мелодии
Ax,Ay,Bx,By,x,y:real;
begin
Write('Введите координаты x,y первой точки: ');
Read(Ax,Ay);
Write('Введите координаты x,y второй точки: ');
Read(Bx,By);
x:=(Ax+Bx)/2;
y:=(Ay+By)/2;
Writeln('Координаты середины отрезка: (',x:0:2,';',y:0:2,')')
end.
Тестовое решение:
Введите координаты x,y первой точки: -5 -3
Введите координаты x,y второй точки: 8 3
Координаты середины отрезка: (1.50;0.00)