Наименьший периметр треугольника

@HERON · Регистрация: 17.05.2009

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

Народ хелп!
Дано множество А из (N >2 точки заданы своими координатами точек x,y ).Найти наименьший периметр треугольника,вершины которого принадлежат различным точкам множества А , и сами эти точки(точки выводятся в том же порядке, в котором они перечислены при задании.
Кто знает помогите пжл.

Добавлено через 1 час 38 минут
плз

Добавлено через 57 минут
спасите!

@кот Бегемот · 28.12.2009, 20:39

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
var
x,y:array[1..1000]of integer;
a,b,c,p:real;
i,n,xa,xb,xc,ya,yb,yc:integer;
begin
readln(n);
randomize;
writeln('tochki');
for i:=1 to n do
begin
x[i]:=random(20);
y[i]:=random(20);
writeln(x[i],'   ',y[i]);
end;
for i:=1 to n do
  for j=1 to n do
   for k=1 to n do
  if(i<>j)and(i<>k)and(j<>k)then 
    begin
       a:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]);
       b:=sqrt(sqr(x[i]-x[k])+sqr(y[i]-y[k]);
       c:=sqrt(sqr(x[j]-x[k])+sqr(y[j]-y[k]);
              if(a+b>c)and(a+c>d)and(b+c>a)then begin
             if a+b+c<p then begin
             p:=a+b+c;
             xa:=x[i];
             ya:=y[i];
             xb:=x[j];
             yb:=y[j];
             xc:=x[k];
             yc:=y[k];
              end;
              end;
              end; 
writeln('min perimetr=',p);
writeln ('tochki');
writeln(xa,'      ',ya);
writeln(xb,'      ',yb);
writeln(xc,'      ',yc);
end.

@HERON · 28.12.2009, 20:41 **[ТС]**

Спасибо что выручили!

@кот Бегемот · 28.12.2009, 20:43

это не тот вариант, это черновик, сейчас правильный выложу

Добавлено через 46 секунд

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
var
x,y:array[1..1000]of integer;
a,b,c,p:real;
i,j,k,n,xa,xb,xc,ya,yb,yc:integer;
begin
p:=1E+38;
readln(n);
randomize;
writeln('tochki');
for i:=1 to n do
begin
x[i]:=random(20);
y[i]:=random(20);
writeln(x[i],'   ',y[i]);
end;
for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
  if(i<>j)and(i<>k)and(j<>k)then
    begin
       a:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
       b:=sqrt(sqr(x[i]-x[k])+sqr(y[i]-y[k]));
       c:=sqrt(sqr(x[j]-x[k])+sqr(y[j]-y[k]));
              if(a+b>c)and(a+c>b)and(b+c>a)then begin
             if a+b+c<p then begin
             p:=a+b+c;
             xa:=x[i];
             ya:=y[i];
             xb:=x[j];
             yb:=y[j];
             xc:=x[k];
             yc:=y[k];
              end;
              end;
              end;
writeln('min perimetr=',p:5:2);
writeln ('tochki');
writeln(xa,'      ',ya);
writeln(xb,'      ',yb);
writeln(xc,'      ',yc);
readln;
end.

@HERON · 28.12.2009, 22:37 **[ТС]**

Сообщение от alexevt

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
var
x,y:array[1..1000]of integer;
a,b,c,p:real;
i,n,xa,xb,xc,ya,yb,yc:integer;
begin
readln(n);
randomize;
writeln('tochki');
for i:=1 to n do
begin
x[i]:=random(20);
y[i]:=random(20);
writeln(x[i],'   ',y[i]);
end;
for i:=1 to n do
  for j=1 to n do
   for k=1 to n do
  if(i<>j)and(i<>k)and(j<>k)then 
    begin
       a:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]);
       b:=sqrt(sqr(x[i]-x[k])+sqr(y[i]-y[k]);
       c:=sqrt(sqr(x[j]-x[k])+sqr(y[j]-y[k]);
              if(a+b>c)and(a+c>d)and(b+c>a)then begin
             if a+b+c<p then begin
             p:=a+b+c;
             xa:=x[i];
             ya:=y[i];
             xb:=x[j];
             yb:=y[j];
             xc:=x[k];
             yc:=y[k];
              end;
              end;
              end; 
writeln('min perimetr=',p);
writeln ('tochki');
writeln(xa,'      ',ya);
writeln(xb,'      ',yb);
writeln(xc,'      ',yc);
end.

Программа не правильно проводит обсчет(
Там где ответ выводит нули.

Добавлено через 45 секунд
Ой не увидел )

Добавлено через 1 минуту
Все работает,еще раз спс)

Добавлено через 1 час 45 минут

Сообщение от alexevt

p:=1E+38;

А можете сказать что присваивается к "p".

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@HERON 1 / 1 / 0 Регистрация: 17.05.2009 Сообщений: 104

	Наименьший периметр треугольника 28.12.2009, 19:59. Показов 1717. Ответов 4 Метки нет (Все метки) Народ хелп! Дано множество А из (N >2 точки заданы своими координатами точек x,y ).Найти наименьший периметр треугольника,вершины которого принадлежат различным точкам множества А , и сами эти точки(точки выводятся в том же порядке, в котором они перечислены при задании. Кто знает помогите пжл. Добавлено через 1 час 38 минут плз Добавлено через 57 минут спасите! 0

@HERON 1 / 1 / 0 Регистрация: 17.05.2009 Сообщений: 104
	28.12.2009, 20:41 [ТС]
	Спасибо что выручили! 0