thu vien chuan

NhiÖt liÖt Chµo mõng c¸c thÇy c« gi¸o tíi dù giê t¹i líp 11C1 KiÓm tra bµi cò Chµo mõng c¸c thÇy c« gi¸o tíi dù giê t¹i líp 12a 4 Đáp án - Thủ tục CLRSCR thực hiện xoá nội dung đang có trên màn hình. - Thủ tục này nằm trong thư viện CRT, cho nên sau tên chương trình phải khai báo : Uses CRT; 2. Thủ tục Clrscr thực hiện công việc gì? Thủ tục này nằm trong thư viện nào? Mỗi ngôn ngữ lập trình đều có một số lượng phong phú các chương trình con chuẩn (chương trình con thông dụng, đã được lập trình sẵn) trong các thư viện ! §19 M(x,y) x y cột (1-80) dòng (1-25) TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 1. CRT Chứa các thủ tục: - Xoá màn hình: Clrscr; - Đặt màu chữ: Textcolor(color); - Đặt màu nền chữ: Textbackground(color); - Đặt con trỏ ở vị trí (x,y): GotoXY(x,y); {chỉ số cột: 1≤x ≤ 80; chỉ số dòng 1 ≤ y ≤ 25} • Bài tập 1: Viết các câu lệnh thực hiện các việc sau: - Đặt nền màu xanh lá - Từ toạ độ (20,5), viết dòng chữ: “Truong THPT HONG NGU 3” với màu đỏ - Từ toạ độ (19,7), viết dòng chữ “THI DUA DAY TOT HOC TOT !” với màu vàng ? Thư viện CRT chứa các thủ tục liên quan đến việc quản lí và khai thác màn hình, bàn phím của máy tính. Minh họa Thư viện CRT chứa các thủ tục liên quan đến việc gì? Đó là những thủ tục nào? TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 2. GRAPH a) Các thiết bị và chương trình hỗ trợ đồ hoạ : (SGK trang 111) - Màn hình có 2 chế độ làm việc: + Chế độ văn bản: đơn vị cơ sở là kí tự trong ASCII (là chế độ mặc định của TP) + Chế độ đồ hoạ: đơn vị cơ sở là điểm ảnh (pixel) mỗi điểm ảnh được xác định bởi toạ độ (x,y) Thư viện CRT chứa các thủ tục liên quan đến chế độ đồ họa của các loại màn hình và các thao tác đồ họa cơ bản: vẽ điểm, đường, tô màu… - Tên gọi của 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, … M(x,y) x y 640 480 VGA Thư viện CRT chứa các thủ tục liên quan đến việc gì? TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 2. 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); (x1,y1) (x2,y2) Các thủ tục vẽ đoạn thẳng: Line(x1,y1,x2,y2: Integer); LineTo(x,y:integer); LineRel(dx,dy: integer); dx dy TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 2. GRAPH d) Các thủ tục và hàm liên quan đến vị trí con trỏ: Hàm xác định độ phân giải màn hình: GetMaxX:Integer; GetMaxY: Integer; Thủ tục chuyển con trỏ tới tọa độ (x, y); MoveTo(x, y:Integer); • Bài tập 2 (Thảo luận nhóm trong 3phút) -Thực hiện vẽ đoạn thẳng nối điểm A(60,40) và điểm B(80,75) bằng nhiều cách khác nhau? • Giải bài tập 2 {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 (x,y) Xr Yr TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 2. 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); Vẽ cung của 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); Vẽ hình chữ nhật: Rectangle(x1,y1,x2,y2:Integer); r O(x,y) (x1,y1) (x2,y2) VD: Circle(30,40,25); VD: Ellipse(90,45,60,150,36,25); VD: Rectangle (50,75,92,94); TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN 3. 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 tiếp các lệnh như tạo thư mục, thiết lập ngày giờ hệ thống,… Printer: Cung cấp các thủ tục làm việc với máy in. 4. Sö dông th viÖn Muốn sử dụng các thủ tục và hàm chuẩn của (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; TiÕt 48. §19- THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN cñng cè 1. CRT: - Clrscr; - Textcolor(color); - Textbackground(color); - GotoXY(x,y); 2. 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; [...]... graph; Var drive,mode:integer; BEGIN Setcolor(3); Circle(12,40,30); CloseGraph; END P N chng trỡnh b li vỡ cha khi to ch ho: Drive:=0; Initgraph(drive, mode, c:\Tp\BGI); bài tập về nhà - Hc k lý thuyt, thuc cỏc th tc, hm chun -Chun b ni dung Bi tp v thc hnh s 8 XEM P N 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 . chế độ đồ hoạ: Drive:=0; Initgraph(drive, mode, ‘c:TpBGI’); 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ố 8 XEM ĐÁP ÁN Kính