Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.05.2011, 13:53   #1 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Помогите с задачкой по графике

Здравствуйте помогите пожалуйста с задачкой, я просто несовсем разбираюсь в графике в паскале надежда вся на вас.
В прямом цилиндре построить осевое сечение. Представить в разных ракурсах.
Знаю задачка легкая, но лекций по графике не было и практики не было по графике а решить надо.
Bagish вне форума   Ответить с цитированием

Старый 28.05.2011, 13:53
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Это ссылки на похожие топики, посмотрите

Помогите с задачкой на сортировку обменом
Помогите с задачкой на Паскале
Доделать код в графике турбо паскаль
Желтизна в 3d графике

Старый 28.05.2011, 22:50   #2 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Народ горю ну помогите пожалуйста надо ппц как
Bagish вне форума   Ответить с цитированием
Старый 28.05.2011, 23:05   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Во-первых, о каком Паскале идет речь - Borland или ABC? Для заявок по графическим программам это нужно указывать обязательно. Потому что у них принципиально разная графика. Во-вторых, осевым сечением цилиндра является прямоугольник, с какого ракурса ни гляди - Вам его, что ли, надо построить? Сформулируйте задачу внятно.
Vladimir_S вне форума   Ответить с цитированием
Старый 29.05.2011, 04:23   #4 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Речь идет о турбо Паскале
Надо построить обьмный вид и 3 вида сверху с лева и главный
Bagish вне форума   Ответить с цитированием
Старый 29.05.2011, 11:10   #5 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Bagish Посмотреть сообщение
Речь идет о турбо Паскале
Надо построить обьмный вид и 3 вида сверху с лева и главный
Тогда - пожалуйста:
Код:
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.
Миниатюры
cyl01.jpg  
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 29.05.2011, 12:05   #6 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Владислав большое спасибо, токо осевого сечения в цилиндре нет. Можете доработать до вот такого вида
Миниатюры
aacuiyiiue.jpg  
Bagish вне форума   Ответить с цитированием
Старый 29.05.2011, 12:09   #7 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот мне сказали что осевое сечение желательно заштриховать как на рисунке но если это не выполнимо то придется просто другим цветом закрасить... И на 3 видах надо тоже сечение показать
Bagish вне форума   Ответить с цитированием
Старый 29.05.2011, 20:09   #8 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Токо на 3 видах сечение не понятно как показать я считаю что надо заштриховать прямоугольник на главном виде а на остальных прямую пунктирную линию провести
Bagish вне форума   Ответить с цитированием
Старый 29.05.2011, 20:51   #9 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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.
Миниатюры
cyl02.jpg  
Vladimir_S вне форума   Ответить с цитированием
Старый 29.05.2011, 20:58   #10 (permalink)
Bagish
Новичок
 
Регистрация: 28.05.2011
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Большое спасибо думаю этот вариант подойдет
Bagish вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:40.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.