UYGULAMA 14 - 12 Mart 2010

program dortRenk;
uses dos,crt,graph,printer;
var gs, gm:integer;

begin
gs:=detect;
initgraph(gs,gm, 'c:\tp\bgi');
if graphresult <>grok then halt(1);
cleardevice;
setbkcolor(8);

setfillstyle(3,3);
bar(0,0, getmaxx div 2, getmaxy div 2);


setfillstyle(1,10);
bar(getmaxx div 2,0, getmaxx, getmaxy div 2);

setfillstyle(1,9);
bar(0,getmaxy div 2, getmaxx div 2, getmaxy);

setfillstyle(7,3);
bar(getmaxx div 2,getmaxy div 2, getmaxx, getmaxy);

setcolor(15);
settextstyle(9,0,2);
outtextxy(getmaxx div 4, getmaxy div 4, '1. ALAN');
setcolor(3);
outtextxy(3 * getmaxx div 4, getmaxy div 4, '2. ALAN');
setcolor(4);
outtextxy(getmaxx div 4, 3 * getmaxy div 4, '3. ALAN');
setcolor(15);
outtextxy(3* getmaxx div 4, 3 * getmaxy div 4, '4. ALAN');

readln;
closegraph;
end.