Технический форум - Помогите с задачкой по графике

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите с задачкой по графике (http://www.tehnari.ru/f41/t52366/)

Помогите с задачкой по графике

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

Народ горю ну помогите пожалуйста надо ппц как

Во-первых, о каком Паскале идет речь - Borland или ABC? Для заявок по графическим программам это нужно указывать обязательно. Потому что у них принципиально разная графика. Во-вторых, осевым сечением цилиндра является прямоугольник, с какого ракурса ни гляди - Вам его, что ли, надо построить? Сформулируйте задачу внятно.

Речь идет о турбо Паскале
Надо построить обьмный вид и 3 вида сверху с лева и главный

Цитата:

Сообщение от Bagish (Сообщение 528607)

Речь идет о турбо Паскале
Надо построить обьмный вид и 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.

Владислав большое спасибо, токо осевого сечения в цилиндре нет. Можете доработать до вот такого вида

Вот мне сказали что осевое сечение желательно заштриховать как на рисунке но если это не выполнимо то придется просто другим цветом закрасить... И на 3 видах надо тоже сечение показать

Токо на 3 видах сечение не понятно как показать я считаю что надо заштриховать прямоугольник на главном виде а на остальных прямую пунктирную линию провести

Нет, параллелограмм заштрихованный - это очень трудно. Не возьмусь. Всё, что могу предложить - это такой вариант:

Код:

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.

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