- Diễn giải: Biến tuso, mauso, A cú ảnh hưởng
1. Hoạt động 1:Tỡm hiểu thư viện CRT.
a. Mục tiờu:
HOẠT ĐỘNG CỦA GIÁO VIấN HOẠT ĐỘNG CỦA HỌC SINH
1. Tỡm hiểu thủ tục Clrscr.
- Yờu cầu học sinh nghiờn cứu sỏch giỏo khoa, kể tờn cỏc chương trỡnh con trong thư viện CRT.
- Chiếu chương trỡnh sau: Begin
clrscr; Readln;
1 Tham khảo sỏch giỏo khoa:
- Clrscr, textcolor, textbackground, gotoxy. - Quan sỏt chương trỡnh.
End.
- Biờn dịch chương trỡnh. Hỏi: Tại sao xuất hiện lỗi? Khắc phục như thế nào?
- Thờm Uses CRT; vào đầu chương trỡnh và thực hiện chương trỡnh để học sinh thấy kết quả. Chỳ ý cho học sinh ghi nhớ màn hỡnh trước lỳc thực hiện chương trỡnh này.
- Hỏi: Chức năng của thủ tục Clrscr; 2. Tỡm hiểu thủ tục textcolor.
- Chiếu chương trỡnh vớ dụ: Uses CRT;
Begin
Write(‘Chua dat mau chu’); textcolor(4);
Write(‘Da dat mau chu la do’); Readln;
End.
- Thực hiện chương trỡnh để học sinh thấy kết quả.
- Hỏi: Chức năng của lệnh textcolor(4); 3. Tỡm hiểu thủ tục Textbackground. - Chiếu chương trỡnh vớ dụ:
Uses CRT; Begin
Textbackground(1);
Writeln(‘Da dat lai mau nen’); Readln;
End.
- Thực hiện chương trỡnh để học sinh thấy kết
- Vỡ sử dụng thủ tục nhưng chưa sử dụng thư viện CRT.
- Thờm lệnh USES CRT;
- Quan sỏt giỏo viờn thực hiện chương trỡnh.
- Xúa màn hỡnh
- Quan sỏt chương trỡnh
- Quan sỏt kết quả chương trỡnh - Đặt màu chữ thành màu đỏ.
- Quan sỏt chương trỡnh
- Quan sỏt kết quả chương trỡnh
quả.
- Hỏi: Chức năng của lệnh textbackground(1); 4. Tỡm hiểu thủ tục gotoxy. - Chiếu chương trỡnh vớ dụ: Uses CRT;
Begin
Writeln(‘Con tro dang dung o cot 10 dong 20’);
Gotoxy(10,20); Readln;
End.
- Thực hiện chương trỡnh để học sinh thấy kết quả.
- Hỏi: Chức năng của lệnh gotoxy(10,20);
- Quan sỏt chương trỡnh
- Quan sỏt kết quả chương trỡnh - Đưa con trỏ về vị trớ cột 10 dũng 20.