Программы на PascalABC (рисуют неваляшку и мишку)

Программы на PascalABC (рисуют неваляшку и мишку)

program nevaliashka;

uses graphabc;

begin;

setwindowsize (750,450);

setwindowtitle ('Неваляшка’);

clearwindow (clyellow);

setpencolor (clred);

setpenwidth (1);

circle (525,132,62);

circle (525,300,100);

circle (400,275,30);

circle (650,275,30);

setpencolor (clbrown);

line (462,132,525,75);

line (525,75,587,132);

line (437,350,613,350);

setpencolor (clbrown);

setbrushstyle (bsDiagCross);

setbrushcolor (clbrown);

rectangle (512, 225, 537,262);

rectangle (512,287,537,325);

setbrushstyle (bssolid);

floodfill (490,100,clsilver);

floodfill (560,100,clsilver);

floodfill (475,300,clwhite);

floodfill (550,375,clred);

floodfill (650,275,clred);

floodfill (400,275,clred);

setpencolor (clnavy);

circle (538,125,12);

circle (512,125,12);

setpencolor (clfuchsia);

line (500,162,550,162);

line (500,162,525,175);

line (550,162,525,175);

floodfill (513,125,clnavy);

floodfill (539,125,clnavy);

floodfill (450,300,clgreen);

SetBrushColor(clyellow);

SetFontColor (clblack);

SetFontSize (16);

SetFontStyle (fsitalicunderline);

TextOut (50,325,’Весёлая неваляшка’);

end.

Program mouse;

uses graphabc;

begin

Floodfill(70,300,cllime);

setwindowsize(500,520);

setwindowtitle('mouse');

setpenwidth(2);

setpencolor(clblack);

circle(300,200,75);

Floodfill(300,200,clgray);

circle(275,190,10);

circle(325,190,10);

circle(325,190,3);

circle(275,190,3);

Floodfill(275,190,clblack);

Floodfill(325,190,clblack);

circle(300,220,8);

Floodfill(300,220,clblack);

line(275,240,300,250);

line(300,250,325,240);

line(200,200,255,213);

line(200,250,255,240);

line(200,225,255,225);

line(333,213,400,200);

line(333,225,400,225);

line(333,240,400,250);

circle(400,125,50);

circle(200,125,50);

circle(200,125,30);

circle(400,125,30);

Floodfill(200,80,clgray);

Floodfill(400,88,clgray);

Floodfill(400,125,clbrown);

Floodfill(200,125,clbrown);

ellipse(250,275,350,475);

ellipse(275,300,325,425);

Floodfill(300,400,clbrown);

Floodfill(300,280,clgray);

circle(275,485,18);

circle(325,485,18);

Floodfill(275,485,clgray);

Floodfill(325,485,clgray);

circle(225,350,26);

circle(375,350,26);

Floodfill(225,350,clgray);

Floodfill(375,350,clgray);

setfontname('comic sans ms');

setfontsize(40);

setfontstyle(fsunderline);

setfontcolor(clred);

textout(25,0,'mouse');

line(100,250,200,350);

ellipse(50,125,150,250);

Floodfill(100,200,clyellow);

End.