Размещено 4 года назад по предмету
Информатика
от Detka1998www
плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс) 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.