UYGULAMA 15 - 12 Mart 2010

program renkler;
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;

setfillstyle(1, 1);
bar(0,0,getmaxx div 16, getmaxy);

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

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

setfillstyle(1,4);
bar(getmaxx div 16 * 3, 0, getmaxx div 16 * 4, getmaxy);

setfillstyle(1,5);
bar(getmaxx div 16 * 4, 0, getmaxx div 16 * 5, getmaxy);

setfillstyle(1,6);
bar(getmaxx div 16 * 5, 0, getmaxx div 16 * 6, getmaxy);

setfillstyle(1,7);
bar(getmaxx div 16 * 5, 0, getmaxx div 16 * 6, getmaxy);

setfillstyle(1,8);
bar(getmaxx div 16 * 6, 0, getmaxx div 16 * 7, getmaxy);

setfillstyle(1,9);
bar(getmaxx div 16 * 7, 0, getmaxx div 16 * 8, getmaxy);

setfillstyle(1,10);
bar(getmaxx div 16 * 8, 0, getmaxx div 16 * 9, getmaxy);

setfillstyle(1,11);
bar(getmaxx div 16 * 9, 0, getmaxx div 16 * 10, getmaxy);

setfillstyle(1,12);
bar(getmaxx div 16 * 10, 0, getmaxx div 16 * 11, getmaxy);

setfillstyle(1,13);
bar(getmaxx div 16 * 11, 0, getmaxx div 16 * 12, getmaxy);

setfillstyle(1,14);
bar(getmaxx div 16 * 12, 0, getmaxx div 16 * 13, getmaxy);
setfillstyle(1,15);
bar(getmaxx div 16 * 13, 0, getmaxx div 16 * 14, getmaxy);

readln;
closegraph;
end.