помогите пожалуйста решить задачу в Паскале!!
1) Даны координаты 2-ух точек, известно х,у. Найти середину отрезка.
Аноним:
Середину чего найти? Подумайте, что написали: даны координаты каких-то двух точек и найти середину. И во втором вопросе, какой это "исход" известен?
Ответы
Ответ дал:
1
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)
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)
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад