При заданных координатах для n точек плоскости XOY найти расстояние от начала координат до каждой из них

@MaxCover · Регистрация: 12.11.2016

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

Разработать программу с единственным циклом для обработки одномерых массивов:
При заданных координатах X₁, X₂, ..., X_n; Y₁, Y₂, ..., Y_n для n точек плоскости XOY найти расстояние R_k от начала координат до каждой из них (координатами k-ой точки являются X_k, Y_k)

@Paradoxal_In · 12.11.2016, 20:38

Pascal

var
  x, y: array of real;
begin
  var n := readinteger;
  setlength(x, n + 1);
  setlength(y, n + 1);
  for var i := 1 to n do
  begin
    readln(x[i],y[i]);
    x[i]:=sqrt(sqr(x[i])+sqr(y[i]));
  end;
  x.where(y->y>0).Print;
end.

@MaxCover 0 / 0 / 0 Регистрация: 12.11.2016 Сообщений: 3
		1
	При заданных координатах для n точек плоскости XOY найти расстояние от начала координат до каждой из них 12.11.2016, 16:36. Показов 3443. Ответов 1 Метки нет (Все метки) Разработать программу с единственным циклом для обработки одномерых массивов: При заданных координатах X₁, X₂, ..., X_n; Y₁, Y₂, ..., Y_n для n точек плоскости XOY найти расстояние R_k от начала координат до каждой из них (координатами k-ой точки являются X_k, Y_k) 0

Опции темы

При заданных координатах для n точек плоскости XOY найти расстояние от начала координат до каждой из них

Решение