Question

Нарисовать картинку машины через процедуры подпрограммы в Pascal

Answer 1

Uses graphabc;

begin       // Кузов     
Rectangle(340,220, 540, 300);     
// Багажник     
Rectangle(140,140, 340, 300);                 
FloodFill(220, 220, clBrown); // Закразка кузова     
FloodFill(460, 260, clGray); // Закразка багажника           
// Дверь в кабину     
Rectangle(220,180, 300, 260);     
Circle(280, 220, 10); // Ручка двери           
// Фара     
Circle(140, 260, 10);           
// Первое колесо     
Circle(220, 340, 40);     
// Второе колесо.     
Circle(420, 340, 40);           
// Дорога     
Line(60,380, 560, 380);      
end.