Вывести наименьшее расстояние между концами отрезков

@InUteros · Регистрация: 18.06.2012

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

Пусть даны два отрезка, заданные координатами точек их концов. Найти с точностью до тысячных наименьшее расстояние между любыми концами этих отрезков. ТУ. Во входном файле dani.in заданы x1,y1,x2,y2,x3,y3,x4,y4 (-10000<=x1,y1,x2,y2, x3,y3,x4,y4<=10000) – координаты концов отрезков. В исходный файл dani.out вывести наименьшее расстояние между концами отрезков.

на языке оригинала

10. Нехай є два відрізки задані координатами точок їх кінців. Знайти з точністю до тисячних найменшу відстань між будь-якими кінцями цих відрізків.
ТУ. У вхідному файлі dani.in задані x1,y1,x2,y2,x3,y3,x4,y4 (-10000<=x1,y1,x2,y2, x3,y3,x4,y4<=10000) – координати кінців відрізків. У вихідний файл dani.out вивести найменшу відстань між кінцями відрізків.

@PolarFoG · 18.06.2012, 19:44

Разберайтесь...

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program project;
{$mode Objfpc} {$H+}
 
uses crt, FileUtil, SysUtils;
 
var
  i:integer;
  f:TextFile;
  s:string;
  A:array [1..2,1..4] of integer;
  A1:array [1..4] of real;
 
 
  function Dlina(x1,y1,x2,y2:integer):real;
begin
  result:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
procedure sort_puz(var M:array of real);
var t:real; i,j,c:integer;
begin
 
     c:=high(M);
 
     for i:=1 to c do
     for j:=c downto i do
     if M[j-1]>M[j] then begin
       t:=M[j];
       M[j]:=M[j-1];
       M[j-1]:=t;
     end;
end;
 
begin
  AssignFile(f, 'dani.in');
  Reset(f);
 
  for i:=1 to 4 do begin
    read(f, A[1,i]);
    read(f, A[2,i]);
  end;
  CloseFile(f);
 
    A1[1]:=Dlina(A[1,1],A[2,1],A[1,3],A[2,3]);
    A1[2]:=Dlina(A[1,1],A[2,1],A[1,4],A[2,4]);
    A1[3]:=Dlina(A[1,2],A[2,2],A[1,3],A[2,3]);
    A1[4]:=Dlina(A[1,2],A[2,2],A[1,4],A[2,4]);
 
sort_puz(A1);
 
  AssignFile(f, 'dani.out');
  Rewrite(f);
  Str(A1[1]:10:3,s);
  Write(f,s);
  Closefile(f);
end.

Новые блоги и статьи Все статьи Все блоги /
Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .	Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .
Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .	Реляционная модель и правила Кодда: фундамент современных баз данных Codd 05.04.2025 Конец 1960-х — начало 1970-х годов был периодом глубоких трансформаций в области хранения и обработки данных. На фоне растущих потребностей бизнеса и правительственных структур существовавшие на тот. . .	Асинхронные операции в Django с Celery py-thonny 05.04.2025 Разработчики Django часто сталкиваются с проблемой, когда пользователь нажимает кнопку отправки формы и. . . ждёт. Секунды растягиваются в минуты, терпение иссякает, а интерфейс приложения замирает. . . .	Использование кэшей CPU: Максимальная производительность в Go golander 05.04.2025 Разработчикам хорошо известно, что эффективность кода зависит не только от алгоритмов и структур данных, но и от того, насколько удачно программа взаимодействует с железом. Среди множества факторов,. . .

@InUteros 0 / 0 / 0 Регистрация: 18.06.2012 Сообщений: 22

	Вывести наименьшее расстояние между концами отрезков 18.06.2012, 13:19. Показов 1539. Ответов 1 Метки нет (Все метки) Пусть даны два отрезка, заданные координатами точек их концов. Найти с точностью до тысячных наименьшее расстояние между любыми концами этих отрезков. ТУ. Во входном файле dani.in заданы x1,y1,x2,y2,x3,y3,x4,y4 (-10000<=x1,y1,x2,y2, x3,y3,x4,y4<=10000) – координаты концов отрезков. В исходный файл dani.out вывести наименьшее расстояние между концами отрезков. на языке оригинала 10. Нехай є два відрізки задані координатами точок їх кінців. Знайти з точністю до тисячних найменшу відстань між будь-якими кінцями цих відрізків. ТУ. У вхідному файлі dani.in задані x1,y1,x2,y2,x3,y3,x4,y4 (-10000<=x1,y1,x2,y2, x3,y3,x4,y4<=10000) – координати кінців відрізків. У вихідний файл dani.out вивести найменшу відстань між кінцями відрізків. 0

Вывести наименьшее расстояние между концами отрезков

Решение