Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.02.2008, 23:40   #1
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
Счастье Нарисовать линию под указанным градусом

Привет, извените за ламерский вопрос
Как нарисовать в паскале линию повёрнутую на N градусов?
nikleb вне форума Ответить с цитированием
Старый 05.02.2008, 23:56   #2
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

y = kx, где k - коэфициэнт наклона.

Например: y = 2x
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 06.02.2008, 00:07   #3
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию

Ну а если мне надо например стрелки чясов сделат, то такой способ не получиться
nikleb вне форума Ответить с цитированием
Старый 06.02.2008, 00:34   #4
B_N
Новичок
Джуниор
 
Регистрация: 18.01.2008
Сообщений: 1,720
По умолчанию

Цитата:
Сообщение от nikleb Посмотреть сообщение
Ну а если мне надо например стрелки чясов сделат, то такой способ не получиться
А Вы про тангенс угла слышали? в случае с чАсами, например, где размер деления одного часа на циферблате - 30 градусов, отметка 1-го (13-го) часа "отстоит" от оси 0x на 60 градусов, тангенс 60 градусов - примерно 1.73 - вот Вам и коэффициент k, про который писал Карась
B_N вне форума Ответить с цитированием
Старый 06.02.2008, 00:41   #5
Карась
Участник клуба
 
Аватар для Карась
 
Регистрация: 26.10.2007
Сообщений: 1,244
По умолчанию

Не нравится тангенс? Воспользуемся синусом и косинусом

x = r * cos(a)
y = r * sin(a)

где r - радиус.

Теперь осталось построить линию - стрелку...
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым,
Попытка глубже понимать уже попахивает литром...
Карась вне форума Ответить с цитированием
Старый 06.02.2008, 15:05   #6
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию

Спасибо, а как real в integer перевести?
nikleb вне форума Ответить с цитированием
Старый 06.02.2008, 15:17   #7
_Dmitry
Участник клуба
 
Аватар для _Dmitry
 
Регистрация: 02.09.2007
Сообщений: 1,193
По умолчанию

http://delphibasics.ru/Round.php
ну, и читать книги
_Dmitry вне форума Ответить с цитированием
Старый 06.02.2008, 15:22   #8
nikleb
Форумчанин
 
Регистрация: 04.04.2007
Сообщений: 131
По умолчанию

Совсем забыл про round . Спасибо
nikleb вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как же нарисовать линию на форме? (Вопрос новичка) grey Помощь студентам 11 24.11.2008 10:31
Нарисовать на координатной площади линию a*x+b*y+c=0 НУБ!!! Общие вопросы Delphi 4 13.05.2008 22:48
Задача на Ломанную Линию SpLaT Помощь студентам 1 09.05.2008 19:18
Как в excel создать "винтовую линию"? W@LER Microsoft Office Excel 1 23.03.2007 20:04
Как узнать, существует ли в базе таблица с указанным именем? Seqular БД в Delphi 1 01.03.2007 10:19