Кратчайшее расстояние от произвольной точки M(x, y) до контура фигуры

@Invasion1 · Регистрация: 30.09.2010

Author24 — интернет-сервис помощи студентам

Найти кратчайшее расстояние от произвольной точки M(x,y) с координатами x и y до контура фигуры,точка может располагаться как внутри так и вне геометрической фигуры. Необходимо рассмотреть все возможные варианты и составить для них формулы. На основании этих формул разработать алгоритм и программу, которая по введения с клавиатуры значениям x и y вычисляет и выводит результат на экран монитора.

@Puporev · 05.10.2010, 09:10

Pascal

uses crt;
var r,x,y,d:real;
begin
clrscr;
repeat
write('Радиус, положительное число R=');
readln(r);
until r>0;
writeln('Координаты точки X,Y:');
readln(x,y);
if x>=0 then
 begin
  if y>=r then d:=sqrt(x*x+sqr(y-r)) {1}
  else if y<=-r then d:=sqrt(x*x+sqr(y+r)){2}
  else d:=x;{3}
 end
else
 begin
  if sqrt(x*x+y*y)>=r then d:=sqrt(x*x+y*y)-r {4}
  else if abs(x)<=r-sqrt(x*x+y*y)then d:=abs(x){5-ближе к оси}
  else d:=r-sqrt(x*x+y*y);{5-ближе к окружности}
 end;
write('D=',d:0:2);
readln
end.

@Invasion1 · 05.10.2010, 13:32 **[ТС]**

а за что отвечает 4-я строка??

@Puporev · 05.10.2010, 13:41

uses crt;//убери
var r,x,y,d:real;
begin
clrscr;//убери
Не знаешь, лень узнать, живи в неведении.

@Invasion1 0 / 0 / 0 Регистрация: 30.09.2010 Сообщений: 18
		1
	Кратчайшее расстояние от произвольной точки M(x, y) до контура фигуры 05.10.2010, 08:00. Показов 2615. Ответов 3 Метки нет (Все метки) Найти кратчайшее расстояние от произвольной точки M(x,y) с координатами x и y до контура фигуры,точка может располагаться как внутри так и вне геометрической фигуры. Необходимо рассмотреть все возможные варианты и составить для них формулы. На основании этих формул разработать алгоритм и программу, которая по введения с клавиатуры значениям x и y вычисляет и выводит результат на экран монитора. Миниатюры 0

@Invasion1 0 / 0 / 0 Регистрация: 30.09.2010 Сообщений: 18
	05.10.2010, 13:32 [ТС]	3
	а за что отвечает 4-я строка?? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.10.2010, 13:41	4
	uses crt;//убери var r,x,y,d:real; begin clrscr;//убери Не знаешь, лень узнать, живи в неведении. 0