Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Люди пожалуйста помогите

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 16.10.2011, 19:10   #1
 Разведчик
Аватар для tikos
 
tikos никому не известный тип
Регистрация: 16.10.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Люди пожалуйста помогите

люди помогите, надо сделать так, чтобы когда вводишь число которое вхоидт в треугольник оно выводило что точнка принадлежит, а если нет то непринадлежит. формула y=kx+b
програму в турбу поскале
вот сам треугольник
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Старый 17.10.2011, 21:17   #2
 Разведчик
Аватар для Babls77
 
Babls77 скоро будет известенBabls77 скоро будет известенBabls77 скоро будет известен
Регистрация: 21.01.2011
Сообщений: 36
Популярность: 205
Сказал(а) спасибо: 215
Поблагодарили 45 раз(а) в 19 сообщениях
 
По умолчанию Re: Люди пожалуйста помогите

Может тебе это поможет:
Проверяет попадает ли точка P в треугольник ABC.
Вершины должны быть заданы против часовой стрелки
Точка А-вершина треугольника
Точка В- левый угол треугольника
Точка С- правый угол треугольника

Цитата:
------A
-----/--\
----/--- \
---B-----C
function PtInTriang(const P, A, B, C: TPoint): Boolean;
begin
Result := False;
if (P.x-A.x)*(A.y-B.y) - (P.y-A.y)*(A.x-B.x) >= 0 then
if (P.x-B.x)*(B.y-C.y) - (P.y-B.y)*(B.x-C.x) >= 0 then
if (P.x-C.x)*(C.y-A.y) - (P.y-C.y)*(C.x-A.x) >= 0 then
Result := True;
end;


Последний раз редактировалось Babls77; 17.10.2011 в 21:25.
  Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Помогите!] Помогите пожалуйста люди!) donaukinde1 Общение и обсуждение, архив Lineage 2 5 22.08.2011 14:00

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 21:16.

Пишите нам: forum@zhyk.ru
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net