Question

Раскрасить человечка и сделать фон,вот в этой я не умею(программа паскаль авс) program chelovek; uses graphabc; procedure p1(x,y: integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x-15,y+100); line(x,y+70,x+15,y+100); end; procedure p2(x,y: integer); begin circle(x,y,10); ellipse(x-15,y+10,x+15,y+70); line(x,y+70,x,y+100); end; var x,y,i: integer; begin x: =40; y: =100; i: =1; repeat lockdrawing; clearwindow; setpenwidth(3); if odd(i) then p1(x,y) else p2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); redraw; sleep(500); x: =x+5; i: =i+1; until x> =windowwidth-20; end.

Answer 1

Uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3);  if odd(i) then P1(x,y)  else P2(x,y); setpenwidth(10);  line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;end.