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

Program proba;
Uses graph;
var
gd, gm:integer;
x, y:real;

procedure z(x, y, zw, zwgran:integer);
begin
setfillstyle(1, zw);
floodfill(x, y, zwgran);
end;
begin
gd:=detect;
initgraph(gd, gm, 'c:\tp\bgi');
z(100, 100, 11, 13);
setcolor(0);
line(158, 64, 163, 77);
line(163, 77, 168, 87);
line(168, 87, 173, 95);
line(173, 95, 179, 102);
line(179, 102, 185, 108);
line(182, 112, 185, 108);
line(185, 108, 188, 104);
line(188, 104, 190, 103);
line(190, 103, 193, 101);
line(193, 101, 195, 101);
line(195, 101, 197, 101);
line(197, 101, 198, 102);
line(198, 102, 203, 108);
line(158, 64, 158, 80);
line(158, 80, 159, 89);
line(159, 89, 160, 93);
line(160, 93, 163, 97);
line(163, 97, 166, 100);
line(166, 100, 170, 104);
line(170, 104, 175, 107);
line(175, 107, 182, 111);
line(181, 110, 179, 106);
line(179, 106, 175, 103);
line(175, 103, 170, 100);
line(170, 100, 166, 95);
line(166, 95, 164, 90);
line(164, 90, 163, 84);
line(163, 84, 162, 80);
line(162, 80, 158, 64);
z(160, 80, 7, 0);
line(181, 110, 164, 110);
line(164, 110, 162, 111);
line(162, 111, 160, 112);
line(160, 112, 160, 116);
line(160, 116, 166, 124);
line(166, 124, 172, 139);
line(169, 130, 160, 142);
line(160, 142, 150, 160);
line(150, 160, 148, 170);
line(148, 170, 148, 180);
line(148, 180, 149, 190);
line(149, 190, 151, 200);
line(151, 200, 156, 210);
line(156, 210, 162, 220);
line(162, 220, 170, 230);
line(170, 230, 182, 240);
line(182, 240, 200, 250);
line(200, 250, 220, 252);
line(220, 252, 240, 252);
line(240, 252, 272, 250);
line(272, 250, 290, 247);
line(290, 247, 310, 238);
line(310, 238, 320, 231);

line(173, 106, 169, 110);
z(173, 108, 0, 0);

line(164, 120, 160, 125);
line(160, 125, 152, 130);
line(152, 130, 134, 139);
line(134, 139, 140, 140);
line(140, 140, 147, 139);
line(147, 139, 152, 137);
line(152, 137, 145, 145);
line(145, 145, 140, 150);
line(140, 150, 135, 160);
line(135, 160, 132, 168);
line(132, 168, 148, 153);
line(148, 153, 142, 170);
line(142, 170, 140, 190);
line(140, 190, 143, 187);
line(143, 187, 151, 198);
z(150, 150, 0, 0);

line(218, 95, 210, 100);
line(210, 100,203, 108);
line(203, 108, 196, 120);
line(196, 120, 193, 130);
line(193, 130, 194, 134);
line(194, 134, 196, 137);
line(196, 137, 200, 140);
line(200, 140, 205, 141);
line(205, 141, 212, 140);
line(212, 140, 217, 138);
line(217, 138, 216, 130);
line(216, 130, 214, 127);
line(214, 127, 211, 128);
line(211, 128, 209, 127);
line(209, 127, 209, 123);
line(209, 123, 210, 117);
line(210, 117, 218, 95);
z(200, 120, 15, 0);

line(213, 108, 221, 109);
line(218, 112, 221, 109);
line(221, 109, 225, 105);
line(225, 105, 228, 104);
line(228, 104, 230, 104);
line(230, 104, 232, 106);
line(232, 106, 235, 118);

line(228, 120, 235, 118);
line(235, 118, 244, 118);
line(232, 126, 244, 118);
line(244, 118, 259, 111);
line(259, 111, 262, 110);
line(262, 110, 265, 111);
line(265, 111, 268, 115);
line(268, 115, 270, 125);
line(270, 125, 269, 140);
line(269, 140, 265, 148);
line(265, 148, 262, 149);
line(262, 149, 250, 151);
line(250, 151, 239, 150);
line(239, 150, 230, 149);
line(230, 149, 228, 148);
line(228, 148, 226, 144);
line(226, 144, 226, 140);
line(226, 140, 227, 137);
line(227, 137, 230, 133);
line(230, 133, 259, 111);
z(260, 120, 14, 0);
z(138, 138, 0, 0);

line(178, 101, 190, 90);
line(190, 90, 184, 89);
line(184, 89, 192, 87);
line(192, 87, 184, 82);
line(184, 82, 195, 84);
line(195, 84, 205, 83);
line(205, 83, 200, 78);
line(200, 78, 190, 74);
line(190, 74, 205, 76);
line(205, 76, 202, 72);
line(202, 72, 210, 78);
line(210, 78, 215, 85);
line(215, 85, 217, 72);
line(217, 72, 220, 80);
line(220, 80, 221, 85);
line(221, 85, 228, 80);
line(228, 80, 222, 90);
line(222, 90, 220, 100);
line(220, 100, 220, 109);
z(200, 90, 0, 0);
z(170, 95, 6, 0);

line(185, 115, 197, 119);
line(185, 115, 192, 115);
line(192, 115, 198, 116);
line(191, 115, 194, 114);
LINE(194, 114, 197, 113);
LINE(197, 113, 200, 114);
line(185, 115, 183, 116);

line(220, 114, 231, 118);
line(227, 117, 230, 116);
line(223, 114, 225, 113);
line(225, 113, 227, 113);
line(227, 113, 230, 115);
line(220, 112, 224, 110);
line(224, 110, 227, 109);
line(227, 109, 229, 110);
line(229, 110, 232, 114);

line(188, 111, 191, 109);
line(191, 109, 195, 107);
line(195, 107, 197, 107);
line(197, 107, 200, 110);

line(175, 126, 180, 123);
line(180, 123, 185, 122);
line(181, 123, 185, 127);
line(185, 127, 190, 129);
line(190, 129, 193, 130);

line(209, 123, 212, 124);
line(212, 124, 214, 127);
line(217, 138, 218, 142);
line(218, 142, 220, 144);
line(220, 144, 225, 148);
line(225, 148, 230, 149);
z(220, 120, 6, 0);
z(225, 115, 6, 0);

line(251, 128, 247, 128);
line(247, 128, 240, 133);
line(240, 133, 237, 138);
line(237, 138, 237, 140);
line(237, 140, 238, 142);
line(238, 142, 240, 144);
line(240, 144, 243, 144);
line(243, 144, 247, 143);
line(247, 143, 248, 140);
line(248, 140, 250, 133);
line(250, 133, 249, 130);
line(249, 130, 246, 128);
z(240, 140, 6, 0);

line(238, 142, 242, 142);
line(242, 142, 244, 141);
line(244, 141, 246, 138);
line(246, 138, 246, 134);
line(246, 134, 245, 131);
line(245, 131, 244, 130);
z(248, 132, 13, 0);

line(262, 128, 259, 130);
line(259, 130, 256, 135);
line(256, 135, 255, 141);
line(255, 141, 256, 144);
line(256, 144, 259, 144);
line(259, 144, 262, 142);
line(262, 142, 264, 140);
line(264, 140, 265, 136);
line(265, 136, 265, 132);
line(265, 132, 263, 130);
line(263, 130, 260, 130);
z(260, 135, 6, 0);

line(256, 143, 260, 141);
line(260, 141, 262, 138);
line(262, 138, 262, 134);
line(262, 134, 261, 132);
line(261, 132, 260, 130);
z(262, 140, 13, 0);

line(232, 108, 249, 90);
line(249, 90, 252, 88);
line(252, 88, 258, 88);
line(258, 88, 277, 92);
line(277, 92, 275, 93);
line(275, 93, 262, 95);
line(262, 95, 254, 98);
line(254, 98, 244, 106);
line(244, 106, 233, 113);
z(250, 95, 6, 0);

line(270, 129, 274, 124);
line(274, 124, 277, 112);{}
line(277, 112, 277, 125);
line(277, 125, 275, 132);
line(275, 132, 269, 139);
line(277, 112, 280, 122);
line(280, 122, 281, 130);
line(281, 130, 280, 135);
line(280, 135, 277, 140);
line(277, 140, 272, 144);
line(272, 144, 265, 148);
z(273, 130, 15, 0);
z(275, 135, 15, 0);
z(211, 125, 15, 0);

line(225, 148, 230, 157);
line(230, 157, 238, 160);
line(238, 160, 248, 162);
line(248, 162, 263, 160);
line(250, 151, 261, 161);
line(245, 151, 248, 155);
line(248, 155, 249, 159);
line(249, 159, 249, 162);
z(240, 155, 13, 0);
z(255, 160, 12, 0);

line(258, 151, 270, 160);
line(270, 160, 265, 169);

line(238, 195, 230, 196);
line(230, 196, 225, 199);
line(225, 199, 222, 202);
line(222, 202, 218, 215);
line(220, 216, 210, 213);
line(210, 213, 202, 210);
line(202, 210, 198, 205);
line(198, 205, 194, 205);
line(194, 205, 190, 210);
line(190, 210, 187, 220);
line(187, 220, 186, 230);
line(186, 230, 187, 235);
line(187, 235, 190, 239);
line(190, 239, 195, 241);
line(195, 241, 203, 241);
line(203, 241, 199, 235);
line(199, 235, 195, 230);
line(195, 230, 192, 230);
line(192, 230, 190, 235);
line(190, 235, 187, 235);
z(195, 235, 0, 0);
line(195, 230, 196, 225);
line(196, 225, 192, 223);
line(192, 223, 198, 210);
line(197, 211, 200, 213);
line(200, 213, 209, 220);
line(209, 220, 220, 230);
line(220, 230, 222, 231);
line(222, 231, 226, 230);
line(226, 230, 235, 215);
line(235, 215, 243, 203);

line(265, 169, 255, 180);
line(255, 180, 245, 188);
line(245, 188, 230, 196);
line(222, 202, 215, 207);
line(215, 207, 202, 210);
line(189, 212, 180, 217);
line(180, 217, 176, 220);
line(176, 220, 173, 225);
line(173, 225, 173, 229);
line(173, 229, 174, 234);
z(190, 160, 6, 0);
z(194, 117, 6, 0);
z(197, 114, 6, 0);
z(210, 210, 8, 0);

line(158, 215, 159, 224);
line(159, 224, 161, 231);
line(161, 231, 164, 240);
line(164, 240, 168, 247);
line(168, 247, 168, 268);
line(168, 268, 162, 270);
line(162, 270, 158, 272);
line(158, 272, 160, 273);
line(160, 273, 163, 273);
line(163, 273, 168, 278);
line(168, 278, 170, 273);
line(170, 273, 172, 274);
line(172, 274, 173, 265);
line(173, 265, 175, 254);
line(175, 254, 178, 248);
LINE(178, 248, 182, 240);
Z(170, 240, 6, 0);

LINE(158, 272, 154, 273);
LINE(154, 273, 150, 277);
LINE(150, 277, 149, 281);
LINE(149, 281, 154, 281);
LINE(154, 281, 154, 284);
LINE(154, 284, 158, 284);
LINE(158, 284, 164, 281);
LINE(164, 281, 168, 278);
Z(160, 280, 0, 0);

LINE(298, 244, 298, 250);
LINE(298, 250, 297, 260);
LINE(297, 260, 294, 265);
LINE(294, 265, 289, 269);
LINE(289, 269, 285, 270);
LINE(285, 270, 282, 272);
LINE(282, 272, 280, 278);
LINE(280, 278, 286, 278);
LINE(286, 278, 290, 277);
LINE(290, 277, 293, 272);
LINE(293, 272, 298, 270);
LINE(298, 270, 301, 267);
LINE(301, 267, 301, 263);
LINE(301, 263, 311, 237);
line(293, 272, 291, 269);
line(291, 269, 289, 269);
z(300, 250, 6, 0);
z(285, 275, 0, 0);

line(265, 169, 274, 174);
line(274, 174, 281, 178);
line(281, 178, 290, 180);
line(281, 178, 290, 178);
line(290, 178, 300, 175);
Line(300, 175, 307, 171);
line(307, 171, 310, 165);
line(310, 165, 312, 152);
line(312, 152, 312, 115);
line(312, 115, 313, 105);
line(313, 105, 315, 95);
line(315, 95, 318, 88);
line(318, 88, 322, 80);
line(322, 80, 332, 83);
line(332, 83, 345, 87);
line(345, 87, 340, 82);
line(340, 82, 338, 76);
line(338, 76, 342, 80);
line(342, 80, 350, 83);
line(350, 83, 359, 83);
line(359, 83, 355, 81);
line(355, 81, 351, 78);
line(351, 78, 357, 80);
line(357, 80, 361, 80);
line(361, 80, 367, 79);
line(367, 79, 371, 80);
line(371, 80, 375, 82);
line(375, 82, 372, 78);
line(372, 78, 370, 70);
line(370, 70, 365, 64);
line(365, 64, 360, 60);
line(360, 60, 351, 56);
line(351, 56, 355, 55);
line(355, 55, 350, 53);
line(350, 53, 345, 53);
line(345, 53, 338, 57);
line(338, 57, 330, 63);
line(330, 63, 325, 70);
line(325, 70, 322, 80);
z(340, 70, 0, 0);

line(327, 81, 322, 90);
line(322, 90, 320, 100);
line(320, 100, 320, 130);
line(320, 130, 321, 150);
line(321, 150, 323, 160);
line(323, 160, 322, 165);
line(322, 165, 321, 170);
line(321, 170, 325, 172);
line(325, 172, 329, 178);
line(329, 178, 331, 187);
line(331, 187, 332, 198);
line(332, 198, 331, 214);

line(331, 210, 351, 199);
line(351, 199, 355, 198);
line(355, 198, 358, 200);
line(358, 200, 367, 227);
line(239, 211, 259, 199);
line(259, 199, 279, 190);
line(279, 190, 275, 194);
line(275, 194, 284, 194);
line(284, 194, 295, 197);
line(295, 197, 306, 202);
line(304, 198, 313, 223);
line(313, 223, 316, 229);
line(316, 229, 320, 231);
line(320, 231, 324, 232);
line(324, 232, 328, 231);
z(270, 220, 8, 0);
line(328, 231, 352, 208);
line(350, 210, 364, 230);
line(364, 230, 366, 231);
line(366, 231, 369, 230);
line(369, 230, 370, 225);
line(370, 225, 369, 221);
line(369, 221, 367, 221);
line(367, 221, 365, 223);
z(310, 190, 6, 0);

line(367, 221, 375, 215);
line(375, 215, 376, 217);
line(376, 217, 378, 215);
line(378, 215, 379, 219);
line(379, 219, 379, 222);
line(379, 222, 375, 228);
line(375, 228, 371, 231);
line(371, 231, 369, 230);
z(375, 225, 0, 0);
line(0,200,150,200);
line(357,200,680,200);
line(350,200,332,200);
z(335,202,2,0);
z(400,400,2,0);
circle(50,50,30);
z(50,50,14,0);
readln;
end.