Bài giảng Điện tử Tin học lớp 11: Bài 22

Bài giảng Điện tử Tin học lớp 11 - Bài 22: Thư viện chương trình con chuẩn, giới thiệu một số chương trình con chuẩn của pascal, một số thủ tục, hàm trong thư viện Graph. Chúc các em học tập có hiệu quả. | Bµi 22 th­ viÖn ch­¬ng tr×nh con chuÈn Gi¸o ¸n ®iÖn tö tin häc líp 11 Mêi c¸c b¹n cïng xem c¸c ch­¬ng tr×nh sau: 1. Mét sè th­ viÖn ch­¬ng tr×nh con chuÈn cña Pascal (UNIT) a Unit CRT chøa c¸c thñ tôc liªn quan ®Õn mµn h×nh, bµn phÝm. VÝ dô: - Thñ tôc CLRSCR; - Thñ tôc TextColor(color); - Thñ tôc TextBackGround(color). b Unit Graph chøa c¸c thñ tôc liªn quan ®Õn chÕ ®é ®å ho¹ cña c¸c lo¹i mµn h×nh kh¸c nhau, cho phÐp thùc hiÖn c¸c thao t¸c ®å ho¹ c¬ b¶n. - Ch­¬ng tr×nh ®iÒu khiÓn ®å ho¹ n»m trong c¸c tÖp *.BGI - To¹ ®é mµn h×nh ®å ho¹ ®­îc ®¸nh tõ 0, cét tÝnh tõ tr¸i qua ph¶i, dßng ®­îc tÝnh tõ trªn xuèng d­íi. - §Ó thùc hiÖn c¸c chøc n¨ng ®å ho¹ cÇn sö dông c¸c thñ tôc, hµm trong th­ viÖn GRAPH. Thñ tôc♠ ý nghÜa Initgraph(drive,mode,path) Khëi ®éng chÕ ®é ®å ho¹. Putpixel(x,y:integer,color: word) VÏ ®iÓm t¹i to¹ ®é x,y cã mµu color. Line(x1,y1,x2,y2: integer) VÏ ®o¹n th¼ng cã to¹ ®é hai ®Çu mót lµ (x1,y1),(x2,y2). Circle(x,y:integer,r:word) VÏ ®­êng trßn t©m (x,y) b¸n kÝnh r. Ellipse(x,y:integer,gd,gc,Rx,Ry:word) VÏ cung elip t©m t¹i ®iÓm(x,y), b¸n kÝnh c¸c trôc Rx,Ry tõ gãc ®Çu(gd) ®Õn gãc cuèi(gc). Rectangle(x1,y1,x2,y2:integer) VÏ h×nh ch÷ nhËt cã to¹ ®é ®Ønh trªn bªn tr¸i (x1,y1) vµ ®Ønh d­íi bªn ph¶i (x2,y2). Mét sè thñ tôc, hµm trong th­ viÖn Graph c Unit System: Chøa c¸c hµm s¬ cÊp vµ thñ tôc vµo/ra. d Unit Dos: Chøa c¸c thñ tôc cho phÐp thùc hiÖn trùc tiÕp c¸c lÖnh t¹o th­ môc, thiÕt lËp ngµy giê. e Unit Print: Chøa c¸c thñ tôc lµm viÖc víi m¸y in. 2. Sö dông UNIT trong pascal USES unit1,unit2,.,unitN; Khai b¸o VÝ dô: USES Crt,Dos,Graph; H·y nhí! Mét sè th­ viªn chuÈn : Khai b¸o sö dông th­ viÖn - UNIT Crt; - UNIT Graph; - UNIT System; - UNIT Dos; - UNIT Print; USES unit1,unit2,.,unitN; trong pascal | Bµi 22 th­ viÖn ch­¬ng tr×nh con chuÈn Gi¸o ¸n ®iÖn tö tin häc líp 11 Mêi c¸c b¹n cïng xem c¸c ch­¬ng tr×nh sau: 1. Mét sè th­ viÖn ch­¬ng tr×nh con chuÈn cña Pascal (UNIT) a Unit CRT chøa c¸c thñ tôc liªn quan ®Õn mµn h×nh, bµn phÝm. VÝ dô: - Thñ tôc CLRSCR; - Thñ tôc TextColor(color); - Thñ tôc TextBackGround(color). b Unit Graph chøa c¸c thñ tôc liªn quan ®Õn chÕ ®é ®å ho¹ cña c¸c lo¹i mµn h×nh kh¸c nhau, cho phÐp thùc hiÖn c¸c thao t¸c ®å ho¹ c¬ b¶n. - Ch­¬ng tr×nh ®iÒu khiÓn ®å ho¹ n»m trong c¸c tÖp *.BGI - To¹ ®é mµn h×nh ®å ho¹ ®­îc ®¸nh tõ 0, cét tÝnh tõ tr¸i qua ph¶i, dßng ®­îc tÝnh tõ trªn xuèng d­íi. - §Ó thùc hiÖn c¸c chøc n¨ng ®å ho¹ cÇn sö dông c¸c thñ tôc, hµm trong th­ viÖn GRAPH. Thñ tôc♠ ý nghÜa Initgraph(drive,mode,path) Khëi ®éng chÕ ®é ®å ho¹. Putpixel(x,y:integer,color: word) VÏ ®iÓm t¹i to¹ ®é x,y cã mµu color. Line(x1,y1,x2,y2: integer) VÏ ®o¹n th¼ng cã to¹ ®é hai ®Çu mót lµ (x1,y1),(x2,y2). Circle(x,y:integer,r:word) VÏ ®­êng trßn t©m (x,y) b¸n kÝnh r. Ellipse(x,y:integer,gd,gc,Rx,Ry:word) VÏ cung elip t©m t¹i ®iÓm(x,y), b¸n kÝnh c¸c trôc Rx,Ry tõ gãc ®Çu(gd) ®Õn gãc cuèi(gc). Rectangle(x1,y1,x2,y2:integer) VÏ h×nh ch÷ nhËt cã to¹ ®é ®Ønh trªn bªn tr¸i (x1,y1) vµ ®Ønh d­íi bªn ph¶i (x2,y2). Mét sè thñ tôc, hµm trong th­ viÖn Graph c Unit System: Chøa c¸c hµm s¬ cÊp vµ thñ tôc vµo/ra. d Unit Dos: Chøa c¸c thñ tôc cho phÐp thùc hiÖn trùc tiÕp c¸c lÖnh t¹o th­ môc, thiÕt lËp ngµy giê. e Unit Print: Chøa c¸c thñ tôc lµm viÖc víi m¸y in. 2. Sö dông UNIT trong pascal USES unit1,unit2,.,unitN; Khai b¸o VÝ dô: USES Crt,Dos,Graph; H·y nhí! Mét sè th­ viªn chuÈn : Khai b¸o sö dông th­ viÖn - UNIT Crt; - UNIT Graph; - UNIT System; - UNIT Dos; - UNIT Print; USES unit1,unit2,.,unitN; trong .