1. Назвіть найбільш важливі ресурси комп’ютера 2. Основні переваги ОС Windows
3. Для чого призначені функції API?
4. Основні особливостіWin32, які впливають на стиль програмування
та методику керування
5. Для чого призначено Графічний інтерфейс користувача
(Usergraphicinterface – GUI)?
6. Назвіть основні елементи GUI
7. Що називається ресурсами програми?
8. Назвіть основні ресурси.
9. Які графічні об’єктивикористовуютьсядля відображення інформації
в Windows?
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