UGULAMA 18 -12 Mart 2010

program mario;
uses dos,crt,graph,printer;
var gs, gm, iMax, jMax, i, j ,k:integer;
renk: text;

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

assign(renk,'C:/mario.txt');
reset(renk);
read(renk, iMax, jMax);

for i := 1 to iMAX do
begin
for j:= 1 to jMax do
begin
read(renk, k);
setfillstyle(1, k);
bar((i - 1) * 20, (j -1) * 20, i * 20, j * 20);
end;
readln;
end;



close(renk);

readln;
closegraph;
end.

{mario.txt olarak kullanilan text dosyasinin icerigi:
16 16

1 1 1 1 2 2 2 2 2 2 1 1 1 1 1 1
1 1 1 2 2 2 2 2 2 2 2 2 2 1 1 1
1 1 1 3 3 3 3 4 4 3 4 1 1 1 1 1
1 1 3 3 4 3 4 4 4 3 4 4 4 1 1 1
1 1 3 3 4 3 3 4 4 4 3 4 4 4 1 1
1 1 3 3 3 4 4 4 4 3 3 3 3 1 1 1
1 1 1 1 4 4 4 4 4 4 4 4 1 1 1 1
1 1 1 3 3 3 5 3 3 3 1 1 1 1 1 1
1 1 3 3 3 3 5 3 3 5 3 3 3 1 1 1
1 3 3 3 3 3 5 5 5 5 3 3 3 3 1 1
1 4 4 4 3 5 4 5 5 4 5 3 4 4 1 1
1 4 4 4 4 5 5 5 5 5 5 4 4 4 1 1
1 4 4 4 5 5 5 5 5 5 5 5 4 4 1 1
1 1 1 5 5 5 5 1 5 5 5 5 1 1 1 1
1 1 3 3 3 3 1 1 1 3 3 3 3 1 1 1
1 3 3 3 3 3 1 1 1 3 3 3 3 3 1 1
}