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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

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

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

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

Решение