Question

Намалювати засобами PascalABC Кота!
даю 45 балів

Answer 1

Відповідь:

Пояснення:

uses GraphABC;

begin

 SetWindowSize(500, 500);

 SetPenColor(clBlack);

 SetBrushColor(clYellow);

 Circle(250, 250, 100); // голова

 SetBrushColor(clWhite);

 Circle(220, 230, 15); // ліве око

 Circle(280, 230, 15); // праве око

 SetBrushColor(clBlack);

 Circle(220, 230, 5); // ліва зіниця

 Circle(280, 230, 5); // права зіниця

 SetBrushColor(clRed);

 Circle(250, 280, 25); // ніс

 SetPenWidth(5);

 Line(240, 300, 220, 320); // ліва губа

 Line(260, 300, 280, 320); // права губа

 SetPenWidth(1);

 Line(200, 350, 180, 420); // ліва нога

 Line(300, 350, 320, 420); // права нога

 Line(200, 420, 320, 420); // живіт

end.