hoabanglang224
 | |  | | |
Tổng số bài gửi : 21
Ngày nhập học : 07/10/2010
| |  | |  |
 |  Tiêu đề: Vẽ cờ nước Lào, Nhật, Việt Nam...  Fri Apr 22, 2011 1:03 am | |
|  |  |  | | | - Code:
-
program Co_lao;
uses crt,graph;
var gd,gm:integer;
function DetectInit(path:string):integer;
begin
gd:=0;
initgraph(gd,gm,path);
DetectInit:=graphresult;
end;
Begin
if detectinit('D:\pascal\bgi') <>0 then
begin
write('Loi do hoa'); readln;
end
else
begin
setbkcolor(14);cleardevice;setcolor(1);
rectangle(160,120,480,360);
line(160,200,480,200);
line(160,280,480,280);
circle(320,240,40);
setfillstyle(1,1);
floodfill(320,150,1);
floodfill(320,320,1);
setfillstyle(1,4);
floodfill(380,240,1);
floodfill(260,240,1);
setfillstyle(1,15);
floodfill(320,240,1);
readln;end;
end. Trong đó, để tô màu cho hình ảnh thì dùng cặp thủ tục sau: + setfillstyle(nét tô, màu tô): nét tô đặc thường có mã là 1. + floodfill(x,y,màu đường biên): tô màu cho vùng/ miền kín có chứa điểm (x;y) và loang màu tô cho đến khi gặp màu đường biên thì dừng lại. | |  |  |  | |
|
Website 
Tra Cứu 
