Это важно! 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), номер выбранного для цкс площадки (расстояние до самого дальнего из объектов от этой площадки должно быть наименьшим среди всех площадок).

169

347

Посмотреть ответы 2

Ответы на вопрос:

ivan488

Информатика

4,5(6 оценок)

//pascalabc.net 3.2 сборка 1318 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]< 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]< 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