Question

Нарисуйте цилиндр в паскаль abc

Answer 1

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.