Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 18.06.2012
Сообщений: 22

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

18.06.2012, 13:19. Показов 1537. Ответов 1
Метки нет (Все метки)

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 вивести найменшу відстань між кінцями відрізків.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.06.2012, 13:19
Ответы с готовыми решениями:

Вывести на экран наименьшее расстояние между двумя точками
Сама задача: Дано множество точек с координатами на плоскости. Написать программу, которая использует подпрограммы и выведит на...

Вывести те пары слов, расстояние между которыми наименьшее
Вывести те пары слов, расстояние между которыми наименьшее.(Расстояние между словами это количество позиций, в которых они...

На прямой своими концами заданы N отрезков. Найти точку принадлежащую максимальному числу отрезков
Помогите пожалуйста понять, что от меня хотят и какой(как) разработать алгоритм для решения этой задачи. На прямой своими концами...

1
NPC
 Аватар для PolarFoG
152 / 146 / 22
Регистрация: 10.01.2012
Сообщений: 390
18.06.2012, 19:44
Лучший ответ Сообщение было отмечено InUteros как решение

Решение

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

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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.06.2012, 19:44
Помогаю со студенческими работами здесь

Найдите расстояние между серединами отрезков AE1
1. В правильной шестиугольной призме ABCDEFA1B1C1D1E1F1 сторона основания равна 1, а высота равна 2. Найдите расстояние между серединами...

Вывести максимальное расстояние из трех отрезков
Задача: Три точки заданы своими координатами. Найти наиболее удаленные друг от друга точки. Координаты первой точки - (A.x, A.y); второй...

наименьшее расстояние между точками
Движение точек А и В по осям абсцисс и ординат задается функциями x=t-4, y=t+2. В какой момент времени t расстояние между точками А и В...

Наименьшее расстояние между локальными максимумами
Определите наименьшее расстояние между двумя локальными максимумами последовательности натуральных чисел, завершающейся числом 0. Если в...

Найти наименьшее расстояние между точками.
дан массив М координат точек на плоскости. найти наименьшее расстояние между этими точками.


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Контейнеризация React приложений с Docker
Reangularity 03.04.2025
Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .
Свой попап в SwiftUI
mobDevWorks 03.04.2025
SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .
Антипаттерны микросервисной архитектуры
ArchitectMsa 03.04.2025
Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .
std::mutex в C++: Советы и примеры использования
bytestream 03.04.2025
std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .
Не удержался от оценки концепции двигателя Стирлинга.
Hrethgir 03.04.2025
Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
Метод с двумя буферами (или double buffering) или ping-pong buffering
Hrethgir 02.04.2025
Из ответов LM модели. Метод, который предполагает использование двух массивов для хранения промежуточных результатов сложения векторов, обычно применяется в сценариях, где необходимо минимизировать. . .
На любовном киберфронте
Alexander-7 01.04.2025
Недавно на одном малоизвестном сайте знакомств мною заинтересовалась девушка: «Текст немного странный. Но, судя по адресу почты, иностранка», – подумал я. Поколебавшись пару суток, я ответил ей:. . .
Как работает Node.js изнутри
run.dev 29.03.2025
Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .
Моки в Python: Mock Object Library
py-thonny 29.03.2025
Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .
JavaScript: Управление памятью и улучшение производительности
run.dev 29.03.2025
В отличие от низкоуровневых языков программирования, JavaScript не требует ручного выделения и освобождения памяти. Здесь работает автоматический сборщик мусора, который определяет, какие объекты. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер