Вопрос по информатике:
Помогите пожалуйста. Информатика
Даны координаты n на плоскости (X1,Y1), ..., (Xn,Yn) (n<=30). Найдите номера двух точек, расстояние между которыми максимально (такая пара точек- есдинственная)
Пожаловаться
- 14.11.2017 06:43
- Информатика
- remove_red_eye 14305
- thumb_up 44
Ответы и объяснения 1
Программа на паскале:
const n=5;
var xy:array[1..n,1..2] of integer;
i, j, imax, jmax:integer;
r, max:real;
begin
Randomize;
for i:=1 to n do
begin
for j:=1 to 2 do
begin
xy[i,j]:=random(21)-10;
write(xy[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
r:=sqr(xy[i,1]-xy[j,1])+sqr(xy[i,2]-xy[j,2]);
if r>max then begin max:=r; imax:=i; jmax:=j; end;
end;
writeln('max = ',sqrt(r):5:2,', точки: ',imax,' - ',jmax);
end.
Пример:
-8 3
-8 -3
7 2
2 10
-6 0
max = 12.81, точки: 2 - 4
PS. Если нужно на C++ - обращайтесь.
const n=5;
var xy:array[1..n,1..2] of integer;
i, j, imax, jmax:integer;
r, max:real;
begin
Randomize;
for i:=1 to n do
begin
for j:=1 to 2 do
begin
xy[i,j]:=random(21)-10;
write(xy[i,j]:4);
end;
writeln;
end;
max:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
r:=sqr(xy[i,1]-xy[j,1])+sqr(xy[i,2]-xy[j,2]);
if r>max then begin max:=r; imax:=i; jmax:=j; end;
end;
writeln('max = ',sqrt(r):5:2,', точки: ',imax,' - ',jmax);
end.
Пример:
-8 3
-8 -3
7 2
2 10
-6 0
max = 12.81, точки: 2 - 4
PS. Если нужно на C++ - обращайтесь.
Пожаловаться
- 15.11.2017 00:38
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы