Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
gamerokk
0 / 0 / 1
Регистрация: 05.10.2013
Сообщений: 8
#1

Задача про стороны многоугольника - Pascal ABC

05.10.2013, 15:11. Просмотров 335. Ответов 4
Метки нет (Все метки)

Многоугольник задан координатами своих вершин. Найти длину самой
короткой стороны.
кто может, помогите!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.10.2013, 15:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Задача про стороны многоугольника (Pascal ABC):

Написать модуль, определяющий для произвольного выпуклого многоугольника максимальную длину стороны и диагонали
Определяющий для произвольного выпуклого многоугольника, заданного координатами...

Найти стороны разностороннего четырехугольника, зная только его стороны
Помогите пожалуйста найти стороны разностороннего четырехугольника, зная только...

Задача про конверты
Объясните как можно подробнее(словесно). По краю очень большого круглого...

Задача про Шерлока
Здравствуйте, помогите, пожалуйста, с заданием. Шерлок Холмс и доктор...

задача про мыло!
Щоб бути завжди чистою, людині необхідно х (24 < х < 50) шматків мила на рік....

Задача про время
Пользователем задаются часы и минуты, выяснить, через, сколько минут часовая и...

4
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
05.10.2013, 16:00 #2
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
uses crt;
const nmax=20;
var x,y:array[1..nmax+1] of real;
    n,i:byte;
    mn:real;
begin
repeat
write('Количество вершин от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
writeln('Введите координаты вершин в порядке обхода');
for i:=1 to n do
 begin
  writeln('Вершина ',i);
  write('x=');
  read(x[i]);
  write('y=');
  read(y[i]);
 end;
x[n+1]:=x[1];
y[n+1]:=y[1];
mn:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
for i:=2 to n do
if sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]))<mn
then mn:=sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]));
write('Длина наименьшей стороны=',mn:0:2)
end.
1
gamerokk
0 / 0 / 1
Регистрация: 05.10.2013
Сообщений: 8
05.10.2013, 16:14  [ТС] #3
а как ввести условие, что такой многоугольник существует?
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
05.10.2013, 16:18 #4
Если он задан координатами, то всегда существует, в худшем случае он вырожденный...
1
gamerokk
0 / 0 / 1
Регистрация: 05.10.2013
Сообщений: 8
05.10.2013, 16:25  [ТС] #5
спасибо!
0
05.10.2013, 16:25
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2013, 16:25
Привет! Вот еще темы с решениями:

Задача про шахматы
Задается на шахматной доске 2 координаты 1 клетки (конь) и 2 координаты другой...

Задача про автомобиль
Вообщем, задача одна не из лёгких, во всяком случае для меня. Для тех, кто...

задача про включатель
Добрый вечер! Возникла проблема с решением данной задачи, был бы очень...

Задача про массивы
Здравствуйте, очень нужна помощь в лабораторной. Ввести 3 одинаковых...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru