Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.11.2009, 19:55
method method вне форума
Прохожий
 
Регистрация: 04.11.2009
Сообщения: 1
Репутация: 10
По умолчанию Анализатор

Может быть кто поможет разобраться с програмкой...

Вводятся две точки, являющиеся координатами левого верхнего и правого нижнего углов прямоугольника. Программа определяет (выводит в окне), сколько квадрантов захватывает прямоугольник. Главное меню определяет квадрант, в котором должна находиться правая верхняя вершина прямоугольника. Сектора прямоугольника в разных квадрантах закрашивается в разные цвета. Запуск графического построения - ввод последней координаты. Очистка исходных данных - клавиша "Esc".
Ответить с цитированием
  #2  
Старый 08.11.2009, 00:00
Boris the Blade Boris the Blade вне форума
Прохожий
 
Регистрация: 17.09.2009
Сообщения: 27
Репутация: 10
По умолчанию

Программа определяет (выводит в окне), сколько квадрантов захватывает прямоугольник.

_xl, _yl, _xr, _yr - задаваемые координаты
_count - кол-во квадрантов.
Код:
_count := trunc(1.5-sign(_xr*_xl)/2) * trunc(1.5-sign(_yr*_yl)/2)
Ответить с цитированием
  #3  
Старый 08.11.2009, 00:13
Boris the Blade Boris the Blade вне форума
Прохожий
 
Регистрация: 17.09.2009
Сообщения: 27
Репутация: 10
По умолчанию

Главное меню определяет квадрант, в котором должна находиться правая верхняя вершина прямоугольника.
(если не ошибаюсь квадранты считаются от x,y > 0 против часовой?) если да, то:
_count - номер квадранта.
Код:
_count := 2-(sign(_xr)+sign(_yl))/2 - (sign(_xr)+1)*(sign(_yl)-1)/2
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:08.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025