Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
16 декабря 2022 07:20
870
Как нарисовать цилиндр в паскалепри том
Что ввод высоты и радиуса окружности вводится с клавиатуры(обязательно!)
2
ответа
Uses graphabc;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
var r:=ReadInteger('R=');
var h:=ReadInteger('h=');
pen.Width := 4;
DrawEllipse(100, 100, 100 + r, 100 + r - (r div 2));
line(100, (100 + r - (r div 2) + 100) div 2, 100, ((100 + r - (r div 2) + 100 + h + h) div 2));
line(100 + r, (100 + r - (r div 2) + 100) div 2, 100 + r, ((100 + r - (r div 2) + 100 + h + h) div 2));
DrawEllipse(100, 100 + h, 100 + r, 100 + r - (r div 2) + h);
end.
0
·
Хороший ответ
18 декабря 2022 07:20
Uses GraphABC;
begin
var R:=ReadInteger('R=');
var h:=ReadInteger('h=');
ClearWindow;
var Ax:=Trunc(300-1.22*R);
var Bx:=Trunc(300+1.22*R);
var Ay:=Trunc(100+0.71*R);
var By:=Trunc(100-0.71*R);
DrawEllipse(Ax,Ay,Bx,By);
Line(Ax,100,Ax,100+h);
Line(Bx,100,Bx,100+h);
DrawEllipse(Ax,Ay+h,Bx,By+h);
FillEllipse(Ax,Ay+h-3,Bx,By+h-3);
end.
Для примера введите числа 50 и 150.
"Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.
begin
var R:=ReadInteger('R=');
var h:=ReadInteger('h=');
ClearWindow;
var Ax:=Trunc(300-1.22*R);
var Bx:=Trunc(300+1.22*R);
var Ay:=Trunc(100+0.71*R);
var By:=Trunc(100-0.71*R);
DrawEllipse(Ax,Ay,Bx,By);
Line(Ax,100,Ax,100+h);
Line(Bx,100,Bx,100+h);
DrawEllipse(Ax,Ay+h,Bx,By+h);
FillEllipse(Ax,Ay+h-3,Bx,By+h-3);
end.
Для примера введите числа 50 и 150.
"Магические коэффициенты" 1.22 и 0.71 - это коэффициенты искажения окружности по осям в изометрической проекции.
0
18 декабря 2022 07:20
Остались вопросы?
Еще вопросы по категории Информатика
Сочинение по литературе написано на 5 страницах, на каждой странице 32 строки по 48 символов. Использовалась кодировка Unicode, где один символ кодиру...
К формальным языкам относится: а) русский б) латынь в) китайский г)французский...
1. Совокупность всех программ компьютера – это a) Рабочий стол b) Установка и удаление программ c) Прикладные программы d) Программное обесп...
Для хранения информации используют... А) монитор б) процессор в) дисковод гибких дисков г) жесткий диск 2. Отметьте "лишнее": А) жесткий диск б) мон...
Дан фрагмент таблицы истинности выражения F:...
Все предметы