Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
ra4ok
0 / 0 / 0
Регистрация: 12.10.2011
Сообщений: 37
#1

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

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

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

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

Найти кратчайшее расстояние от произвольной точки.. - Turbo Pascal
Найти кратчайшее расстояние от произвольной точки M(X,Y) с координатами X и Y до контура фигуры, точка может располагаться внутри и вне...

Найти расстояние от точки до ближайшей стороны треугольника - Turbo Pascal
Даны координаты вершин треугольника и координаты некоторой точки М внутри него. Испрользуя процедуру ( или функцию) подсчета расстояния от...

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

Заданы 2 точки пространстве. Найти расстояние между ними - Turbo Pascal
№1. Заданы 2 точки пространстве. Найти расстояние между ними №2 Даны 3числа А,В,С. Если она порядочны то удвоить их значения; иначе...

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

3
Puporev
Модератор
54023 / 41656 / 14733
Регистрация: 18.05.2008
Сообщений: 97,933
02.12.2012, 11:07 #2
До области или до границы области? Если точки находятся внутри области то будет 0, или разные значения?
0
Zhexon
312 / 271 / 89
Регистрация: 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 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Найти две точки, расстояние между которыми самое большое - Turbo Pascal
N точек задано своими координатами на плоскости массив X содержит абсциссы точек, массив Y - ординаты (Ai (x , y )). Найти две точки,...

Найти расстояние от данной точки внутри треугольника до ближайшей его стороны - Turbo Pascal
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Составить программу, находящую расстояние от данной точки до...


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

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

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