Вывести на экран полярные координаты точек, упорядочные по возрастанию полярного радиуса

@Степанид · Регистрация: 12.12.2018

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

2. Три точки заданы своими координатами (х₁, у₁), (х₂, у₂) и (х₃, у₃). Вывести на экран полярные координаты этих точек, порядочные по возрастанию полярного радиуса.

(Указание). Полярные радиус ρ и полярный угол φ вычисляются по следующим формулам:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \rho =\sqrt{x^2+y^2},\\\\\varphi =\operatorname{arctg} \frac{y}{x}<br />$

@Puporev · 14.12.2018, 16:07

Например так.

Pascal

const n=3;
var t:array[1..2,1..n] of real;
    i,j:byte;
    x:real;
begin
writeln('Введите координаты трех точек');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');
  readln(t[1,i]);
  repeat
  write('y<>0 y=');
  readln(t[2,i]);
  until t[2,i]<>0;
  t[1,i]:=sqrt(sqr(t[1,i])+sqr(t[2,i]));
  t[2,i]:=arctan(t[2,i]/t[1,i]);
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if t[1,i]>t[1,j] then
 begin
  x:=t[1,i];
  t[1,i]:=t[1,j];
  t[1,j]:=x;
  x:=t[2,i];
  t[2,i]:=t[2,j];
  t[2,j]:=x;
 end;
writeln('Координаты в полярной системе в порядке возрастания радиусов');
for i:=1 to n do
writeln('(',t[1,i]:0:2,';',t[2,i]:0:2,')');
end.

@Степанид 0 / 0 / 0 Регистрация: 12.12.2018 Сообщений: 18
		1
	Вывести на экран полярные координаты точек, упорядочные по возрастанию полярного радиуса 14.12.2018, 12:24. Показов 871. Ответов 1 Метки нет (Все метки) 2. Три точки заданы своими координатами (х₁, у₁), (х₂, у₂) и (х₃, у₃). Вывести на экран полярные координаты этих точек, порядочные по возрастанию полярного радиуса. (Указание). Полярные радиус ρ и полярный угол φ вычисляются по следующим формулам: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \rho =\sqrt{x^2+y^2},\\\\\varphi =\operatorname{arctg} \frac{y}{x}<br />$ 0

	14.12.2018, 16:07