IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Провести линию и ... две точки в одной подплоскости, провсети линию через две точки на весь экран
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Добрый день... У меня возникла маленькая неприятность, оказывется я не знаю как провести линию через две точки на весь экран. Т.е. я знаю как соеденить две точки линией и т д... Ну вот чтобы провести линию через эти две точки на весь экран я не знаю как это сделать. Может есть какая-то легкая процедура и т.д.?

К примеру: есть А(100,100) и B(200,200) - нужно провести через них линию

И еще, я так увлекся "украшательством" своей программы, что забыл про свое условие, короче у меня оврал, помогите: Есть уравнение прямой, есть две точки, прямая разбивает плоскость на подплоскости, нужно опеределать лежат ли эти две точки в разных. Уранение прямой разное, в общем виде: sx+ty+u=0 и точки (a,b) и (c,d). Т.е. a,b,c,d,s,t,u вводятся с клавиатуры.

Я прикрепил свой исходник.... Он еще не полность доделал... Немного о нем расскажу, чтобы было понятно: точки А,Б - обычные точки (вводите их около плюс-минус 10) точки X1 и X2 - точки из прямой, т.е. это две точки принадлежащие этой прямой. "Новые данные" - это идет "переработка" под вывод этих точек на координатной плоскости, например точка А(-2;1) - это А(280;220) - ну если учесть, что у меня точка (320;240) это центр, а одна "еденица" - это 20 пикселей.

Вообщем я должен построить прямую на весь экран, которая проходит через точки X1 и X2 и потом опередалеть лежит ли точки А и Б в одной подплоскости.

P.S. Если я что-то непонятно написал, вы спрашивайте...

Сообщение отредактировано: DIMMUA -


Прикрепленные файлы
Прикрепленный файл  GRAFIK.PAS ( 1.69 килобайт ) Кол-во скачиваний: 247
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 10
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Программа получилась, все работает... В данный момент занимаюсь украшательством. Хотел сказать, что мне для выполнения этой задачи графика не нужна была, мы её в универе еще не изучали, поэтому у меня было столько вопросов. Кстати, а как вывести значение переменной на экран в графическом режиме? Например:

А(а;b) - и вот я пишу OutTextXY(10,10, ' A(',a,';',b,')'); - т.е. по типу как "writeln" - а оно выдает ошибку, я так понимаю этой функцией можно только текст вывести?

А какже тогда вывести значение какой-то переменной? Пробовал writeln - вообще не видно, что оно выводит, т.е. вроде как вывело, но ничего не видно. Пробовал менять цвет текста - ничего, правда в текстовом режиме цвет изменился.

P.S. Моя программа, наслаждайтесь... Знаю, для многих она покажется легкой, но для меня smile.gif

Фичи smile.gif программы:

1. Проверка пароля... и заметте вы не видите сам пароль при вводе. (пароль 1234567890)
2. Сделал ограничение, чтобы моя прямая не сильно вылазила за пределы экрана... т.е. я "умножаю" отрезок до тех пор, пока все вершины не скроются с экрана... Т.е. таким способом я врятли выйду за пределы integer.
3. В конце выводит время выполнения кода (кстати, взято с вашего сайта smile.gif )


Прикрепленные файлы
Прикрепленный файл  LAB16.PAS ( 4.91 килобайт ) Кол-во скачиваний: 269
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 5:56
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name