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

[Bagish]

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

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

 

[Bagish]

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

 

[Vladimir_S]

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

 

[Bagish]

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

 

[Vladimir_S]

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

Тогда - пожалуйста:

Uses Graph, CRT;
BEGIN
 InitGraph(..);{[COLOR=Red]ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ[/COLOR]}    
 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.

 

[Bagish]

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

 

[Bagish]

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

 

[Bagish]

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

 

[Vladimir_S]

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

Uses Graph, CRT;
BEGIN
 InitGraph(..);{[COLOR=Red]ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ[/COLOR]}    
 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.

 

[Bagish]

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

 

[Bagish]

Возникла проблема программа откомпилирована и запускается но результат не выводит на экран просто маргнет и выводит обратно к программе что делать??? Я уже и Readln дописывал штуки 3 все равно не помогает

 

[Bagish]

Проблема с выводом программы, запускается и тут же закрывается, кампиляцию прошел успешно, почему проблемы с просмотром не понимаю

 

[Vladimir_S]

Скорее всего, Вы неправильно указали параметры процедуры InitGraph. Больше грешить не на что.