Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
LitvinovKostyn
0 / 0 / 0
Регистрация: 27.12.2018
Сообщений: 2
1

В правильной четырёхугольной пирамиде провести сечение через диагональ основания и середину бокового ребра (+ модуль)

20.01.2019, 22:50. Просмотров 778. Ответов 2
Метки нет (Все метки)

В правильной четырёхугольной пирамиде провести сечение, проходящее через диагональ основания и середину бокового ребра.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.01.2019, 22:50
Ответы с готовыми решениями:

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

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

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

В прямоугольном параллелепипеде провести сечение
В прямоугольном параллелепипеде провести сечение проходящие через сторону верхнего основания и...

В прямоугольном параллелипипеде провести диогональноe сечение
В прямоугольном параллелипипеде провести диогональноe сечение.

2
Puporev
Модератор
56077 / 42956 / 29713
Регистрация: 18.05.2008
Сообщений: 101,918
21.01.2019, 11:15 2
Лучший ответ Сообщение было отмечено LitvinovKostyn как решение

Решение

Модуль
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
unit sc_4;
interface
uses graph;
type pol=array[1..5] of pointtype;//массив точек
var p1:pol;
procedure create;//графический режим и задание координат пирамиды
procedure sec;//рисование сечения
procedure vid_line;//рисование видимых линий
procedure scr_line;//рисование скрытых линий
implementation
procedure create;
var g,m,x,y:integer;
begin
g:=0;
initgraph(g,m,'');
x:=getmaxX div 2;
y:=getmaxY-100;
p1[1].x:=x-200;p1[1].y:=y;
p1[2].x:=x-100;p1[2].y:=y-100;
p1[3].x:=x+200;p1[3].y:=y-100;
p1[4].x:=x+100;p1[4].y:=y;
p1[5].x:=x;p1[5].y:=y-500;
end;
 
procedure sec;
var p:pol;
begin
p[1]:=p1[2];
p[2]:=p1[4];
p[3].x:=(p1[3].x+p1[5].x)div 2;
p[3].y:=(p1[3].y+p1[5].y)div 2;
p[4]:=p[1];
setcolor(10);
setfillstyle(3,10);
fillpoly(4,p);
end;
procedure vid_line;
begin
setcolor(15);
setlinestyle(0,0,1);
line(p1[1].x,p1[1].y,p1[4].x,p1[4].y);
line(p1[4].x,p1[4].y,p1[3].x,p1[3].y);
line(p1[1].x,p1[1].y,p1[5].x,p1[5].y);
line(p1[3].x,p1[3].y,p1[5].x,p1[5].y);
line(p1[4].x,p1[4].y,p1[5].x,p1[5].y);
end;
procedure scr_line;
begin
setlinestyle(2,0,1);
line(p1[1].x,p1[1].y,p1[2].x,p1[2].y);
line(p1[2].x,p1[2].y,p1[3].x,p1[3].y);
line(p1[2].x,p1[2].y,p1[5].x,p1[5].y);
end;
end.
Программа
Pascal
1
2
3
4
5
6
7
8
uses graph,wincrt,sc_4;
begin
create;
sec;
vid_line;
scr_line;
readkey
end.
1
LitvinovKostyn
0 / 0 / 0
Регистрация: 27.12.2018
Сообщений: 2
21.01.2019, 11:45  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2019, 11:45

Провести сечение через диагональ основания и середину бокового ребра правильной четырёхугольной пирамиды
В правильной четырёхугольной пирамиде провести сечение, проходящее через диагональ основания и...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru