Задание:
Написать программу для задачи на турбо паскале Заданы координаты трех точек на плоскости а (x1,y1) b (x2,y2) c (x3,y3) Найдите расстояние между точками abи ac по форумуле d=корень из (x2-x1) ^2+(y2-y1) ^2 x1=8 y1=12 x2=12,5 y2=14 x3=-3,5 y3=-5,2
Решение:
Var x1,x2,x3,y1,y2,y3: integer; beginread (x1,y1); read (x2,y2); read (x3,y3); writeln ('ab',sqrt (sqr (x2-x1)+sqr (y2-y1); writeln ('ac',sqrt (sqr (x3-x1)+sqr (y3-y1); end.
Знаете другой ответ?