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

@алексей007 · Регистрация: 09.05.2013

Определить, какая из трех точек А(х1,у1), В(х2,у2), С(х3,у3) ближе к началу координат.
Исходные данные: числа а и b – координаты точки А.
меню действий: шагнуть
1. вверх
2. вниз
3. влево
4. вправо
5. выход
длина шага = 1. Результат после каждого шага.

@Puporev · 09.05.2013, 15:34

Pascal

uses crt;
var x1,y1,x2,y2,x3,y3,xmn,ymn,mn:real;
    c:char;
begin
clrscr;
writeln('Введите координаты точки А');
readln(x1,y1);
writeln('Введите координаты точки B');
readln(x2,y2);
writeln('Введите координаты точки C');
readln(x3,y3);
if sqr(x1)+sqr(y1)<sqr(x2)+sqr(y2)then
 begin
  mn:= sqr(x1)+sqr(y1);
  xmn:=x1;
  ymn:=y1;
  c:='A'
 end
else
 begin
  mn:= sqr(x2)+sqr(y2);
  xmn:=x2;
  ymn:=y2;
  c:='B'
 end;
if sqr(x3)+sqr(y2)<mn then
 begin
  xmn:=x3;
  ymn:=y3;
  c:='C'
 end;
write('Ближе всех к началу координат точка ',c,'(',xmn:0:1,';',ymn:0:1,')');
readln
end.

@алексей007 0 / 0 / 0 Регистрация: 09.05.2013 Сообщений: 21
		1
	Определить, какая из трех точек ближе к началу координат 09.05.2013, 15:08. Просмотров 2209. Ответов 1 Метки нет (Все метки) Определить, какая из трех точек А(х1,у1), В(х2,у2), С(х3,у3) ближе к началу координат. Исходные данные: числа а и b – координаты точки А. меню действий: шагнуть 1. вверх 2. вниз 3. влево 4. вправо 5. выход длина шага = 1. Результат после каждого шага. 0

Опции темы

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

Решение