Bài giảng Tiết 1: Khái niệm lập trình và ngôn ngữ lập trình

, hình chöõ nhaät. 3/ Thái độ: Rèn luyện cho học sinh đức tính chịu khó học hỏi, cẩn thận trong lúc làm việc. II. CHUẨN BỊ: Chuẩn bị của giáo viên: Giáo án, hình ảnh minh họa và máy tính. Chuẩn bị của học sinh: Đọc trước SGK. III. HOẠT ĐỘNG DẠY HỌC: Ổn định tình hình lớp: (1’) Kiểm tra bài cũ: (không kiểm tra bài cũ) Giảng bài mới: Thời gian Hoạt động của giáo viên Hoạt động của học sinh Nội dung bài giảng 20’ * Hoaït ñoäng 1: Tìm hieåu thö vieän CRT. 1. Tìm hieåu thuû tuïc Clrscr. - Yeâu caàu hoïc sinh nghieân cöùu saùch giaùo khoa, keå teân caùc chöông trình con trong thö vieän CRT. - Chieáu chöông trình sau: Begin Clrscr; Readln; End. - Bieân dòch chöông trình. Hoûi: Taïi sao xuaát hieän loãi? Khaéc phuïc nhö theá naøo? - Theâm Uses CRT; vaøo ñaàu chöông trình vaø thöïc hieän chöông trình ñeå hoïc sinh thaáy keát quaû. Chuù yù cho hoïc sinh ghi nhôù maøn hình tröôùc luùc thöïc hieän chöông trình naøy. - Hoûi: chöùc naêng cuûa thuû tuïc Clrscr; 2. Tìm hieåu thuû tuïc Clrscr; - Chieáu chöông trình ví duï: Uses CRT; Begin Write(‘Chua dat mau chu’); Textcolour(4); Write(‘Da dat mau chu la do’); Readln; End. - Thöïc hieän chöông trình ñeå hoïc sinh thaáy ñöôïc keát quaû. - Hoûi: Chöùc naêng cuûa leänh textcolor(4); 3. Tìm hieåu thuû tuïc Textbackground. - Chieáu chöông trình ví duï: Uses CRT; Begin Textbackground(1); Write(‘Da dat lai mau nen’); Readln; End. - Thöïc hieän chöông trình ñeå hoïc sinh thaáy keát quaû. - Hoûi: chöùc naêng cuûa leänh Textbackground(1); 4. Tìm hieåu thuû tuïc gotoxy. - Chieáu chöông trình ví duï: Uses CRT; Begin Write(‘Con tro dang dung o cot 10 dong 20’); Gotoxy(10,20); Readln; End. - Thöïc hieän chöông trình ñeå hoïc sinh thaáy keát quaû. - Hoûi: chöùc naêng caûu leänh Gotoxy(10,20); 1. Tham khaûo saùch giaùo khoa: - Clrscr, textcolor, textbackground, gotoxy. - Quan saùt chöông trình. - Vì söû duïng thuû tuïc nhöng chöa söû duïng thö vieän CRT. - Theâm leänh USES CRT; - Quan saùt giaùo vieân thöïc hieän chöông trình. - Xoùa maøn hình. 2. Tham khaûo saùch giaùo khoa: - Quan saùt chöông trình. - Quan saùt keát quaû chöông trình. - Ñaët maøu chöõ thaønh maøu ñoû. 3. Tham khaûo saùch giaùo khoa: - Quan saùt chöông trình. - Quan saùt keát quaû chöông trình. - Ñaët maøu chöõ neàn thaønh maøu xanh da trôøi. 4. Tham khaûo saùch giaùo khoa: - Quan saùt chöông trình. - Quan saùt keát quaû chöông trình. - Ñöa con troû veà vò trí coät 10 doøng 20. 1. Tìm hiểu thư viện CRT: Thö vieän CRT chöùa caùc thuû tuïc lieân quan ñeán vieäc quaûn lí vaø khai thaùc maøn hình vaø baøn phím. Thuû tuïc Clrscr: xoùa maøn hình. Thuû tuïc Textcolor(c): Ñaët maøu cho chöõ treân maøn hình, trong ñoù c laø haèng hoaëc bieán coù giaù trò nguyeân khoâng aâm ñeå xaùc ñònh maøu. Thuû tuïc Textbackground(c): Ñaët maøu cho neàn cuûa maøn hình. Thuû tuïc Gotoxy(x,y): Ñöa con troû ñeán vò trí coät x doøng y cuûa maøn hình vaên baûn. * Hoạt động 2: Tìm hiểu thư viện Graph 1. Yeâu caàu hoïc sinh nghieân cöùu saùch giaùo khoa ñeå traû lôøi caùc caâu hoûi: - Hoûi: caùc daïng döõ lieäu naøo coù theå ñöôïc hieån thò treân maøn hình? - Hoûi: Nhieäm vuï chính cuûa Card maøn hình? - Hoûi: Khi noùi maøn hình coù ñoä phaân giaûi 640x480 laø noùi ñeán ñieàu gì? 2. Ñöa ra caáu truùc chung cuûa thuû tuïc khôûi ñoäng ñoà hoïa. Initgraph(dr,md:integer; pth:string); - Giaûi thích caùc thoâng soá trong thuû tuïc cho hoïc sinh. - Cho hoïc sinh thaáy moät soá ví duï khôûi ñoäng ñoà hoïa. 3. Giôùi thieäu thuû tuïc trôû veà cheá ñoä vaên baûn Closegraph; - Yeâu caàu hoïc sinh khôûi ñoäng cheá ñoä ñoà hoïa vaø chuyeån veà cheá ñoä vaên baûn. 1. Tham khaûo saùch giaùo khoa ñeå traû lôøi. - Vaên baûn vaø hình aûnh. - Laøm caàu noái giöõa CPU vaø maøn hình khi theå hieän thoâng tin. - Laø noùi ñeán maøn hình coù 640 doøng vaø 480 coät. 2. Quan saùt vaø theo doõi daãn daét cuûa giaùo vieân. - Quan saùt giaùo vieân thöïc hieän. 3. Quan saùt vaø so saùnh giöõa hai cheá ñoä vaên baûn vaø ñoà hoïa. - Thay phieân nhau thöïc hieän vieäc chuyeån ñoåi giöõa hai cheá ñoä vaên baûn vaø ñoà hoïa. 2. Thư viện Graph: Thö vieän Graph chöùa caùc chöông trình con phuïc vuï khai thaùc khaû naêng ñoà hoaï cuûa maùy tính ôû möùc ñoä thoâng duïng nhö veõ ñieåm, ñöôøng, toâ maøu Caùc thieát bò vaø chöông trình hoã trôï ñoà hoïa: + Coù hai cheá ñoä maøn hình: Ñoà hoïa vaø vaên baûn. + Baûng maïch ñieàu khieån maøn hình laø thieát bò ñaûm baûo töông taùc giöõa boä xöû lí vaø maøn hình ñeå theå hieän caùc cheá ñoä phaân giaûi vaø maøu saéc. + Turbo Pascal cung caáp caùc chöông trình ñieàu khieån (coù phaàn môû roäng laø BGI) töông öùng vôùi caùc loaïi card ñoà hoïa. Khi khôûi ñoäng cheá ñoä ñoà hoïa caàn chæ ra ñöôøng daãn ñeán chöông trình naøy. + Toïa ñoä maøn hình ñoà hoïa ñöôïc ñaùnh soá töø 0. Coät ñöôïc ñaùnh soá töø phaûi sang traùi, doøng ñöôïc ñaùnh soá töø treân xuoáng döôùi. Giaù trò lôùn nhaát cuûa toïa ñoä doøng vaø toïa ñoä coät ñöôïc goïi laø ñoä phaân giaûi cuûa maøn hình. + Ñeå thöïc hieän ñöôïc chöùc naêng ñoà hoïa caàn söû duïng caùc thuû tuïc vaø haøm trong thö vieän Graph. Khôûi ñoäng cheá ñoä ñoà hoïa: Initgraph(dr,md:integer; pth:string); + dr: laø soá hieäu cuûa trình ñieàu khieån BGI. + md: laø soá hieäu cuûa ñoä phaân giaûi. + pth: laø ñöôøng daãn ñeán caùc teäp BGI. Keát thuùc cheá ñoä ñoà hoïa trôû veà cheá ñoä vaên baûn: Closegraph; Veõ ñieåm: Putpixel(x,y:integer; color:word); Veõ ñöôøng thaúng: Line(x1,y1,x2,y2:integer); Lineto(x,y:integer); Linerel(dx,dy:integer); Veõ hình troøn: Circle(x,y:integer; r:word); Veõ hình elip: Ellipse(x,y:integer; stangle,endangle,xr,yr:word); Veõ hình chöõ nhaät: Rectangle(x1,y1,x2,y2:integer); Ñaët maøu cho neùt veõ: Setcolor(word); 14’ * Hoạt động 3: Tìm hiểu một số thủ tục vẽ điểm, đường và các thủ tục. 1. Tìm hieåu thuû tuïc Putpixel - Chieáu caáu truùc chung cuûa thuû tuïc: Putpixel(x,y:integer; color:word); - Chieáu chöông trình ví duï: Uses graph; Begin Drive:=0; Initgraph(drive, mode, ‘c:\Tp\BGI’); Putpixel(12,40,15); Readln; End. - Thöïc hieän chöông trình ñeå HS thaáy keát quaû. - Hoûi: chöùc naêng cuûa thuû tuïc Putpixel. 2. Tìm hieåu thuû tuïc Line - Thöïc hieän chöông trình ñeå HS thaáy keát quaû. - Hoûi: Chöùc naêng cuûa thuû tuïc Line? 3. Tìm hieåu thuû tuïc Lineto. - Thöïc hieän chöông trình ñeå HS thaáy keát quaû. - Hoûi: chöùc naêng cuûa thuû tuïc Lineto? 4. Tìm hieåu thuû tuïc Linerel. - Chieáu caáu truùc chung cuûa thuû tuïc: Linerel(dx,dy:integer); - Hoûi: chöùc naêng cuûa thuû tuïc Linerel? 5. Tìm hieåu thuû tuïc Circle, Ellipse, Rectangle. - Thöïc hieän chöông trình ñeå HS thaáy keát quaû. - Hoûi: chöùc naêng cuûa caùc thuû tuïc Circle, Ellipse, rectangle. 6. Tìm hieåu thuû tuïc Setcolor. - Chieáu caáu truùc chung cuûa caùc thuû tuïc: Setcolor(m:word); - Chieáu chöông trình ví duï: Use graph Begin Drive:=0; Initgraph(drive, mode, ‘c:\Tp\BGI’); Circle(10,40,100); Setcolor(4); Circle(10,40,200); Readln; End. - Thöïc hieän chöông trình ñeå HS thaáy keát quaû. - Hoûi: Chöùc naêng cuûa thuû tuïc Lineto. 1. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Quan saùt chöông trình. - Quan saùt keát quaû cuûa chöông trình. - Veõ moät ñieåm coù maøu Color treân maøn hình taïi toïa ñoä (x,y). 2. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Quan saùt chöông trình. - Quan saùt keát quaû cuûa chöông trình. - Veõ moät ñöôøng thaúng töø ñieåm coù toïa ñoä (x1,y1) ñeán ñieåm coù toïa ñoä (x2,y2). 3. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Quan saùt chöông trình. - Quan saùt keát quaû cuûa chöông trình. - Veõ moät ñoaïn thaúng töø ñieåm hieän taïo ñeán ñieåm coù toïa ñoä (x,y). 4. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Veõ ñoaïn thaúng noái ñieåm hieän taïi vôùi ñieåm coù toïa ñoä baèng toïa ñoä ñieåm hieän taïi coäng vôùi dx, dy. 5. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Quan saùt chöông trình. - Quan saùt keát quaû cuûa chöông trình. + Circle: Veõ moät ñöôøng troøn coù taâm taïi (x,y) vaø baùn kính r. + Ellipse: Veõ cung cuûa ellipse coù taâm taïi ñieåm x,y vôùi caùc baùn kính truïc xr, yr, töø goùc khôûi ñaàu stangle ñeán goùc keát thuùc endangle. 6. Quan saùt caáu truùc chung vaø suy nghó ñeå traû lôøi caâu hoûi. - Quan saùt chöông trình. - Quan saùt keát quaû cuûa chöông trình. - Setcolor(m:word): ñaët maøu cho neùt veõ vôùi maøu coù soá hieäu m. Veõ ñieåm: Putpixel(x,y:integer; color:word); Veõ ñöôøng thaúng: Line(x1,y1,x2,y2:integer); Lineto(x,y:integer); Linerel(dx,dy:integer); Veõ hình troøn: Circle(x,y:integer; r:word); Veõ hình elip: Ellipse(x,y:integer; stangle,endangle,xr,yr:word); Veõ hình chöõ nhaät: Rectangle(x1,y1,x2,y2:integer); Ñaët maøu cho neùt veõ: Setcolor(word); - Chieáu caáu truùc chung cuûa thuû tuïc: Line(x1,y1,x2,y2:integer); - Chieáu chöông trình ví duï treân nhöng thay leänh Putpixel(12,40,15); baèng leänh Line(1,1,20,20); - Chieáu caáu truùc chung cuûa thuû tuïc: Lineto(x,y:integer); - Chieáu chöông trình ví duï treân nhöng thay leänh Putpixel(12,40,15); baèng leänh lineto(20,20); - Chieáu caáu truùc chung cuûa caùc thuû tuïc: Circle(x,y:integer;r:word); Ellipse(x,y:integer; stangle,endangle,xr, yr :word); Rectangle(x1,y1,x2,y2:integer); - Chieáu chöông trình v1 duï: Use graph Begin Drive:=0; Initgraph(drive, mode, ‘c:\Tp\BGI’); Circle(12,40,30); Ellipse(50,50,30,120,50,100:word); Rectangle(100,100,200,200); Readln; End. Củng cố: (7’) - Đại diện mỗi máy trả lời kết quả hiển thị trên màn hình, nhận xét và trả lời câu hỏi của giáo viên. - HS: Traû lôøi tröôùc lôùp. Caùc nhoùm khaùc nhaän xeùt, goùp yù. - GV: Cho ñieåm. - Toång keát vaø trình chieáu caùc noäi dung ñaõ hoïc. Dặn dò học sinh chuẩn bị cho tiết học sau: (1’) Ôn tập để chuẩn bị kiểm tra thực hành. IV. RÚT KINH NGHIỆM, BỔ SUNG: