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

@Mephisto_92 · Регистрация: 14.04.2011

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста...

Определить, какая из точек плоскости ближе к началу координат.
A(a,b), B(a2,b2), C(a3,b3)

Если можно напишите пожалуйста текст задачи с пояснениями...
Заранее благодарен!

@Puporev · 25.02.2012, 10:33

Pascal

var a1,b1,a2,b2,a3,b3,mn:real;//координаты  и мин. расст
    s:char;//символ точки
begin
//ввод координат
writeln('Введите координаты точки А');
readln(a1,b1);
writeln('Введите координаты точки B');
readln(a2,b2);
writeln('Введите координаты точки C');
readln(a3,b3);
//определение ближней
if a1*a1+b1*b1<a2*a2+b2*b2 then //сравниваем квадраты расстояний
 begin
  mn:=a1*a1+b1*b1;
  s:='A'
 end
else
 begin
  mn:=a2*a2+b2*b2;
  s:='B';
 end;
if a3*a3+b3*b3<mn then s:='C';
write('Ближе к началу координат точка ',s);
readln
end.

@Mephisto_92 0 / 0 / 0 Регистрация: 14.04.2011 Сообщений: 45
		1
	Определить. какая из точек плоскости ближе к началу координат 24.02.2012, 18:33. Показов 2324. Ответов 1 Метки нет (Все метки) Помогите пожалуйста... Определить, какая из точек плоскости ближе к началу координат. A(a,b), B(a2,b2), C(a3,b3) Если можно напишите пожалуйста текст задачи с пояснениями... Заранее благодарен! 0

	25.02.2012, 10:33

Опции темы