Минимальное расстояние

@alfarek · Регистрация: 28.09.2013

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

суть задачи в том, чтобы объект, с точки h1 до точки h2 нашел самый короткий путь, при этом коснувшись земли.
, нужно найти самый корокий путь. вот что у меня попробывало получится:

Pascal

program VoronaTest;
 
var h1,h2,d: real;  
   n: integer;
   
   begin
   
    write ('высота 1-го столба -h1 ');
    readln (h1);
    
     write ('высота 2-го столба ');
     readln (h2);
     
      write ('длина меджу столбами ');
      readln (d);
 
        while
        (sqrt(sqr(h1))+sqr(n*0.001*d))+ (sqrt(sqr(h2))+sqr(d-n*0.001))< (sqrt(sqr(h1))+sqr(n-1)*n*0.001*d) - (sqrt(sqr(h2))+sqr(n+1)*n*0.001*d)
        do
        write ('TEST');
        end.

p/s я полный профан, так что если что не так написал, то простите.

@newyork7776 · 28.09.2013, 16:42

Pascal

program VoronaTest;
 
var h1,h2,d: real; 
n: integer;
 
begin
 
write ('высота 1-го столба -h1 ');
readln (h1);
 
write ('высота 2-го столба ');
readln (h2);
 
write ('длина меджу столбами ');
readln (d);
 
while
(sqrt(sqr(h1))+sqr(n*0.001*d))+ (sqrt(sqr(h2))+sqr(d-n*0.001))< (sqrt(sqr(h1))+sqr(n-1)*n*0.001*d) - (sqrt(sqr(h2))+sqr(n+1)*n*0.001*d)
do
write ('TEST');
end.

Добавлено через 2 минуты
пользуйтесь тегами так удобнее смотреть код програмки

Добавлено через 4 минуты
1 2
1 2
1h1 2h2
1 2
1 2
1_______n___________2
картинки кривая но
у нас есть 2 столба и их высота h1 и h2 + разстояние между ними.
нужно найти сколько метров нужно пройти чтобы с h1 перейти в h2 при этом один раз коснуться земли
я правельно думаю или нет?

@alfarek · 28.09.2013, 17:12 **[ТС]**

именно так, нужно с одного столба перелететь на другой, коснувшись земли.

Добавлено через 14 минут
ах да, нужно найти не просто растояние, а самое короткое из возможных.

@Puporev · 28.09.2013, 17:52

Pascal

uses crt;
var h1,h2,d,mn,dx,x,r: real;
 
begin
write ('высота 1-го столба -h1 ');
readln (h1);
write ('высота 2-го столба ');
readln (h2);
write ('расстояние между столбами ');
readln (d);
mn:=h1+sqrt(d*d+h2*h2);
x:=0; //раст. от основания столба 1 до точки касания
dx:=0.001; //шаг вычислений
while x<=d do
 begin
  r:=sqrt(h1*h1+x*x)+sqrt(h2*h2+sqr(d-x));//путь
  if r<mn then mn:=r;
  x:=x+dx
 end;
write('Min put=',mn:0:2)
end.

@alfarek · 28.09.2013, 18:27 **[ТС]**

огромное спасибо, лови плюсики)

@alfarek 2 / 0 / 0 Регистрация: 28.09.2013 Сообщений: 13
	28.09.2013, 17:12 [ТС]	3
	именно так, нужно с одного столба перелететь на другой, коснувшись земли. Добавлено через 14 минут ах да, нужно найти не просто растояние, а самое короткое из возможных. 0

@alfarek 2 / 0 / 0 Регистрация: 28.09.2013 Сообщений: 13
	28.09.2013, 18:27 [ТС]	5
	огромное спасибо, лови плюсики) 0

Минимальное расстояние

Решение