function Rasst(x,y:real):real;
begin
Rasst:=aqrt(x*x+y*y);
end;
Похожие записи/страницы:
- Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к…
- В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они…
- Для введённой последовательности точек (ввод закончить, если введена точка с координатами (0,0)) определите,…
- Подсчитать число точек внутри круга с радиусом R.c центром в точке с координатами (1;1). Координаты заданы…
- В файле хранится массив отрезков (отрезок на плоскости задается координатами начала и конца). Составить функции…
- Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат -…
- N точек на плоскости заданы своими координатами (x,y). Определить точку, минимально отдалённую от начала…
- Написать подпрограмму которая вычисляет длину прямой, проведенной из точки с координатами (а,b) в точку с…