Найти длины отрезков

[Аватар]

Значит у тебя расчеты не правильные. Кинь на форму PaintBox. Установи нужные размеры, событие OnPaint для него и смотри

[OmegaBerkut]

Аватар
Я просто скопировал код отсюда, подставил нужные значения, и получил неправильный результат. Написать эту дичь надо на QBasic. Вот код расчёта X и Y

	x = 639 - (-(y - 463) * 639 / 463 - x) ' its good
	y = 463 - (-(x * 463 / 639) + 463 - y) ' its not good

	LINE (x, 0)-(0, y), 11 ' 11 - color

X и Y введены раньше по коду, и равны 108 и 182 соответственно.

[min@y™]

ну чо, пифагоры, блин, не выходит каменная чаша?

[Аватар]

А чего QBasic делает в таких случаях: 639 / 463 - делит нацело или вещественный результат? В делфи вещественный, и результат потом округлен до целого

[OmegaBerkut]

Аватар
Я думаю, что без разницы, как QBasic выполнятет деление, потому что с координатой X всё нормально ...
Я тут увидел одну мелочь ...
463-(-(108*463/639)+463-182) - ручной расчёт равен 260, и это правильно: без последней операции вычитания получается искомая длина отрезка, или расстояние до диагонали по Y.
Аналогичный код на этом чудо-языке:
y = 463 - (-(x * 463 / 639) + 463 - y)
Проблема в том, что в предыдущей строке по коду X был изменён.
Протупил, извините за наезд. Таперча всё работает.

upd: теперь надо посмотреть на это безобразие в случае, если точка окажется под диагональю ... Как определить положение точки относительно диагонали ?
Там, как я понимаю, нужно находить модуль расстояния, а потом в зависимости от положения диагонали верх/низ нужно вычитать координаты от туда, откуда надо ... И рисовать там, где надо.

upd: а нет, результат для любой точки - то что надо, никаких сдвигов нет.

Всем спасибо, все свободны :D.

[min@y™]

Оставлю это здесь, на всякий случай...

Скачать и испугаться.