Как нарисовать цилиндр в паскале

при том

Что ввод высоты и радиуса окружности вводится с клавиатуры (обязательно!)

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 - это коэффициенты искажения окружности по осям в изометрической проекции.

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.