Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Маска времени и даты для ввода в БД https://www.cyberforum.ru/ delphi-beginners/ thread331791.html
Добрый день! Заполняем некую базу от ACCESS. Коннектимся через ADO, т.е. соответственно ADOConection, DataSource, ADOQuery, DBGrid. Текстовые данные заполняем посредством DBEdit-ов, которые привязываем к соответствующим полям реальной базы данных. Вопрос: какие компоненты использовать для ввода времени, даты, времени+даты? Желательно, чтобы после активации формы ввода, в этих полях уже...
Delphi линейное уравнение
есть уравнение A*x+B=0, она заданно своими коэфициентами A и B. Рассмотреть все возможные случаи... помогите сделать!
Delphi Определить путь S, пройденный лодкой (путь=время*скорость) Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U<V). Время движения лодки по озеру Т1 ч, а по реке против течения Т2 ч. Определить путь S, пройденный лодкой (путь=время*скорость). Учесть, что при движении против течения скорость лодки уменьшаеться на величину скорости течения. https://www.cyberforum.ru/ delphi-beginners/ thread331764.html Delphi координатные оси https://www.cyberforum.ru/ delphi-beginners/ thread331761.html
Даны координаты точки, не лежащей на координатных осях OX и OY. Определит номер координатной четверти, в которой находится данная точка.
Определение числа Delphi
Дано целое число. вывести его строку-описание вида "отрицательное четное число", "нулевое число", "положительное нечетное число" и т.д.
Delphi Масть карт https://www.cyberforum.ru/ delphi-beginners/ thread331749.html
Мастями игральных карт присвоены порядковые номера: 1-пики, 2-трефы, 3-бубны, 4-червы. Достоинству карт,старших десятки, присвоены номера: 11-валет, 12-дама, 13-король, 14-туз. Даны два целых числа: N- достоинство (6=<N=<14) и M- масть карты (1=<M=<4).Вывести название соответствующей карты вида "шестерка бубен", "дама червей", "туз треф", и т.д.
Delphi Вывести значение элементов данной окружности Элементы окружности пронумерованы следующим образом: 1- радиус R, 2-диаметр D=2*R, 3- длина 2*пи*R, 4- площадь круга S=пи*R^2. Дан номер одного из этих элементов и его значение. Вывести значение остальных элементов данной окружности (в том же порядке). В качестве пи использовать 3,14. Помогите!!!!!!!!! https://www.cyberforum.ru/ delphi-beginners/ thread331746.html Решение системы линейных уравнений Delphi
Найти решение системы линейных уравнений вида А1*х+В1*у=С1, А2*х+В2*у=С2, заданной своими коэфициентами А1, В1, С1, А2, В2, С2, если известно, что данная система имеет единственное решение. Воспользоваться формулами х=(С1*В2-С2*В1)/D, y=(A1*C2-A2*C1)/D, где D=A1*B2-A2*B1.
Delphi активация формы https://www.cyberforum.ru/ delphi-beginners/ thread331635.html
привет) как сделать так чтобы при нажатии одной кнопки она имела один вид (некоторые компоненты) а при нажатии на другую начальные компоненты исчезали и появлялись другие?
Delphi Delphi!? Repeat Unitl... бесконечный цикл (вся прога зависает)? https://www.cyberforum.ru/ delphi-beginners/ thread331633.html
repeat for m:=0 to g-1 do begin if (vrema=handm) then ShowMessage('MY TEXT MSG'); end; until not flag; ситуация следующая: нажимаю кнопку Выполнить этот цикл и вся программа зависает, т.е. остальные кнопки нажать невозможно и закрыть форму тоже, при создании формы flag=true, на форму еще кинул кнопку STOP, для остановки цикла, т.е. в ней flag=false, по идее должно все работать, но...
Delphi система линейных уравнений
Для заданной вырожденной системы линейных алгебраических уравнений Ax=b найти её частное решение, найти общее решение соответствующей ей однородной системы Ax=0 и построить общее решение системы Ax=b.
Delphi Delphi!? Парсинг html, удаление тэгов и неудаляемый символ "|"? https://www.cyberforum.ru/ delphi-beginners/ thread331573.html
Delphi!? Парсю html-ку регуляркой, удаляю все таги, но остается очень много черточек (см. скрин), как от них избавиться? если какие-нть дополнительные данные нужны, пишите. я скопировал эту палочку, вставил в регулярку, попробовал еще раз пропарсить, но она не удаляется.
14 / 14 / 1
Регистрация: 21.10.2010
Сообщений: 462
12.07.2011, 10:15  [ТС] 0

Убрать лишние точки на прямой. Алгоритм. - Delphi - Ответ 1834907

12.07.2011, 10:15. Показов 1963. Ответов 5
Метки (Все метки)

Ответ

Цитата Сообщение от i8085 Посмотреть сообщение
Кто вам такую задачу поставил?
По-моему, это "мартышкин труд".
Ни фотоплоттерам, ни станкам с ЧПУ "лишние" точки абсолютно не мешают.
Экономите место на диске? Посмотрите размер самого большого файла этого типа, что у вас есть. Уже смешно?

А вот алгоритм ваш наплодит ошибок.
"если, допустим, встретилось ПОДРЯД 5 перемещений по X, оставлять только первое и последнее."
Представьте, что там последовательно: 0, 14, 27, 3, 2, 5.
Линия от 0 до 27, а вы сделаете от 0 до 5...

Учите конструкторов правильно рисовать. Ошибки надо устранять там, где они возникают.
Ну вот так почти всегда. Если нет ответа на вопрос, то уж жить-то научат легко. Мне таки да, "Уже смешно!" Вы и в самом деле знаете ВСЁ про ВСЕ станки и про "все файлы этого типа"?! Ну так я Вам доложу, что бывают такие станки, у которых памяти 64К. Да и это бы ещё хрен с ним. Станок этот начинает жестоко тупить, когда пытается обработать перемещения на грани его разрешающей способности. По паспорту он "обязан" отработать 10 микрон, а реально - просто тупо встаёт и отказывается двигаться дальше. "Учить работать" других - в отличии от Вас тоже не представляется возможным. GERBER-файл генерится скриптом из CAD-CAM приложения. Можно, наверное, было бы разобраться, почему так косячит данный скрипт, но въезжать в этот горбатый на всю голову язык просто не хватает душевного здоровья. Вот и приходится пытаться выкручиваться, так сказать, подручными средствами.

Добавлено через 16 минут
ЗЫ: Замечание Ваше по поводу "линии от 0 до 27" - таки да, вполне резонное, и в голову мне приходило. Поэтому в данный момент отслеживаю минимальную и максимальную координаты и при этом приходится ещё учитывать, не встретился ли D-код в середине прямой. Получается довольно громоздко и некрасиво, и, как следствие, неудобно в отладке.

Вернуться к обсуждению:
Убрать лишние точки на прямой. Алгоритм. Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.07.2011, 10:15
Готовые ответы и решения:

По данным коэффициентами уравнения прямой и координатами некоторой точки, вычислить абс. отклонение точки от прямой
По данным коэффициентами уравнения прямой на плоскости (Ах + Ву + С = 0) и координатами некоторой...

Найти координаты точки, равноудалённой от данной точки и данной прямой, и лежащей на другой данной прямой
1)Точка A лежит на прямой x+y=8, причем A равноудалена от точки B(2,8) и от прямой x-3y+2=0. Найти...

как убрать лишние поля для оформления и убрать регистрацию - VirtueMart (вроде ВМРЕ 1.0.15b) на Joomla 1.0
Здравствуйте! Скажите пожалуйста как в Старом VirtueMart (вроде ВМРЕ 1.0.15b) на Joomla 1.0 как...

Построить точку на прямой,если на прямой даны баз. точки
доброго времени суток. вот задача: На прямой даны базисные точки E1,E2,E (E лежит между E1 и...

5
12.07.2011, 10:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.07.2011, 10:15
Помогаю со студенческими работами здесь

Найти уравнение прямой, расстояние от точки до прямой.
1)Для всех точек А(9;-1), В(5,2) и М(4,4) найти уравнение прямой (АВ), расстояние от точки М до...

перпендикуляр к прямой из точки на этой прямой
Подскажите пожалуйста алгоритм. есть прямая на плоскости заданная двумя точками(x1,y1)(x2,y2). на...

Как найти координаты точки на прямой удаленной от заданной точки на х
Добрый день! Помогите мне пожалуйста со следующей задачей. Дано 3 точки с координатами...

Получение координаты точки, отраженной от другой точки относительно прямой, заданной двумя точками
Здравствуйте. Нигде не нашёл подробного решения этого вопроса, поэтому решил задать вопрос. Нужно...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru