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

@Dmitriy94 · Регистрация: 15.12.2012

Даны координаты двух точек A(x1,y1) и B(x2,y2). Какая из этих точек находится дальше от начала координат? помогите написать программу

Kodzaev · 16.12.2012, 17:52

Pascal

Var
  x1,y1,x2,y2: Integer;
  s1,s2: Real;
BEGIN
Write('1 tochka: '); Readln(x1,y1);
Write('2 tochka: '); Readln(x2,y2);
s1:=Sqrt(Sqr(x1)+Sqr(y1));
s2:=Sqrt(Sqr(x2)+Sqr(y2));
If s1>s2 Then Writeln('1 tochka dalshe');
If s1<s2 Then Writeln('2 tochka dalshe');
If s1=s2 Then Writeln('Tochki ravnoudaleni');
Readln
END.

@Dmitriy94 0 / 0 / 0 Регистрация: 15.12.2012 Сообщений: 12
		1
	Определить, какая из точек находится дальше от начала координат 16.12.2012, 09:32. Просмотров 6433. Ответов 1 Метки нет (Все метки) Даны координаты двух точек A(x1,y1) и B(x2,y2). Какая из этих точек находится дальше от начала координат? помогите написать программу 0

Опции темы

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

Решение