28.03.2013, 21:36 | #1 (permalink) |
Новичок
Регистрация: 28.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Алгоритмы с ветвлениями
половина кода у меня есть, а вторую половину мне сказали переписать проще, а как проще я не понимаю.. Задача: Даны координаты четырех точек. Определить, какие треугольники, образованные этими точками, имеют макисмальный, минимальный периметр и площадь. код free Pascal Код:
uses math; var n, i, j, c :longint; x, y :array[1 .. 5] of longint; minP, maxP, minS, maxS, l1, l2, l3 : real; function dist(v, u :longint) :real; begin dist := sqrt(sqr(x[v] - x[u]) + sqr(y[v] - y[u])); end; function area(v, u, p :longint) :real; begin area := abs((x[v] - x[u]) * (y[p] - y[u]) - (y[v] - y[u]) * (x[p] - x[u])) * 0.5; end; __________ minP := min(minP, l1 + l2 + l3); maxP := max(maxP, l1 + l2 + l3); minS := min(minS, area(i, j, c)); maxS := max(maxS, area(i, j, c)); end; writeln(minP :0 : 5, ' ',maxP :0 :5); writeln(minS :0 : 5, ' ', maxS :0 :5); нужно найти l1, l2, l3. без использования цикла |
28.03.2013, 21:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка в этих темах есть интересующий вас ответ Линейные и разветвляющиеся алгоритмы. Условный оператор, Паскаль Алгоритмы, анимация |
29.03.2013, 10:47 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Дык... прежде всего, нужно задать (ввести) координаты X и Y этих самых четырех точек, а затем, перебирая комбинации (всего их 4), через Вами же заданную функцию Dist найти стороны, а уже по ним - периметры и площади. Последнее, кстати, можно и без выпендрёжа с Area, а просто по формуле Герона.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|