Плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс)program chelovek;uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);ellipse(x-15,y+10,x+15,y+70);line(x,y+...
Плиз помогите раскрасить человечка и сделать фон,вот в этой програмке...плииииз я не умею(программа паскаль авс)
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.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы