/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 675
от 21.09.2008, 17:05

Вопрос № 144.017

Подскажите, как определить, имеют дли два отрезка общую точку? (код желательно, только не муренный, без тяжелых решений)

Отправлен: 15.09.2008, 19:15 Вопрос задал: Гроткин Сергей Алескандрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Гроткин Сергей Алескандрович! До написания кода программы Вам необходимо решить эту задачу на бумаге, вывести необходимые для программы формулы, посмотреть все варианты а уж потом программа сама напишется. Для решения этой задачи нужно знать две простых формулы: 1.Уравнение прямой, проходящей через две точки с известными координатами: (y-y1)/(y2-y1)=(x-x1)/(x2-x1);или Y=(x-x1)*(y2-y1)/(x2-x1)+y1; 2.Угловой коэффициент этой прямой: K=(y2-y1)/(x2-x1); Исходя из этих формул, рассматриваем следующие случаи: 1.k1=k2 Прямые либо параллельны, либо совпадают. Совпадают когда при х=0 y1=y2, или k1*x11-k2*x21-y11+y21=0;иначе параллельны. Если прямые совпадают и отрезки перекрываются, значит есть общие точки, если не перекрываются, нет. 2.k1<>k2 Прямые пересекаются. Приравнивая два уравнения, находим координаты точки пересечения, хотя достаточно только абциссы, или ординаты. Сейчас рассматривая положение абцисс концов отрезк ов относительно абциссы точки пересечения, определяем, пересекаются ли отрезки. (То же самое можно проделать с ординатами). Код программы в приложении. Приложение: uses crt; var x11,y11,x12,y12:real;{координаты концов первого отрезка} x21,y21,x22,y22:real;{координаты концов второго отрезка} k1,k2:real; {угловые коэффициенты} Xp:real; {абцисса точки пересечения} begin clrscr; writeln('Vvedite koordinaty koncov otrezkov:'); write('x11=');readln(x11); write('y11=');readln(y11); write('x12=');readln(x12); write('y12=');readln(y12); write('x21=');readln(x21); write('y21=');readln(y21); write('x22=');readln(x22); write('y22=');readln(y22); k1:=(y12-y11)/(x12-x11); k2:=(y22-y21)/(x22-x21); if k1=k2 then {одинаковые коэффициенты} if k1*x11-k2*x21-y11+y21=0 then {на 1 прямой} if ((x21>=x11)and(x21<=x12))or((x11>=x21)and(x11<=x22)) {перекрытие} then writeln('Obshie tochki est!') else writeln('Obshih tochek net!') {не перекрытие} else writeln('Obshih tochek net!') {параллельные} else {k1<>k2 - пересекаются} Xp:=((k1*x11-y11)-(k2*x21-y21))/(k1-k2); {абцисса пересечения прямых} if ((x11<=xp)and(x12>=xp)and(x21<=xp)and(x22>=xp)) {концы отрезков по разные стороны от т.п.} or ((x11<=xp)and(x12>=xp)and(x22<=xp)and(x21>=xp)) or ((x12<=xp)and(x11>=xp)and(x21<=xp)and(x22>=xp)) or ((x12<=xp)and(x11>=xp)and(x22<=xp)and(x21>=xp)) then writeln('Obshie tochki est!') else writeln('Obshih tochek net!');{если концы хотя бы одного отрезка по одну сторону от т.п.} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 16.09.2008, 13:21

Вопрос № 144.032

Здравствуйте. У сына не препод, а садист какой-то после веера (вопрос 143424) задаала нарисовать "Средневековый замок", да ещё с анимациеей, чтобы флажек нарисованый двигался, и день-ночь менялиль, и желательно часики на башенке. Я в шоке, надо в школу сходить посмотреть кто там такой умный... и с бурной фантазией. Думай мой не один сделать не может... Очень надеюсь на вашу помощь. Думаю с замком проблем не будет, а вот день-ночь (надо сонце-луну+их движение слева-направо, или справа-налево... и смену цвета фона (земля и небо), ну и чисто для прикола пару звезд чтобы училка запрыгала от счастья), и флаг(любой, без рисунка сойдет), а часы... Буду рад увидеть даже любой из этих элементов отдельно. И кто интересно графикой в паскале сейчас занимается...

Отправлен: 15.09.2008, 21:30 Вопрос задал: Programyor (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Verena Здравствуйте, Programyor! Задача, надо сказать, и правда чересчур... Но, помучившись немного с координатами, я всё-таки реализовала её корявенький антихудожественный вариант. Смена дня и ночи и движения солнца/луны по небу происходят по значению соответствующей переменной, движение стрелок и флага привязано туда же. Всё должно быть более-менее ясно из комментариев. Удачи! Приложение: uses Graph, Crt; var grDriver:integer; { драйвер} grMode:integer; { графический режим } grPath:string; { место расположения драйвера } ErrCode:integer; { результат инициализации графического режима } v, sm: integer; procedure Tower; {Замок} Const crd: array[1..20] of integer = (160, 440, 160, 240, 240, 240, 240, 140, 280, 60, 320, 140, 320, 240, 400, 240, 400, 440, 160, 440); begin SetFillStyle (SolidFill, Green); Bar (0, 440, 639, 479); SetFillStyle (HatchFill, DarkGray); FillPoly (10, crd); Line (240, 140, 320, 140); Line (240, 240, 320, 240); SetFillStyle (CloseDotFill, Black); Bar (240, 360, 320, 440); SetColor (Red); SetFillStyle (SolidFill, White); FillEllipse (280, 100, 20, 20); Line (280, 60, 280, 20); end; procedure Sun (x, y: integer);{Солнце} begin SetFillStyle (SolidFill, Yellow); SetColor (Yellow); FillEllipse (x, y, 40, 40); end; procedure Moon (x, y: integer); {Луна} begin SetFillStyle (SolidFill, Cyan); SetColor (Cyan); FillEllipse (x, y, 40, 40); SetColor (Black); SetFillStyle (SolidFill, Black); FillEllipse (x+40, y, 40, 40); end; procedure Erase (x, y: integer; col: word); {Стереть солнце или луну} begin SetFillStyle (SolidFill, col); SetColor (col); FillEllipse (x, y, 40, 40); end; procedure Flag;{Флаг} begin SetColor (Red); Line (280, 60, 280, 20); SetFillStyle (SolidFill, White); SetColor (White); Bar (280, 30, 340, 50); end; procedure WindFlag; {Флаг на ветру} begin SetColor (Red); Line (280, 60, 280, 20); SetFillStyle (SolidFill, White); SetColor (White); Bar (280, 30, 310, 50); Bar (310, 35, 330, 60); end; procedure EraseFlag (col: word);{Стереть флаг} begin SetFillStyle (SolidFill, col); SetColor (col); Bar (280, 30, 340, 60); end; begin grDriver := VGA; { режим VGA} grMode:=VGAHi; { разрешение 640е480} grPath:='c: p7'; { путь к файлу драйвера на Вашем компьютере (egavga.bgi)} InitGraph(grDriver, grMode,grPath); {Инициализация графического режима} ErrCode := GraphResult; {Проверяем, удачна ли инициализация} if ErrCode <> grOk then Halt(1); v:= 0; sm:= 1; {Переменная положения светила и индикатор времени суток} while true do {Цикл для анимации} begin if (v=0) then if (sm=1) then begin SetFillStyle (SolidFill, LightBlue); Bar (0, 0, 639, 440); Tower; end else begin SetFillStyle (SolidFill, Black); Bar (0, 0, 639, 440); Tower; end; case v of 0: begin if sm=1 then begin Erase (520, 240, LightBlue); EraseFlag (LightBlue); Sun (60, 240); end else begin Erase (520, 240, Black); EraseFlag (Black); Moon (60, 240); end; SetColor (White); Line (280, 100, 280, 120); SetColor (Red); Line (280, 100, 260, 100); Flag; end; 1: begin if sm=1 then begin Erase (60, 240, LightBlue); EraseFlag (LightBlue); Sun (160, 140) end else begin Erase (60, 240, Black); EraseFlag (Black); Moon (160, 140); end; SetColor (White); Line (280, 100, 260, 100); SetColor (Red); Line (280, 100, 280, 80); WindFlag; end; 2: begin if sm=1 then begin Erase (160, 140, LightBlue); EraseFlag (LightBlue); Sun (400, 140) end else begin Erase (160, 140, Black); EraseFlag (Black); Moon (400, 140); end; SetColor (White); Line (280, 100, 280, 80); SetColor (Red); Line (280, 100, 300, 100); Flag; end; 3: begin if sm=1 then begin Erase (400, 140, LightBlue); EraseFlag (LightBlue); Sun (520, 240) end else begin Erase (400, 140, Black); EraseFlag (Black); Moon (520, 240); end; SetColor (White); Line (280, 100, 300, 100); SetColor (Red); Line (280, 100, 280, 120); WindFlag; sm:= -sm; v:=-1; end; end; inc (v); delay (65000); end; CloseGraph; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Практикант) Ответ отправлен: 16.09.2008, 23:41 Оценка за ответ: 5

Вопрос № 144.091

Здравствуйте Эксперты. Подскажите, пожалуйста, какой литературой можно воспользоваться при изучении языка Pascal и есть ли хорошие обучалки и какие? Большое спасибо.

Отправлен: 16.09.2008, 13:42 Вопрос задал: Букреев Владимир Владимирович (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Шичко Игорь Здравствуйте, Букреев Владимир Владимирович! Достаточно много литературы по программированию на Pascal. Вот несколько ссылок: http://www.zipsites.ru/books/turbopascal7/ http://www.zipsites.ru/books/sprav_po_object_pascal/ http://www.knigka.info/category/pascal/ http://www.sources.ru/pascal/books/index.htm Обучение: http://books.kulichki.net/data/pascal/pas1/ http://borlpasc.narod.ru/schedule.htm

Ответ отправил: Шичко Игорь (статус: 3-ий класс) Ответ отправлен: 16.09.2008, 14:16 Оценка за ответ: 5 Комментарий оценки: Большое спасибо

Отвечает: Зенченко Константин Николаевич Здравствуйте, Букреев Владимир Владимирович! Учебник по TURBO PASCAL 7 В учебнике описано как основные приемы программирования, так и сама оболочка компилятора. Удачи! --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 16.09.2008, 14:29 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Djec Здравствуйте, Букреев Владимир Владимирович! Лично мне нравится учебник Фаронова "Turbo Pascal. В подлиннике" Вот и ссылка: http://progbook.net/pascal/370-turbo-pascal.-v-podlinnike.html --------- Я бы изменил мир, но Бог не дает исходников...

Ответ отправил: Djec (статус: 9-ый класс) Ответ отправлен: 16.09.2008, 23:56 Оценка за ответ: 5 Комментарий оценки: Большое спасибо

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.3 RC 2 от 09.09.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru