program graphic; uses graphABC; { подключаем модуль GraphABC для работы } var
j,i:integer; begin {начало основного блока операторов программы}
//дом rectangle(150,150,350,350); floodfill(151,250,clbrown); rectangle(210,210,290,290); rectangle(210,210,250,290); floodfill(215,230,clYellow); floodfill(251,251,clblue); Rectangle(250,210,290,290); floodfill(251,215,clYellow); line(250,210,250,290); line(210,250,290,250); line(150,150,250,50); line(250,50,350,150); floodfill(250,60,clblack); //облака
//фон,солнце floodfill(0,0,cllightgreen); circle(640,0,100); floodfill(630,1,clyellow); //заборчик rectangle(0,270,150,280); floodfill(1,271,clblack); rectangle(350,270,640,280); floodfill(351,271,clblack); rectangle(0,320,150,330); floodfill(1,321,clblack); rectangle(350,320,640,330); floodfill(351,321,clblack); rectangle(1,250,11,350); floodfill(2,301,clblack); rectangle(16,250,26,350); floodfill(17,301,clblack); rectangle(31,250,41,350); floodfill(32,301,clblack); rectangle(46,250,56,350); floodfill(47,301,clblack); rectangle(61,250,71,350); floodfill(62,301,clblack); rectangle(76,250,86,350); floodfill(81,301,clblack); rectangle(91,250,101,350); floodfill(92,301,clblack); rectangle(106,250,116,350); floodfill(111,301,clblack); rectangle(121,250,131,350); floodfill(126,301,clblack); rectangle(136,250,146,350); floodfill(141,301,clblack); rectangle(351,250,361,350); floodfill(352,301,clblack); rectangle(366,250,376,350); floodfill(367,301,clblack); rectangle(381,250,391,350); floodfill(382,301,clblack); rectangle(396,250,406,350); floodfill(397,301,clblack); rectangle(411,250,421,350); floodfill(412,301,clblack); rectangle(426,250,436,350); floodfill(431,301,clblack); rectangle(441,250,451,350); floodfill(442,301,clblack); rectangle(456,250,466,350); floodfill(461,301,clblack); rectangle(471,250,481,350); floodfill(476,301,clblack); rectangle(486,250,496,350); floodfill(491,301,clblack); rectangle(501,250,511,350); floodfill(502,301,clblack); rectangle(516,250,526,350); floodfill(517,301,clblack); rectangle(531,250,541,350); floodfill(532,301,clblack); rectangle(546,250,556,350); floodfill(547,301,clblack); rectangle(561,250,571,350); floodfill(562,301,clblack); rectangle(576,250,586,350); floodfill(581,301,clblack); rectangle(591,250,601,350); floodfill(592,301,clblack); rectangle(606,250,616,350); floodfill(611,301,clblack); rectangle(621,250,631,350); floodfill(626,301,clblack); rectangle(636,250,640,350); floodfill(637,301,clblack); //ступеньки rectangle(350,300,380,350); floodfill(351,301,clbrown); rectangle(380,315,410,350); floodfill(381,321,clbrown); rectangle(410,330,440,350); floodfill(411,341,clbrown); //дорога rectangle(0,350,640,480); floodfill(1,351,clgray); rectangle(3,400,50,430); floodfill(10,401,clwhite); rectangle(60,400,110,430); floodfill(61,401,clwhite); rectangle(120,400,170,430); floodfill(121,401,clwhite); rectangle(180,400,230,430); floodfill(182,401,clwhite); rectangle(240,400,290,430); floodfill(241,401,clwhite); rectangle(300,400,350,430); floodfill(301,401,clwhite); rectangle(360,400,410,430); floodfill(362,401,clwhite); rectangle(420,400,470,430); floodfill(421,401,clwhite); rectangle(480,400,530,430); floodfill(481,401,clwhite); rectangle(540,400,590,430); floodfill(541,401,clwhite); rectangle(600,400,640,430); floodfill(601,401,clwhite);
for i:=10 to 300 do begin
//LockDrawing; circle(320+i,70,30); circle(370+i,70,45); circle(420+i,70,30); circle(520+i,90,30); circle(570+i,90,45); circle(620+i,90,30); end; //дом
for i:=1 to 80 do begin //UnLockDrawing; //SetSmoothingOn; //LockDrawing; // SetPenColor(clblue); rectangle(210,210,250-i,290); if abs(250-i-210)>5 then floodfill(round((210+(250-i))/2),230,cl
Тип: Решение задач
Предмет: Pascal
Табель расхода материала завода РТИ за « » 2012 год
Стоимость: 406 руб.
Тип: Решение задач
Предмет: Pascal
Решение задач на языке Pascal + блок-схемы алгоритмов
Стоимость: 378 руб.
Тип: Решение задач
Предмет: Pascal
Решение задач на языке Pascal + блок-схемы алгоритмов
Стоимость: 360,5 руб.
Ох, не о том думал студент, когда выбирал себе вуз. Кто ж хотел для себя такой доли, как написание РГР? А тем временем выполнить работу все же придется, причем по всем правилам. Без паники, дорогие друзья, да прибудем с вами мы! Читаем и впитываем.Итак, вот основные правила оформления расчетно-гр…
Читать дальшеКак оформить магистерскую диссертацию в {{year}} году? Так же как и в прошлые годы, потому что никаких принципиально новых отличий от стандартов оформления прошлых лет для оформления магистерской диссертации в {{year}} году не вводится.Однако напомнить основные правила оформления будет не лишним. Н…
Читать дальше