Jumat, 20 Januari 2012

program gambar lingkaran

program gambarLingkaran;
uses
graph, crt;
const
lingkaran:array[1..3,1..10,1..10] of integer=(
((1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1)),(

(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1)),((1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1),
(1,1,1,1,1,1,1,1,1,1)));var
i,j,gd, gm:integer;
begin
gd:=cga;
initgraph(gd,gm,'');
repeat
for i:=1 to 10 do
for j:=1 to 10 do
for k:=0 to 5 do
begin
if lingkaran[k,i,j]=1 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=2 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=3 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=4 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=5 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=6 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=7 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=8 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=9 then putpixel((100+i),(100+j),(100+k));
if lingkaran[k,i,j]=10 then putpixel((100+i),(100+j),(100+k));
end;

until keypressed;
closegraph;
end.
0 Comments
Tweets
Comments

Tidak ada komentar:

Poskan Komentar

Berkomentarlah dengan bijak ^_^