Question

Помогите кто-нибудь, нужно написать программу в Паскале ABC, и сделать вот такой кораблик.​

Answer 1

program ship;

uses graphabc;

begin

 setwindowsize(260, 220);

 setpencolor(clblack);

 setpenwidth(3);

 {корабль}

 line(120, 20, 20, 140);

 line(120, 20, 60, 150);

 line(20, 140, 60, 150);

 line(120, 20, 120, 160);

 line(120, 140, 240, 140);

 line(240, 140, 120, 20);

 line(40, 160, 240, 160);

 line(240, 160, 220, 200);

 line(220, 200, 80, 200);

 line(80, 200, 40, 160);

 circle(100, 180, 10);

 circle(140, 180, 10);

 circle(180, 180, 10);

 {солнце}

 circle(245, 15, 15);

 setpenwidth(2);

 line(205, 18, 159, 18);

 line(210, 38, 179, 67);

 line(220, 58, 200, 78);

 line(240, 58, 241, 88);

 {птицы}

 setpenwidth(1);

 line(18, 19, 38, 38);

 line(38, 38, 58, 19);

 line(58, 19, 37, 27);

 line(37, 27, 18, 19);

 line(58, 8, 78, 28);

 line(78, 28, 98, 9);

 line(98, 9, 79, 18);

 line(79, 18, 58, 8);

 {клякса на корабле}

 setbrushcolor(clblack);

 circle(120, 160, 5);

end.