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

Program dacha;
uses graph, crt;
var
gd,gm, i, j, x, y, f, t, q, w, v, b:integer;
Procedure Z(x, y, cp, cg:integer);
begin
setfillstyle(1, cp);
floodfill(x, y, cg);
end;
BEGIN
f:=0;t:=0;
gd:=detect;
initgraph(gd, gm, 'd:\bp7\bgi');
Z(100, 100,1, 15);
{for i:=500 to 900 do
putpixel(random(i), random(i), random(i));}
setcolor(10);
line(0, 231, 640, 231);
z(100, 400, 10, 10);
setcolor(4);
arc(573, 245,25, 154, 35);
line(542, 230, 604, 230);
z(545, 225, 4, 4);
setcolor(14);
line(0, 330, 640, 330);
line(0, 415, 640, 415);
z(10, 350, 14, 14);
z(10, 450, 9, 14);
setfillstyle(7, 6);
bar(150, 380, 380, 180);
setcolor(0);
line(125, 180, 405, 180);
line(125, 180, 160, 90);
line(160, 90, 230, 60);
line(230, 60, 300, 60);
line(300, 60, 370, 90);
line(370, 90, 405, 180);
setfillstyle(9, 15);
floodfill(160, 160, 0);
setlinestyle(0, 15, 3);
setfillstyle(2, 3);
bar(230, 160, 300, 100);
setcolor(15);
line(279, 160, 279, 100);
rectangle(230, 160, 300, 100);
rectangle(175, 345, 245, 260);
rectangle(285, 345, 355, 260);
rectangle(220, 190, 310, 210);
setfillstyle(2, 3);
floodfill(230, 340,15);
floodfill(300, 340,15);
z(250, 200, 3, 15);
line(225, 345, 225, 260);
line(335, 345, 335, 260);
setfillstyle(1, 6);
bar(70, 380, 149, 370);
bar(149, 380, 90, 360);
bar(450, 380, 460, 350);
setfillstyle(8, 2);
bar(380, 350, 470, 310);
setcolor(0);
line(469, 309, 469, 240);
line(469, 240, 380, 240);
ellipse(380, 260, 20, 90, 100, 50);
line(382, 240, 382, 210);
setfillstyle(9, 7);
floodfill(385, 235, 0);
setcolor(6);
setlinestyle(0, 6, 1);
line(379, 380, 459, 380);
setfillstyle(1, 6);
bar(105, 360, 110, 205);
setlinestyle(0, 6, 3);
ellipse(90, 160, 295, 335, 40, 49);
line(105, 305, 149, 305);
line(148, 380, 148, 305);
z(130, 359, 6, 6);
line(105, 205, 90, 215);
setcolor(15);
line(111, 305, 149, 305);
line(149, 305, 149, 181);
line(149, 181, 130, 181);
line(111, 305, 111, 205);
ellipse(92, 162, 298, 338, 40, 48);
z(120, 250, 3, 15);
setcolor(15);
line(111, 205, 149, 205);
setlinestyle(0, 15, 1);
line(5, 469, 12, 470);
line(269, 450, 286, 451);
line(468, 427, 481, 426);
line(615, 439, 641, 437);
line(177, 442, 185, 441);
line(49, 433, 65, 435);
line(341, 460, 360, 458);
line(120, 466, 140, 463);
line(400, 450, 415, 453);
line(520, 455, 543, 458);
ellipse(410, 50, 120, 180, 50, 20);
ellipse(310, 50, 0, 60, 50, 20);
ellipse(410, 41, 121, 170, 50, 10);
ellipse(310, 41, 10, 59, 50, 10);
z(375, 35, 15, 15);
ellipse(150, 100, 128, 170, 30, 8);
ellipse(90, 100, 10, 52, 30, 8);
repeat;
ellipse(550+f,200-t, 155, 185, 50, 5);
ellipse(450+f,200-t, 0, 25, 50, 5);
delay(250);
setfillstyle(1, 1);
bar(495, 200, 640, 0);
f:=f+1;t:=t+2;
until keypressed;
readln;
repeat;
ellipse(150-q, 100-w, 128, 170, 30, 8);
ellipse(90-q, 100, 10, 52, 30, 8);
delaY(250);
SETFILLSTYLE(1, 1);
bar(0, 100, 140, 0);
q:=q+2;w:=w+1;
until keypressed;
readln;
repeat;
ellipse(410-b, 50, 120, 180, 50, 20);
ellipse(310-b, 50, 0, 60, 50, 20);
ellipse(410-b, 41, 121, 170, 50, 10);
ellipse(310-b, 41, 10, 59, 50, 10);
z(370-b, 36, 15, 15);
delay(50);
setfillstyle(1, 1);
bar(0, 60, 450, 0);
b:=b+1;
until keypressed;
readln
END.