|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.05.2011, 13:53 | #1 (permalink) |
Новичок
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с задачкой по графике
В прямом цилиндре построить осевое сечение. Представить в разных ракурсах. Знаю задачка легкая, но лекций по графике не было и практики не было по графике а решить надо. |
28.05.2011, 13:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Это ссылки на похожие топики, посмотрите Помогите с задачкой на сортировку обменом Помогите с задачкой на Паскале Доделать код в графике турбо паскаль Желтизна в 3d графике |
28.05.2011, 23:05 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во-первых, о каком Паскале идет речь - Borland или ABC? Для заявок по графическим программам это нужно указывать обязательно. Потому что у них принципиально разная графика. Во-вторых, осевым сечением цилиндра является прямоугольник, с какого ракурса ни гляди - Вам его, что ли, надо построить? Сформулируйте задачу внятно.
|
29.05.2011, 11:10 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses Graph, CRT; BEGIN InitGraph(..);{ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ} SetLineStyle(SolidLn,0,ThickWidth); Line(0,240,280,240); Line(140,0,140,480); Rectangle(20,20,120,220); Rectangle(160,20,260,220); Circle(70,310,50); Ellipse(500,140,0,360,50,25); Ellipse(500,340,180,360,50,25); Line(450,140,450,340); Line(550,140,550,340); SetLineStyle(DashedLn,0,NormWidth); Line(20,220,20,360); Line(120,220,120,360); Line(120,20,160,20); Line(120,220,160,220); Line(20,260,140,260); Line(20,360,140,360); Line(160,220,160,240); Line(260,220,260,240); Arc(140,240,270,360,20); Arc(140,240,270,360,120); ReadKey; CloseGraph; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
29.05.2011, 12:09 | #7 (permalink) |
Новичок
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Вот мне сказали что осевое сечение желательно заштриховать как на рисунке но если это не выполнимо то придется просто другим цветом закрасить... И на 3 видах надо тоже сечение показать
|
29.05.2011, 20:09 | #8 (permalink) |
Новичок
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Токо на 3 видах сечение не понятно как показать я считаю что надо заштриховать прямоугольник на главном виде а на остальных прямую пунктирную линию провести
|
29.05.2011, 20:51 | #9 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Нет, параллелограмм заштрихованный - это очень трудно. Не возьмусь. Всё, что могу предложить - это такой вариант:
Код:
Uses Graph, CRT; BEGIN InitGraph(..);{ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ} SetFillStyle(SlashFill,White); SetLineStyle(SolidLn,0,ThickWidth); Line(0,240,280,240); Line(140,0,140,480); Bar(20,20,120,220); Rectangle(20,20,120,220); Rectangle(160,20,260,220); Line(210,20,210,220); Line(20,310,120,310); Circle(70,310,50); Bar(410,140,510,340); Ellipse(460,140,0,360,50,25); Ellipse(460,340,180,360,50,25); Line(410,140,410,340); Line(510,140,510,340); SetLineStyle(DashedLn,0,NormWidth); Line(20,220,20,360); Line(120,220,120,360); Line(120,20,160,20); Line(120,220,160,220); Line(20,260,140,260); Line(20,360,140,360); Line(160,220,160,240); Line(260,220,260,240); Line(120,310,140,310); Line(210,220,210,240); Arc(140,240,270,360,20); Arc(140,240,270,360,120); Arc(140,240,270,360,70); ReadKey; CloseGraph; END. |
29.05.2011, 20:58 | #10 (permalink) |
Новичок
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Большое спасибо думаю этот вариант подойдет
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|