Программка получает на вход набор точек на плоскости. Поначалу задано количество

Программа получает на вход набор точек на плоскости. Поначалу задано количество точек n, потом идет последовательность из n строк, каждая из которых содержит два числа: координаты точки. Величина n не превосходит 100, все начальные координаты целые числа, не превосходящие 103. Выходные данные Выведите координаты центра тяжести данного огромного количества точек. Ответ необходимо выводить с точностью в 15 значащих цифр.

Задать свой вопрос
Ярослава Ваисова
Поиск центроида - среднего арифметического по каждой из координат.
1 ответ
\displaystyle X_c=  \frac1n \sum_i=1^nx_i ; \ Y_c=  \frac1n \sum_i=1^ny_i

// PascalABC.NET 3.0, сборка 1128
var
  n,i:integer;
  x,y,xc,yc:double;
begin
  Write('n='); Read(n);
  xc:=0; yc:=0;
  for i:=1 to n do begin
    Read(x,y);
    xc:=xc+x; yc:=yc+y
    end;
  Writeln('Xc=',xc/n,', Yc=',yc/n)
end.

Тестовое решение:
n=5
1.16 -3.7
9.35 0
5.173 2.2432
-4.1 6.77
-5 5
Xc=1.3166, Yc=2.06264

Замечание: если результаты будут иметь большее количество цифр, то в пределах 15 все эти числа будут показаны.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт