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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт