Question

Напишите код для программы Pascal ABC (машинку какую-нибудь) только не сильно длинный код​

Answer 1

uses

GraphABC;

begin

SetWindowWidth(800); //ширина окна

SetWindowHeight(600); //высота окна

SetPenWidth(3);

RoundRect(200, 300, 600, 350, 20, 20); //кузов машины

FloodFill(400, 320, clNavy);

Circle(290, 350, 30); //переднее колесо

FloodFill(300, 360, clblack);

Circle(510, 350, 30); //заднее колесо

FloodFill(520, 360, clblack);

begin

SetPenWidth(3);

Line(300, 300, 340, 250);

Line(340, 250, 470, 250);

Line(470, 250, 510, 300);

Line(405, 250, 405, 350);

Line(510, 300, 510, 320);

Line(300, 300, 300, 320);

Line(380, 310, 390, 310);

Line(480, 310, 490, 310);

Line(300, 300, 510, 300);

end;

begin

SetPenColor(clgray); //цвет кисти

SetPenWidth(15); //размер кисти

Circle(510, 350, 10); //заднее колесо

Circle(290, 350, 10); //переднее колесо

end;

begin

SetPenWidth(3);

SetPenColor(clYellow);

Circle(100, 100, 30);

FloodFill(110, 110, clYellow);

Line(140, 120, 200, 150);

Line(130, 135, 150, 160);

Line(120, 140, 140, 190);

Line(105, 145, 110, 170);

Line(95, 145, 90, 190);

end;

begin

SetPenWidth(20);

SetPenColor(clgreen);

Line(0, 385, 800, 385);

SetPenWidth(3);

SetPenColor(clOlive);

Rectangle(0, 385, 800, 600);

FloodFill(110, 390, clOlive);

end;

end.

0