ПОМОГИТЕ ЭТО ОЧЕНЬ Главно!fpc - Free Pascal 2.6.2-8gcc - GNU C
ПОМОГИТЕ ЭТО ОЧЕНЬ Главно!
fpc - Free Pascal 2.6.2-8
gcc - GNU C 4.8.2
python - Python 2.7.6
javac - Java JDK 1.7.0_45
python3 - Python 3.4.0
Недавно Король побывал с официальным визитом в городке L. и под впечатлениями от города решил в собственном Царстве тоже развивать туризм.
С этой целью уже куплено несколько экипажей и принят проект творенья Центральной Конной станции (ЦКС).
Но, две великие препядствия мешают начать реализацию проекта.
Во-первых, в Царстве не так много площадок для карет (великая часть территории занята цветками Королевы-бабушки, а она ни за что не дозволит их отобрать).
Во-вторых, ни в семье, ни в администрации Короля не могут условиться, на каком из площадок строить ЦКС.
Царица желает, чтоб он был как можно ближе к ее оранжереи и все гости лицезрели чудесные деревья.
Принцесса требует, чтобы ЦКС сооружали у Театра, которым она так восторгается.
Царевич считает жемчужиной Королевства его гольф-клуб, Секретарь Короля - новый ресторан и т.д ...
Король теснее запутался с расчетами и попытками отыскать компромиссное решение.
Мудрый Советник предложил избрать для ЦКС то из площадок, от которого расстояние до самого далекого из главных Королевских Объектов будет наименьшей.
Повелитель согласился с решением Советчика, но не знает как найти, на каком из площадок строить ЦКС. Поможем Королю?
Входные данные (вводятся с клавиатуры):
В первой строке одно целое число N (1 N 500), что задает количество Царских Объектов, которые нужно учесть в выборе площадки ЦКС.
В последующих N строчках по два реальных числа, задающие координаты (x и y) каждого из объектов.
Дальше в отдельной строке одно целое число M (1 M 100), что показывает количество вероятных точек расположения ЦКС.
В последующих M строчках по два реальных числа, задающие координаты (x и y) каждой площадки.
Примечание: упрощенно считаем, что дороги от каждого из площадок ко всем объектам прямолинейны.
Результат: Одно целое число n (1 n N), задающее номер выбранного для ЦКС площадки (расстояние до самого далекого из объектов от этой площадки обязано быть минимальным посреди всех площадок).
Var
arnx,armx,arny,army,delMmax:array[1..1000] of real;
N,M,res,i,j:integer;
min:real;
begin
min:=maxreal;
не уверен существует ли эта константа в fpc, если что, она одинакова наибольшему значению типа real
readln(N);
for i:=1 to N do
readln(arnx[i],arny[i]);
readln(M);
for i:=1 to M do
begin
readln(armx[i],army[i]);
delMmax[i]:=-1;
for j:=1 to N do
if delMmax[i]lt;sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]))
then
delMmax[i]:=sqrt(sqr(armx[i]-arnx[j])+sqr(army[i]-arny[j]));
if delMmax[i]lt;min
then
begin
min:=delMmax[i];
res:=i;
end;
end;
writeln(res);
end.
Пример ввода:
3
2 1
1 2
1 1
3
1 5
3 3
4 2
Пример вывода:
2
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.