Образец материалов для подготовки преподавателей к лекции

const

• const
• EmptyFill =0;{fon rangi bilan to‘ldirish}
• SolidFill =1;{yaxlit-uzluksiz to‘ldirish }
• LineFill =2;{- - - - - simvollari bilan to‘ldirish}
• LtslashFill =3;{ /////// simvollari bilan to‘ldirish}
• SlashFill =4;{ //// qalin simollari bilan to‘ldirish}
• BkSlashFill =5;{\\\\\ qalin simvollari bilan to‘ldirish }
• LtBkSlashFill =6;{ //// simvollari bilan to‘ldirish }
• HatchFill =7;{+++++ simvollari bilan to‘ldirish }
• XHatchFill =8;{ xxxx simvollari bilan to‘ldirish }
• InterLeaveFill =9;{kataklar bilan to‘ldirish}
• WideDotFill =10;{kam sonli-zich bo‘lmagan nuqtalar bilan to‘ldirish }
• CloseDotFill =11;{zich bo‘lgan nuqtalar bilan to‘ldirish }
•  
• UserFill =12;{foydalanuvchi tomonidan aniqlangan shakl bilan to‘ldirish}

floodfill(x,u;integer; Border:word);-protsedurasi ixtiyoriy chegaralangan sohani oldindan aniqlangan sohani to‘ldirishning stili va rangi bilan to‘ldiradi.

• floodfill(x,u;integer; Border:word);-protsedurasi ixtiyoriy chegaralangan sohani oldindan aniqlangan sohani to‘ldirishning stili va rangi bilan to‘ldiradi.
• masalan: parametrlari (150,150,getmaxx-150,getmaxy-150) bo‘lgan to‘rtburchak sohani turli stillarda to‘ldiruvchi dasturni keltiramiz:
•  
• uses graph;
• var gd,gm:integer; i:byte;
• begin
• gd:=detect; initgraph(gd,gm,'c:\tp\bgi');setbkcolor(black);
• setcolor(red);setlinestyle(0,0,1);
• for i:=0 to 12 do
• begin
• setfillstyle(i,green);rectangle(150,150,getmaxx-150,getmaxy-150);
• floodfill(160,160,red);
• readln;
• end;
• readln;
• end.

Bar (x1,y1,x2,y2:integer);-protsedurasi chap yuqori burchagi ( x1,y1) va o‘ng quyi burchagi (x2,y2) nuqtalarda joylashgan to‘g‘ri to‘rtburchakli ekran sohasini to‘ldiradi.

• Bar (x1,y1,x2,y2:integer);-protsedurasi chap yuqori burchagi ( x1,y1) va o‘ng quyi burchagi (x2,y2) nuqtalarda joylashgan to‘g‘ri to‘rtburchakli ekran sohasini to‘ldiradi.
• masalan: bar(340,125,480,220);
• Bar va setfillstyle protseduralari yordamida 12 ta to‘g‘ri to‘rtburchakli sohani turli stillarda to‘ldirib, to‘ldirish stilini namoyish etuvchi dastur yarating.
• uses graph,crt;
• const
• stil:array[0..11]of string=('0','1','2','3','4','5','6','7','8','9','10','11');
• var
• gd,gm,a,b:integer; i:byte;
• begin
• gd:=detect;initgraph(gd,gm,'');setbkcolor(black);
• a:=5; b:=100;
• for i:=0 to 11 do
• begin
• setfillstyle(i,4);bar(a,100,a+50,200);outtextxy(a+15,75,stil[i]);a:=a+50;
• end;
• readln;
• end.