Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 19.12.2012
Сообщений: 28
1

Нарисовать прямоугольный конус и равнобедренную трапецию

18.01.2016, 23:04. Просмотров 2574. Ответов 2
Метки нет (Все метки)


Здравствуйте еще раз! Помогите пожалуйста еще с 2 задачами! Спасибо.

1. Написать программу, которая рисует прямоугольный конус, размеры которого зависят от радиуса основания и высоты, без конкретных чисел. (1 клетка=20 пикселей, вводить число клеток)

2. Написать программу, которая рисует равнобедренную трапецию, размеры которой зависят от верхнего основания и высоты, без конкретных чисел. (1 клетка=20 пикселей, вводить число клеток)

Благодарю.
0
Миниатюры
Нарисовать прямоугольный конус и равнобедренную трапецию  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2016, 23:04
Ответы с готовыми решениями:

Можно ли вписать круг в заданную равнобедренную трапецию, если известны длины оснований и высота
Можно ли вписать круг в заданную равнобедренную трапецию, если известны длины оснований и высота?

Определить, можно ли вписать круг в заданную равнобедренную трапецию
Можно ли вписать круг в заданную равнобедренную трапецию, если известны длины оснований и высота?

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

Нарисовать равнобедренную трапецию
Нужно нарисовать равнобедренную трапецию. Первая точка - верхняя левая вершина, потом, удерживая...

2
4256 / 2040 / 2094
Регистрация: 10.12.2014
Сообщений: 7,861
19.01.2016, 12:18 2
Организация графического построения очень сильно зависит от IDE.
Какую используете вы?
0
Модератор
62900 / 46930 / 32344
Регистрация: 18.05.2008
Сообщений: 113,713
19.01.2016, 14:28 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Как и в предыдущей теме написано в простом АВС.
Конус
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
uses crt,graphABC;
var h,r,//высота и радиус
    d, //размер клетки
    kw,kh,//количество клеток в ширину и в высоту
    wd,hg,//ширина и высота окна
    xc,yc,//координаты центра эллипса
    dx,//шаг при рисовании пунктирной линии
    i,x,y:integer;//счетчики
begin
repeat
write('Введите число клеток высоты от 5 до 25 h=');
readln(h);
until h in [5..25];
repeat
write('Введите число клеток радиуса от 2 до ',h div 2,' r=');
readln(r);
until r in [2..h div 2];
clrscr;
hidecursor;
kw:=2*r+3;
kh:=h+r+2;
d:=20;
wd:=(kw+2)*d;
hg:=(kh+2)*d;
setwindowsize(wd,hg);
centerwindow;
xc:=d*(r+3);
yc:=hg-d*(r+1);
setpencolor(clLtGray);
y:=d;
for i:=1 to kh do
 begin
  line(d,y,wd-d,y);
  y:=y+d;
 end;
x:=d;
for i:=1 to kw do
 begin
  line(x,d,x,hg-d);
  x:=x+d;
 end;
setpencolor(clBlack);
setpenwidth(2);
line(d,d,wd-d,d);
line(d,d,d,hg-d);
for i:=2 to kw+1 do
line(d*i,d-5,d*i,d+5);
for i:=2 to kh+1 do
line(d-5,i*d,d+5,i*d);
setbrushstyle(bsClear);
ellipse(xc-r*d,yc-(r div 2)*d,xc+r*d,yc+(r div 2)*d);
line(xc-r*d,yc,xc-r*d,yc-h*d);
line(xc+r*d,yc,xc-r*d,yc-h*d);
dx:=5;
x:=xc-r*d;
while x<xc do
 begin
  line(x,yc,x+dx,yc);
  x:=x+2*dx;
 end;
setfontsize(16);
textout(xc-d*(r div 2),yc-20,'r');
textout(3*d+5,yc-d*(h div 2),'h');
end.
Добавлено через 56 минут
Трапеция
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
uses crt,graphABC;
var a,b,h,//длины оснований и высота
    d, //размер клетки
    kw,kh,//количество клеток в ширину и в высоту
    wd,hg,//ширина и высота окна
    xc,yc,//кординаты центра нижнего основания
    dy,//шаг при рисовании пунктирной линии
    i,x,y:integer;//счетчики
begin
repeat
write('Введите число клеток нижнего основания четное число от 10 до 30 b=');
readln(b);
until (b in [10..30])and(b mod 2=0);
repeat
write('Введите число клеток верхнего основания четное число от 2 до ',b-2,' a=');
readln(a);
until (a in [2..b-2])and(a mod 2=0);
repeat
write('Введите число клеток высоты от 2 до 20 h=');
readln(h);
until h in [2..20];
clrscr;
hidecursor;
kw:=b+3;
kh:=h+4;
d:=20;
wd:=(kw+2)*d;
hg:=(kh+2)*d;
setwindowsize(wd,hg);
centerwindow;
xc:=d*(b div 2+3);
yc:=hg-2*d;
setpencolor(clLtGray);
y:=d;
for i:=1 to kh do
 begin
  line(d,y,wd-d,y);
  y:=y+d;
 end;
x:=d;
for i:=1 to kw do
 begin
  line(x,d,x,hg-d);
  x:=x+d;
 end;
setpencolor(clBlack);
setpenwidth(2);
line(d,d,wd-d,d);
line(d,d,d,hg-d);
for i:=2 to kw do
line(d*i,d-5,d*i,d+5);
for i:=2 to kh do
line(d-5,i*d,d+5,i*d);
line(xc-(b div 2)*d,yc,xc+(b div 2)*d,yc);
line(xc-(a div 2)*d,yc-h*d,xc+(a div 2)*d,yc-h*d);
line(xc-(b div 2)*d,yc,xc-(a div 2)*d,yc-h*d);
line(xc+(b div 2)*d,yc,xc+(a div 2)*d,yc-h*d);
dy:=5;
y:=yc;
while y>yc-h*d do
 begin
  line(xc-(a div 2)*d,y,xc-(a div 2)*d,y+dy);
  y:=y-2*dy;
 end;
setfontsize(16);
textout(xc,yc-(h+1)*d-5,'a');
textout(xc-(a div 2)*d+5,yc-d*(h div 2),'h');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2016, 14:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Построить равнобедренную трапецию
Построить равнобедренную трапецию, высота которой равна h, а основание a и b.

Нарисовать равнобедренную пирамиду из кирпичей
Помогите , пожалуйста, доделать задачку, можно только подсказать. Вот задача: Вот мой код...

Нарисовать трапецию, после чего нарисовать ее зеркальную копию (относительно диагонали 1го квадранта) и уменьшить
Собственно сделал так, только пока что без уменьшения, отзеркаленную копию рисует только 1 линию,...

В данный прямой круговой конус вписать прямоугольный параллелепипед наибольшего объёма
В данный прямой круговой конус вписать прямоугольный параллелепипед наибольшего объёма.


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

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

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