Нарисованная машинка
Автор Ёемен Кадцин задал вопрос в разделе Другие языки и технологии
надо нарисовать машинку в abc pascal как можно проще помогите и получил лучший ответ
Ответ от Ольга Волобуева[гуру]
В принципе тут нет ничего сложного. Вот что у меня получилось: uses GraphABC,crt; var i,nom,s:integer; begin SetPenColor(clBlack); SetBrushColor(clGreen); Rectangle(140,100,220,200); FillRect(140,100,220,200); Rectangle(240,140,380,200); SetBrushColor(clBlue); FillRect(240,140,380,200); Rectangle(140,100,160,150); SetBrushColor(clWhite); FillRect(140,100,160,150); Rectangle(180,120,200,160); SetBrushColor(clWhite); FillRect(180,120,200,160); Circle(180,220,25); FloodFill(180,220,clBrown); Circle(180,220,10); Circle(270,220,25); FloodFill(270,220,clBrown); Circle(270,220,10); Circle(350,220,25); FloodFill(350,220,clBrown); Circle(350,220,10); end.
/~~~\___ +0-----0-+ пойдёт?
Program p23;uses graphabc;beginrectangle(150,50,250,100);rectangle(150,90,125,95);circle(175,110,5);circle(225,110,5);rectangle(225,50,250,75);rectangle(175,100,200,75);end.