Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
ra4ok
0 / 0 / 1
Регистрация: 12.10.2011
Сообщений: 37
1

Найти минимальное расстояние от любой точки до области

02.12.2012, 03:36. Просмотров 816. Ответов 3
Метки нет (Все метки)

Помогите написать программу, фотография приложена, найти минимальное расстояние от ЛЮБОЙ точки до области.
0
Миниатюры
Найти минимальное расстояние от любой точки до области  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 03:36
Ответы с готовыми решениями:

Определить номер точки, для которой суммарное расстояние до всех остальных точек минимальное
На прямой задано n точек с равными расстояниями между ними. Определить номер...

Найти кратчайшее расстояние от произвольной точки..
Найти кратчайшее расстояние от произвольной точки M(X,Y) с координатами X и Y...

Найти расстояние от точки до ближайшей стороны треугольника
Даны координаты вершин треугольника и координаты некоторой точки М внутри него....

Найти расстояние от данной точки до ближайшей стороны треугольника
Даны координаты вершин треугольника и координаты некоторой точки внутри него....

Найти расстояние от данной точки до ближайшей стороны треугольника.
Даны координаты вершин треугольника и координаты некоторой точки внутри него....

3
Puporev
Модератор
55418 / 42547 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
02.12.2012, 11:07 2
До области или до границы области? Если точки находятся внутри области то будет 0, или разные значения?
0
Zhexon
312 / 271 / 272
Регистрация: 25.09.2011
Сообщений: 477
02.12.2012, 11:43 3
ну я так понял, что до области ))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  c,r,x,y : real;
Begin
  write('input R,X,Y (real) : '); readln(r,x,y);
  if x>0 then begin
    if abs(y)>r then c:=sqrt(sqr((x))+sqr((y-r))) // расстояние до (0,R)
                else c:=x;  // расстояние до оси Y
    if c>r then c:=c-r else c:=0; // вычитаем лишний R из расстояния
  end else begin
    if abs(y)>(2*R) then c:=sqrt(sqr((x))+sqr((y-2*r))) // расстояние до (0,2R)
                    else c:=abs(x);
  end;
  if c=0 then writeln('na polqne ') else writeln(' rasst = ',c:0:2);
  readln;
end.
.. вроде так
1
ra4ok
0 / 0 / 1
Регистрация: 12.10.2011
Сообщений: 37
02.12.2012, 14:12  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
До области или до границы области? Если точки находятся внутри области то будет 0, или разные значения?
было сказано до области, наверное имелось в виду до границы, но если любая точка, то наверно, не входящая в эту область?

Добавлено через 14 минут
Цитата Сообщение от Zhexon Посмотреть сообщение
ну я так понял, что до области ))

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  c,r,x,y : real;
Begin
  write('input R,X,Y (real) : '); readln(r,x,y);
  if x>0 then begin
    if abs(y)>r then c:=sqrt(sqr((x))+sqr((y-r))) // расстояние до (0,R)
                else c:=x;  // расстояние до оси Y
    if c>r then c:=c-r else c:=0; // вычитаем лишний R из расстояния
  end else begin
    if abs(y)>(2*R) then c:=sqrt(sqr((x))+sqr((y-2*r))) // расстояние до (0,2R)
                    else c:=abs(x);
  end;
  if c=0 then writeln('na polqne ') else writeln(' rasst = ',c:0:2);
  readln;
end.
.. вроде так
Сейчас узнал точное задание, до границы области. Я так понял это до границы?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 14:12

Найти расстояние до самой удаленной точки от начала координат
на плоскости заданы своими координатами 15 точек. Найти расстояние до самой...

Заданы 2 точки пространстве. Найти расстояние между ними
№1. Заданы 2 точки пространстве. Найти расстояние между ними №2 Даны 3числа...

Найти принадлежность точки области
Задачка: Найти принадлежность точки М ( на картинке) И сам код: тоже на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru