Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R

@некит434 · Регистрация: 23.01.2014

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

Линейный массив A содержит 2*N элементов, значения которых задаются по следующей формуле a[i]:=10*sin(N+i*i). Элементы массива нумеруются с единицы.

Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R с центром в начале координат, если значения элементов А[1] и А[2] - координаты первой точки, элементов А[3] и А[4] - второй точки и т. д.

@Puporev · 28.07.2014, 17:56

Pascal

const nmax=50;
var a:array[1..2*nmax] of real;
    n,i,k:integer;
    r,d,s:real;
begin
repeat
write('Размер половмны массива А от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив A');
for i:=1 to 2*n do
 begin
  a[i]:=10*sin(n+i*i);
  write(a[i]:8:2)
 end;
writeln;
write('r=');
readln(r);
s:=0;{сумма расстояний}
k:=0;{количество точек}
for i:=1 to n do
if(a[2*i-1]>0)and(a[2*i]<0) then{4 четверть x>0 y<0}
 begin
  d:=sqrt(sqr(a[2*i-1])+sqr(a[2*i]));{расстояние до центра}
  if d<=r then{если не больше радиуса}
   begin
    k:=k+1;{считаем}
    s:=s+d{суммируем}
   end;
 end;
if k=0 then write('Нет заданных точек')
else
 begin
  s:=s/k;
  write('Среднее расстояние=',s:0:2)
 end;
end.

@некит434 2 / 2 / 0 Регистрация: 23.01.2014 Сообщений: 272
		1
	Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R 28.07.2014, 17:09. Показов 3315. Ответов 1 Метки нет (Все метки) Линейный массив A содержит 2N элементов, значения которых задаются по следующей формуле a[i]:=10sin(N+i*i). Элементы массива нумеруются с единицы. Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R с центром в начале координат, если значения элементов А[1] и А[2] - координаты первой точки, элементов А[3] и А[4] - второй точки и т. д. 0

Опции темы

Найти среднее расстояние от начала координат до точек, расположенных в четвертой четверти круга радиуса R

Решение