![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
Значит у тебя расчеты не правильные. Кинь на форму PaintBox. Установи нужные размеры, событие OnPaint для него и смотри
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#12 |
Спокойный псих
Участник клуба
Регистрация: 19.03.2013
Сообщений: 1,538
|
![]()
Аватар
Я просто скопировал код отсюда, подставил нужные значения, и получил неправильный результат. Написать эту дичь надо на QBasic. Вот код расчёта X и Y Код:
Подпись ? Не, не слышал ...
|
![]() |
![]() |
![]() |
#13 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]()
ну чо, пифагоры, блин, не выходит каменная чаша?
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
![]() |
![]() |
![]() |
#14 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
![]()
А чего QBasic делает в таких случаях: 639 / 463 - делит нацело или вещественный результат? В делфи вещественный, и результат потом округлен до целого
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
![]() |
![]() |
![]() |
#15 |
Спокойный псих
Участник клуба
Регистрация: 19.03.2013
Сообщений: 1,538
|
![]()
Аватар
Я думаю, что без разницы, как QBasic выполнятет деление, потому что с координатой X всё нормально ... Я тут увидел одну мелочь ... 463-(-(108*463/639)+463-182) - ручной расчёт равен 260, и это правильно: без последней операции вычитания получается искомая длина отрезка, или расстояние до диагонали по Y. Аналогичный код на этом чудо-языке: y = 463 - (-(x * 463 / 639) + 463 - y) Проблема в том, что в предыдущей строке по коду X был изменён. Протупил, извините за наезд. Таперча всё работает. upd: теперь надо посмотреть на это безобразие в случае, если точка окажется под диагональю ... Как определить положение точки относительно диагонали ? Там, как я понимаю, нужно находить модуль расстояния, а потом в зависимости от положения диагонали верх/низ нужно вычитать координаты от туда, откуда надо ... И рисовать там, где надо. upd: а нет, результат для любой точки - то что надо, никаких сдвигов нет. Всем спасибо, все свободны :D.
Подпись ? Не, не слышал ...
Последний раз редактировалось OmegaBerkut; 24.05.2016 в 18:58. |
![]() |
![]() |
![]() |
#16 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
![]() Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
Последний раз редактировалось min@y™; 24.05.2016 в 23:50. |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти квадрат длины веревки | bmxsavo | Общие вопросы C/C++ | 0 | 21.05.2014 14:07 |
Ассемблер. Найти слово минимальной длины и укоротить остальные слова до длины минимального. | xqr | Помощь студентам | 1 | 25.05.2012 22:41 |
Даны длины отрезков a,b,c,d,e.Выяснить,можно ли построить треугольник со сторонами {a,b,c},{b,c,d},{c,d,e}?Если да,то найдите пло | kazbek1 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 18.05.2012 21:15 |
Найти длины векторов Pascal | GaJIbI4 | Помощь студентам | 3 | 28.12.2011 21:17 |
Нужно найти координаты точки пересечения двух отрезков в пространстве... | Dima6120 | Мультимедиа в Delphi | 2 | 30.07.2010 13:36 |