Mét sè th viÖn kh¸c: System: Chứa các hàm sơ cấp và các thủ tục vào/ra mà các chương trình đều dùng tới.nên không cần khai báo tên thư viện Dos: Chứa các thủ tục cho phép thực hiện trực[r]
(1)NhiÖt liÖt Chµo mõng c¸c thÇy c« gi¸o tíi dù giê t¹i líp 11a2 m«n: tin häc - Gi¸o viªn: Lop11.com Bïi Hång Nga (2) Chµo mõng c¸c thÇy c« gi¸o tíi dù giê t¹i líp 12a KiÓm tra bµi cò Thủ tục Clrscr thực công việc gì? Thủ tục này nằm thư viện nào? Đáp án - Thủ tục CLRSCR thực xoá nội dung có trên màn hình - Thủ tục này nằm thư viện CRT, cho nên sau tên chương trình phải khai báo : Uses CRT; Mỗi ngôn ngữ lập trình có số lượng phong phú các chương trình chuẩn (chương trình thông dụng, đã lập trình sẵn) các thư viện ! Lop11.com (3) §19 Lop11.com (4) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN CRT Chứa các thủ tục: - Xoá màn hình: Clrscr; - Đặt màu chữ: Textcolor(color); - Đặt màu chữ: Textbackground(color); - Đặt trỏ vị trí (x,y): GotoXY(x,y); {chỉ số cột: 1≤x ≤ 80; số dòng ≤ y ≤ 25} Thư viện CRT chứa Thư việntục CRT chứa các thủ liên các thủ tụcviệc liênquản quan đến quan lí và đến khaiviệc thácgì? màn Đó là thủcủa hình, bàn phím tục máynào? tính x cột (1-80) •Bài tập 1: Viết các câu lệnh thực các việc sau: - Đặt màu xanh lá y M(x,y) chữ: “Truong THPT - Từ toạ độ (20,5), viết dòng Phong Chau” với màu đỏ -Từ toạ độ (19,7), viết dòng chữ “THI DUA DAY TOT dòng HOC TOT !”(1-25) với màu vàng ? Minh họa Lop11.com (5) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN GRAPH a) Các thiết bị và chương trình hỗ trợ đồ hoạ : (SGK trang 111) - Màn hình có chế độ làm việc: + Chế độ văn bản: đơn vị sở là kí tự ASCII (là chế độ mặc định TP) + Chế độ đồ hoạ: đơn vị sở là điểm ảnh (pixel) điểm ảnh xác định toạ độ (x,y) x y 640 M(x,y) VGA 480 - Tên gọi bảng mạch điều khiển màn hình thường trùng với loại màn hình:VGA, SVGA, … Lop11.com Thư viện CRT chứa các thủ tục liên quan đồ Thư đến việnchế CRTđộ chứa họa cáccủa thủ các tục loại liên màn hình cácgì? quan đếnvà việc thao tác đồ họa bản: vẽ điểm, đường, tô màu… (6) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN GRAPH b) Khởi tạo chế độ đồ hoạ - Thủ tục khởi tạo: InitGraph(var driver, mode:integer; path:string); Thông thường: Driver:=0; Initgraph (driver, mode, ‘C:\Tp\BGI’); - Thủ tục kết thúc: CloseGraph; c) Các thủ tục vẽ điểm, đoạn thẳng Đặt màu cho nét vẽ: Setcolor(color: word); VD: Setcolor(blue); Vẽ điểm: Putpixel(x,y:Integer; color: word); Các thủ tục vẽ đoạn thẳng: Line(x1,y1,x2,y2: Integer); LineTo(x,y:integer); LineRel(dx,dy: integer); (x2,y2) (x1,y1) dx dy Lop11.com (7) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN GRAPH d) Các thủ tục và hàm liên quan đến vị trí trỏ: Hàm xác định độ phân giải màn hình: GetMaxX:Integer; GetMaxY: Integer; Thủ tục chuyển trỏ tới tọa độ (x, y); MoveTo(x, y:Integer); •Bài tập (Thảo luận nhóm 3phút) -Thực vẽ đoạn thẳng nối điểm A(60,40) và điểm B(80,75) nhiều cách khác nhau? •Giải bài tập {Cách 1:} Line(60,40,80,75); {Cách 2:} Moveto(60,40); Lineto(80,75); {Cách 3:} Moveto(60,40); LineRel(20,35); ĐÁP ÁN Lop11.com (8) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN GRAPH e) Một số thủ tục vẽ hình đơn giản: Vẽ đường tròn tâm (x,y) bán kính r: Circle(x, y:integer; r: word); VD: Circle(30,40,25); Vẽ cung Elip tâm (x,y), bán kính trục Xr, Yr, từ góc khởi đầu StAngle đến góc kết thúc EndAngle: Ellipse(x,y:integer;stAngle, EndAngle,Xr, Yr: word); Yr (x,y) Xr (x1,y1) VD: Ellipse(90,45,60,150,36,25); Vẽ hình chữ nhật: Rectangle(x1,y1,x2,y2:Integer); VD: Rectangle (50,75,92,94); Lop11.com (x2,y2) (9) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN Mét sè th viÖn kh¸c: System: Chứa các hàm sơ cấp và các thủ tục vào/ra mà các chương trình dùng tới.(nên không cần khai báo tên thư viện) Dos: Chứa các thủ tục cho phép thực trực tiếp các lệnh tạo thư mục, thiết lập ngày hệ thống,… Printer: Cung cấp các thủ tục làm việc với máy in Sö dông th viÖn Muốn sử dụng các thủ tục và hàm chuẩn (một số) thư viện nào đó (trừ System) phải dùng lệnh khai báo: Uses unit1, unit2, …,unitN; VD: Uses CRT, graph, frinter; Lop11.com (10) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN cñng cè CRT: - Clrscr; - Textbackground(color); - Textcolor(color); - GotoXY(x,y); GRAPH: * InitGraph(var driver, mode:integer; path:string); -Setcolor(color: word); - Putpixel(x,y:Integer; color: word); - Line(x1,y1,x2,y2: Integer); - LineTo(x,y:integer); - LineRel(dx,dy: integer); - GetMaxX:Integer; - GetMaxY: Integer; - MoveTo(x, y:Integer); - Circle(x, y:integer; r: word); - Ellipse(x,y:integer;stAngle, EndAngle,Xr, Yr: word); - Rectangle(x1,y1,x2,y2:Integer); * CloseGraph; Lop11.com (11) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN cñng cè •Bài tập 3: Cho biết kết chương trình sau? Uses graph; Var drive,mode:integer; BEGIN Drive:=0; Initgraph(drive, mode, ‘C:\Tp\BGI’); Setcolor(3); Circle(112,40,30); Setcolor(14); Ellipse(50,90,0,360,30,20); Setcolor(5); Rectangle(151,150,201,200); Readln; CloseGraph; XEM END ĐÁP ÁN Lop11.com ĐÁP ÁN - đường tròn màu xanh lơ - hình elip màu vàng - hình vuông màu tím Minh họa (12) TiÕt 48 §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN cñng cè •Bài tập 4: Cho biết kết chương trình sau? Uses graph; Var drive,mode:integer; BEGIN Setcolor(3); Circle(12,40,30); CloseGraph; END ĐÁP ÁN chương trình bị lỗi vì chưa khởi tạo chế độ đồ hoạ: Drive:=0; Initgraph(drive, mode, ‘c:\Tp\BGI’); bµi tËp vÒ nhµ - Học kĩ lý thuyết, thuộc các thủ tục, hàm chuẩn -Chuẩn bị nội dung Bài tập và thực hành số XEM ĐÁP ÁN Lop11.com (13) KÝnh chóc c¸c thÇy gi¸o, c« gi¸o m¹nh khoÎ, c«ng t¸c tèt ! chóc c¸c em häc sinh m¹nh khoÎ, häc tËp tiÕn bé ! Xin tr©n träng c¶m ¬n ! m«n: tin häc - Gi¸o viªn: Lop11.com Bïi Hång Nga (14)