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

program elf;
uses graph, Crt;
var gd,gm,d,f:integer;
x, i, r, w, e :integer;
h, y:real;
procedure zaliv(x,y,cp,cg:integer);
begin
setfillstyle(1,cp);
floodfill(x,y,cg);
end;
begin
r:=40; w:=r*5; e:=r*2;

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);

repeat
ellipse(w, e, 0, 360, r, (r div 3)+2);
ellipse(w, e-4, 190, 357, r, r div 3);
line(w-17, e-16, w-25, e-22);
line(w+17, e-16, w+25, e+22);
circle(w+25, e-25, 2);
circle(w-25, e-25, 2);
{setfillstyle(1, 3);
floodfill(w+1, e+4, 3);}
delay(700);
cleardevice;
for i:=1 to 600 do
putpixel(random(i), random(i), 15);
w:=w+random(10);
e:=e+random(10);
until(keypressed);
{ closegraph; }
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;}
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(126, 340, 146, 180); bar(475, 340, 495, 180); setcolor(8);
ellipse(165, 190, 196, 260, 20, 50); floodfill(147, 239, 8);
{ellipse(165, 198, 180, 360, 15, 40);}
ellipse(455, 190, 280, 344, 20, 50); floodfill(473, 239, 8);
ellipse(156, 140, 196, 261, 20, 40); ellipse(117, 140, 279, 345, 20, 40);
line(120, 180, 153, 180); zaliv(136, 178, 0, 8);
ellipse(505, 140, 196, 261, 20, 40); ellipse(466, 140, 279, 345, 20, 40);
line(470, 180, 502, 180); zaliv(480, 178, 0, 8);

readln;
end.