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

@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".

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

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

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

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