Определить, которая из точек находится ближе к началу координат

@Ксюшенька007 · Регистрация: 14.09.2010

Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат. Помогите решить эту задачу с помощью функции))

@Puporev · 17.10.2010, 09:18

Pascal

function Rasst(x,y:real):real;
begin
Rasst:=sqrt(x*x+y*y);
end;
var x1,y1,x2,y2:real;
begin
writeln('Координаты первой точки:');
readln(x1,y1);
writeln('Координаты второй точки:');
readln(x2,y2);
if Rasst(x1,y1)<Rasst(x2,y2) then write('Первая точка ближе к началу координат')
else write('Вторая точка ближе к началу координат');
readln
end.

@Ксюшенька007 · 17.10.2010, 12:01 **[ТС]**

спасибо большое!!!!))))

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
		1
	Определить, которая из точек находится ближе к началу координат 17.10.2010, 09:13. Просмотров 1874. Ответов 2 Метки нет (Все метки) Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат. Помогите решить эту задачу с помощью функции)) 0

@Ксюшенька007 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 61
	17.10.2010, 12:01 [ТС]	3
	спасибо большое!!!!)))) 0

Опции темы

Определить, которая из точек находится ближе к началу координат

Решение