Миссия радиотехника состоит в создании сети из n антенн, разбросанных по обширной пустыне, которую можно представить в виде двумерной плоскости. Он установит радиус передачи каждой антенны равным одному и тому же неотрицательному вещественному числу r. Дальность действия антенны определяется как множество всех точек, расстояние до которых не превышает r. Если диапазоны двух антенн имеют общую точку, эти антенны могут напрямую взаимодействовать. Кроме того, если антенны A и B могут общаться, а также антенны B и C, то антенны A и C также могут общаться через антенну B. Радиотехник хочет соединить антенны в сеть, то есть сделать так, чтобы каждые две антенны могли общаться. Поскольку ему ограничил расходы на эту миссию, а большие радиусы требуют больше денег, он выберет наименьший возможный радиус ему решить эту проблему!
Вход Входная первая строка содержит целое число n (1 ≤ n ≤ 1000), количество антенн. Каждая из следующих n строк содержит целые числа xi и yi (0 = xi , yi = 109 ), координаты i-й антенны. Выход. Выведите минимальный радиус. Ваш ответ будет считаться правильным, если его абсолютная или относительная погрешность не превышает 10-6.
Оценка. В тестовых случаях стоит это означает, что 1 ≤ n ≤ 100.
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var a:=MatrRandom(n,n,1,50); a.Println(3); Writeln(3*a.ColCount*'-'); // начало расчетов var s:=0; for var i:=0 to n-1 do s+=a[i,n-i-1]; Writeln('1: S=',s); Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn; Write('3: Произведение элементов: '); a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn; var p:BigInteger:=1; for var i:=0 to n-1 do p*=a[i,i]; Writeln('4: П=',p); end.
Возможность создавать новый документ, используя при этом шаблоны.Возможность одновременно открывать и работать не с одним числом документов.Автоматически проверять орфографию, стилистику и грамматику при вводе текста в документ.Возможность автоматические корректировать ошибки, которые больше всего повторяются в написанном.Включает в себя расширенные возможности по форматированию документа.Возможность применять стили для быстрого форматирования документа.Включает в себя удобные механизмы по работе со сносками, ссылками, колонтитулами.Позволяет включать в текст элементы, которые были созданы в других программах, входящих в Microsoft Office: электронные таблицы, графические изображения или фотографии, графику, видеоизображения, звуки и многое другое.Возможность подготавливать гипертекстовые документы Internet и простые электронные таблицы.Возможность автоматические создавать указатели и оглавление документа.Возможность для отправки готового документа сразу из Word'a по электронной почте или же другому человеку или предприятию на факс.Содержит встроенную объемную систему и мастер подсказок.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,1,50);
a.Println(3); Writeln(3*a.ColCount*'-');
// начало расчетов
var s:=0;
for var i:=0 to n-1 do s+=a[i,n-i-1];
Writeln('1: S=',s);
Write('2: Суммы построчно: '); a.Rows.Select(row->row.Sum).PrintLn;
Write('3: Произведение элементов: ');
a.ElementsByRow.Aggregate(BigInteger(1),(p,q)->p*q).PrintLn;
var p:BigInteger:=1;
for var i:=0 to n-1 do p*=a[i,i];
Writeln('4: П=',p);
end.