Даны координаты 2 точек на плоскости. Определить расстояние между ними. (координаты- x1;y1 и x2;y2), конечная формула должна выглядеть так: d= корень
10-11 класс
|
квадратный из выражения (x2-x1)^2 + (y2-y1)^2
Program num1;
Uses crt;
Var
x1,x2,y1,y2 : real;
d:real;
Begin
clrscr;
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
write('D=',d)
End.
Другие вопросы из категории
Читайте также
A(-12,57;-10,23),B(3,3;12,47),C(15,67;-10,32).Найдите с точностью до одного знака после запятой площадь треугольника АВС. В ответе укажите только число,отделяя дробную часть от целой запятой без пробелов,например,13,2
Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками.
от точки с координатами (10;-2)
и ac по форумуле d=корень из(x2-x1)^2+(y2-y1)^2 x1=8 y1=12 x2=12.5 y2=14 x3=-3.5 y3=-5.2
исходные данные
3)масштаб карты 120 (кол-во км в одном см)
4)расстояние между точками изображающими населённые пункты если между ними 3.5 (см)...(должно выйти 420км)
5) расстояние между насел. пунктами ... км
Напишите пожалуйста программу. К завтрашнему дню надо. С Паскалем проблемы