teen9xquan
...............................
Posts : 10
Points : 97992
Thanked : 0
Gia nhập: : 20/11/2010
 |  Tiêu đề: Bài 4 nè ! hk hiểu gì hết???? 4/23/2011, 20:40 | |
| |
|
admin
................................
Thú nuôi : 
Posts : 449
Points : 99739
Thanked : 4
 Gia nhập: : 07/11/2010
Tuổi : 31
Đến từ : Gần nhà Tề Thiên
| | Tiêu đề: Re: Bài 4 nè ! hk hiểu gì hết???? 4/24/2011, 07:54 | |
| |
|
admin
................................
Thú nuôi :
Posts : 449
Points : 99739
Thanked : 4
Gia nhập: : 07/11/2010
Tuổi : 31
Đến từ : Gần nhà Tề Thiên
| | Tiêu đề: Re: Bài 4 nè ! hk hiểu gì hết???? 4/24/2011, 22:38 | |
|  | |  |  | đây là vẽ hình vuông 2 đơn vị trên đồ họa pascal
- Code:
-
program baitap;
uses graph;
Type
PointType = Record
x,y : integer;
end;
var gk: Array[1..4] of pointtype((x:0,y:0),(x:2,y:0),(x:2,y:2),(x:0,y:2));
Gd, Gm: Integer;
Begin
Gd := Detect;
InitGraph(Gd, Gm, 'F:\WINAPPS\BP\BGI');
if GraphResult <> grOk then Halt(1);
SetBkcolor(CYAN);
SetColor(YELLOW);
SetFillStyle(SolidFill,MAGENTA);
DrawPoly(3,gk);
FillPoly(3,gk);
Readln;
CloseGraph;
End. | |  | |  | |
|
Sponsored content
| | Tiêu đề: Re: Bài 4 nè ! hk hiểu gì hết???? | |
|
|
|
Đăng ký 
Viết chương trình vẽ các hình sau :
