01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / ELFZAMOK

program elf;
uses graph, Crt;
var gd,gm,d,f:integer;
x, i :integer;
h, y:real;
procedure zaliv(x,y,cp,cg:integer);
begin
setfillstyle(1,cp);
floodfill(x,y,cg);
end;
begin
gd:=detect;
initgraph(gd,gm,'d:\bp7\bgi');
zaliv(50,50,0,6);
for i:=500 to 2000 do
putpixel(random(i), random(i), 15);
setcolor(1);
line(0,220,640,220);
zaliv(400,450,1,1); { readln; }
setcolor(14);
circle(30, 30, 30);
zaliv(30, 30, 14, 14);
setcolor(8);
SetFillStyle(9, 8);
bar(163, 340, 457, 240);
bar(180, 240, 210, 190);
bar(440, 240, 410, 190); { reaDLN;}
arc(165, 225, 180, 360, 16);
arc(455, 225, 180, 360, 15);
zaliv(152, 238, 8, 8);
{floodfill(152, 239, 8);
{ellipse(161, 190, 280, 344, 20, 50);
floodfill(178, 238, 8);
ellipse(459, 190, 196, 260, 20, 50);
floodfill(443, 238, 8);
ellipse(229, 190, 196, 260, 20, 50);
ellipse(391, 190, 280, 344, 20, 50);
floodfill(212, 237, 8);
floodfill(407, 237, 8);} { readln;}
ellipse(225, 148, 187, 252, 30, 45);
ellipse(165, 148, 290, 353, 30, 45);
line(175, 190, 215, 190);
ellipse(455, 148, 187, 252, 30, 45);
ellipse(395, 148, 290, 353, 30, 45);
line(405, 190, 445, 190);
setfillstyle(1, 8); { readln; }
bar(270, 240, 350, 140);
bar(280, 240, 340, 95);
Ellipse(250,10,290,350,60,90);
Ellipse(368,10,190,252,60,90);
Line(270, 95, 348, 95);
Zaliv(290, 90, 0, 8);
zaliv(200, 188, 0, 8);
zaliv(420, 188, 0, 8); { readln;}
arc(275, 141, 180, 270, 20);
arc(345, 141, 270, 0, 20);
line(255, 141, 255, 240);
line(365, 141, 365, 240);
zaliv(260, 180, 8, 8);
zaliv(360, 180, 8, 8);
setfillstyle(1, 0);
bar(300, 135, 320, 110);
setcolor(0);
line(300, 110, 310, 100);
line(310, 100, 320, 110);
zaliv(310, 108, 0, 0);
setcolor(8);
line(300, 110, 320, 110);
line(310, 100, 310, 200);
line(300, 122, 320, 122);
bar(300, 220, 320, 180); setcolor(0);
arc(310, 180, 0, 180, 10); zaliv(310, 178, 0, 0);
bar(272, 220, 284, 195); bar(336, 220, 348, 195);
arc(278, 195, 0, 180, 6); arc(342, 195, 0, 180, 6);
zaliv(278, 193, 0, 0); zaliv(342, 193, 0, 0); setcolor(8);
line(310,160, 310, 230); line(300, 180, 320, 180);
line(300, 200, 320, 200);
line(272, 195, 284, 195); line(336, 195, 348, 195);
line(272, 207, 284, 207); line(336, 207, 348, 207);
line(278, 220, 278, 189); line(342, 220, 342, 189);
bar(190,205, 200, 225);bar(420, 205, 430, 225);
line(195, 205, 195, 225); line(425, 205, 425, 225);
line(190, 215, 200, 215); line(420, 215, 430, 215);setcolor(1);
line(290, 340, 290, 300); line(330, 340, 330, 300);
arc(310, 300, 0, 180, 20); zaliv(310, 310, 0, 1);
line(310, 280, 310, 360);
line(307, 322, 307, 318); line(313, 322, 313, 318);
setfillstyle(9, 8);
bar(130, 340, 174, 240); bar(446, 340, 490, 240);
bar(130, 340, 150, 180); bar(470, 340, 490, 180);
readln
end.