Графика

@misterbl95 · Регистрация: 08.12.2011

Author24 — интернет-сервис помощи студентам

В треугольной призме построить сечение, проходящее через одну из сторон верхнего основания и противолежащую вершину нижнего

@Puporev · 08.12.2011, 14:28

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
uses graph;
var p1,p2:array[1..5]of Pointtype;
    gd,gm:integer;
    xc,yc,a,h,h1:integer;
begin
InitGraph(gd,gm,'');
xc:=getmaxX div 2;
yc:=getmaxY-100;
a:=100;
h1:=50;
h:=getmaxY-150-h1;
{Призма}
{сечение}
p2[1].x:=xc-a; p2[1].y:=yc;
p2[2].x:=xc;   p2[2].y:=yc-h-h1;
p2[3].x:=xc+a; p2[3].y:=yc-h;
p2[4].x:=p2[1].x; p2[4].y:=p2[1].y;
setcolor(12);
setlinestyle(1,0,1);
setfillstyle(3,12);
fillpoly(4,p2);
{передняя грань}
p1[1].x:=xc-a; p1[1].y:=yc;
p1[2].x:=xc-a; p1[2].y:=yc-h;
p1[3].x:=xc+a; p1[3].y:=yc-h;
p1[4].x:=xc+a; p1[4].y:=yc;
p1[5].x:=p1[1].x; p1[5].y:=p1[1].y;
setcolor(9);
setlinestyle(0,0,1);
drawpoly(5,p1);
{верхняя грань}
line(p1[1].x,p1[1].y-h,p2[2].x,p2[2].y);
line(p2[2].x,p2[2].y,p2[3].x,p2[3].y);
{невидимые ребра}
setlinestyle(1,0,1);
line(xc-a,yc,xc,yc-h1);
line(xc,yc-h1,xc+a,yc);
line(xc,yc-h1,xc,yc-h-h1);
readln end.
{pered}
setlinestyle(0,0,1);
p1[1].x:=150;p1[1].y:=400;
p1[2].x:=310;p1[2].y:=400;
p1[3].x:=310;p1[3].y:=180;
p1[4].x:=150;p1[4].y:=180;
p1[5].x:=150;p1[5].y:=400;
setcolor(11);
moveto(p1[1].x,p1[1].y);
for i:=1 to 5 do
lineto(p1[i].x,p1[i].y);
{verh}
p2[1].x:=150;p2[1].y:=180;
p2[2].x:=290;p2[2].y:=40;
p2[3].x:=450;p2[3].y:=40;
p2[4].x:=310;p2[4].y:=180;
setcolor(11);
moveto(p2[1].x,p2[1].y);
for i:=1 to 4 do
lineto(p2[i].x,p2[i].y);
{pravo}
p3[1].x:=450;p3[1].y:=40;
p3[2].x:=450;p3[2].y:=220;
p3[3].x:=310;p3[3].y:=400;
setcolor(11);
moveto(p3[1].x,p3[1].y);
for i:=1 to 3 do
lineto(p3[i].x,p3[i].y);
{vnutri}
setlinestyle(1,0,1);
line(150,400,290,220);
line(290,220,290,40);
line(290,220,450,220);
readln;
Closegraph
end.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@misterbl95 0 / 0 / 2 Регистрация: 08.12.2011 Сообщений: 22

	Графика 08.12.2011, 02:50. Показов 1028. Ответов 1 Метки нет (Все метки) В треугольной призме построить сечение, проходящее через одну из сторон верхнего основания и противолежащую вершину нижнего 0

Опции темы

Графика

Решение