Giáo án Tin học 8 - Năm học 2013-2014 - Phùng Văn Kiệm

nh của chương trình. Nếu sử dụng hằng, khi cần thay đổi giá trị, ta chỉ cần chỉnh sửa một lần, tại nơi khai báo mà khơng phải tìm và sửa trong cả chương trình.
Cần lưu ý rằng ta khơng thể dùng câu lệnh để thay đổi giá trị của hằng (như đối với biến) ở bất kì vị trí nào trong chương trình. Ví dụ, đối với các hằng pi và bankinh đã khai báo ở trên, các câu lệnh gán sau đây trong chương trình là khơng hợp lệ:
pi:=3.1416;
bankinh:= bankinh+2;
4. Củng cố:
5. Hướng dẫn về nhà:
- Học bài theo vở ghi
Ngày soạn:01/10/2013
Ngày dạy:02/10/2013
Y13 	
BÀI THỰC HÀNH 3
KHAI BÁO VÀ SỬ DỤNG BIẾN
I. Mục tiêu bài học
- Kiến thức:
B­íc ®Çu lµm quen c¸ch khai b¸o vµ sư dơng biÕn trong ch­¬ng tr×nh
- Kỹ năng:
- Thành thạo thực hiện
- Thái độ:
-Tư duy và yêu thích mơn học
II. Phương pháp, phương tiện dạy học
1. Giáo viên:
Giáo án + Phịng máy +Tài liệu + Phấn + Bảng+
2. Học sinh
Đồ dùng học tập
III. Hoạt động dạy học
1. Tổ chức
Lớp
Sĩ số
Tên học sinh vắng
8A
8B
2. Kiểm tra bài cũ
Xen kẽ bài học
3. Bài mới
Hoạt động Thầy + trị
Nội dung
Giáo viên chia lớp thành 3 nhĩm/ 3 dãy.
Mỗi máy từ 2 "3 học sinh
Giáo viên hướng dẫn các kiếu dữ liệu trong Pascal
Học sinh thực hiện trong vở 
Học sinh thực hiện
Giáo viên kiểm tra
Khởi động Turbo Pascal 
Thực hiện đoạn chương trình sau vào máy
Học sinh thực hiện
Giáo viên kiểm tra
Giáo viên nêu một số lưu ý khi thực hiện chương trình Pascal 
Gỵi ý: C«ng thøc cÇn tÝnh: 
TiỊn thanh to¸n = §¬n gi¸ ´ Sè l­ỵng + PhÝ dÞch vơ
Học sinh thực hiện
Giáo viên kiểm tra
Ch¹y ch­¬ng tr×nh víi c¸c bé d÷ liƯu (®¬n gi¸ vµ sè l­ỵng) nh­ sau (1000, 20), (3500, 200), (18500, 123). KiĨm tra tÝnh ®ĩng cđa c¸c kÕt qu¶ in ra.
Ch¹y ch­¬ng tr×nh víi bé d÷ liƯu (1, 35000). Quan s¸t kÕt qu¶ nhËn ®­ỵc. H·y thư ®o¸n lÝ do t¹i sao ch­¬ng tr×nh cho kÕt qu¶ sai.
A. Tổ chức
- Ổn định chỗ ngồi trong phịng máy
-Kiểm tra an tồn điện, an tồn thiết bị.
B. Thực hành
I. Khởi động máy
II. Nội dung
T×m hiĨu c¸c kiĨu d÷ liƯu trong Pascal vµ c¸ch khai b¸o biÕn víi c¸c kiĨu d÷ liƯu:
Tªn kiĨu d÷ liƯu
Ph¹m vi gi¸ trÞ
Byte
C¸c sè nguyªn
tõ 0 ®Õn 255.
Integer
C¸c sè nguyªn tõ -215 ®Õn 215 - 1.
Real
Sè thùc cã gi¸ trÞ tuyƯt ®èi trong kho¶ng 2,9´10-39 ®Õn 1,7´1038 vµ sè 0.
Char
C¸c kÝ tù trong b¶ng ch÷ c¸i.
String
C¸c d·y gåm tèi ®a 255 kÝ tù.
Cĩ ph¸p khai b¸o biÕn:
var : ; 
trong ®ã:
- danh s¸ch biÕn lµ danh s¸ch mét hoỈc nhiỊu tªn biÕn vµ ®­ỵc c¸ch nhau bëi dÊu phÈy (,).
- kiĨu d÷ liƯu lµ mét trong c¸c kiĨu d÷ liƯu cđa Pascal.
VÝ dơ:
var X,Y: byte;
var So_nguyen: integer; 
var Chieu_cao, Can_nang: real; 
var Ho_va_Ten: string; 
Bµi 1. ViÕt ch­¬ng tr×nh Pascal cã khai b¸o vµ sư dơng biÕn.
Bµi to¸n: Mét cưa hµng cung cÊp dÞch vơ b¸n hµng thanh to¸n t¹i nhµ. Kh¸ch hµng chØ cÇn ®¨ng kÝ sè l­ỵng mỈt hµng cÇn mua, nh©n viªn cưa hµng sÏ tr¶ hµng vµ nhËn tiỊn thanh to¸n t¹i nhµ kh¸ch hµng. Ngoµi trÞ gi¸ hµng ho¸, kh¸ch hµng cßn ph¶i tr¶ thªm phÝ dÞch vơ. H·y viÕt ch­¬ng tr×nh Pascal ®Ĩ tÝnh tiỊn thanh to¸n trong tr­êng hỵp kh¸ch hµng chØ mua mét mỈt hµng duy nhÊt.
Khëi ®éng Pascal. Gâ ch­¬ng tr×nh sau vµ t×m hiĨu ý nghÜa cđa tõng c©u lƯnh trong ch­¬ng tr×nh:
program Tinh_tien;
uses crt;
var
 soluong: integer; 
 dongia, thanhtien: real; 
 thongbao: string;
const phi=10000;
begin
 clrscr;
 thongbao:='Tong so tien phai thanh toan : ';
 {Nhap don gia va so luong hang}
 write('Don gia = '); readln(dongia);
 write('So luong = ');readln(soluong); 
 thanhtien:= soluong*dongia+phi;
 (*In ra so tien phai tra*)
 writeln(thongbao,thanhtien:10:2);
 readln
end. 
L­u ch­¬ng tr×nh víi tªn TINHTIEN.PAS. DÞch vµ chØnh sưa c¸c lçi gâ, nÕu cã.
4. Củng cố:
- Nhận xét giờ thực hành, đánh giá và cho điểm học sinh.
- Nhấn mạnh những kiến thực mà học sinh chưa tiếp thu để thực hành được
5. Hướng dẫn về nhà:
- Học bài theo vở ghi.
- Làm lại các thao tác trên
Ngày soạn:07/10/2013
Ngày dạy:08/10/2013
Y14 	
BÀI THỰC HÀNH 3
KHAI BÁO VÀ SỬ DỤNG BIẾN
I. Mục tiêu bài học
- Kiến thức:
B­íc ®Çu lµm quen c¸ch khai b¸o vµ sư dơng biÕn trong ch­¬ng tr×nh
- Kỹ năng:
- Thành thạo thực hiện
- Thái độ:
-Tư duy và yêu thích mơn học
II. Phương pháp, phương tiện dạy học
1. Giáo viên:
Giáo án + Phịng máy +Tài liệu + Phấn + Bảng+
2. Học sinh
Đồ dùng học tập
III. Hoạt động dạy học
1. Tổ chức
Lớp
Sĩ số
Tên học sinh vắng
2. Kiểm tra bài cũ
Xen kẽ bài thực hành
3. Bài mới
Hoạt động Thầy + trị
Nội dung
Giáo viên chia lớp thành 3 nhĩm/ 3 dãy.
Mỗi máy từ 2 "3 học sinh
Khởi động Turbo Pascal 
Thực hiện đoạn chương trình sau vào máy
Học sinh thực hiện
Giáo viên kiểm tra
Giáo viên nêu một số lưu ý khi thực hiện chương trình Pascal 
Học sinh thực hiện
Giáo viên kiểm tra
Giáo viên tổng kết lại kiến thức trọng tâm của bài học.
Học sinh phát biểu và lắng nghe
A. Tổ chức
- Ổn định chỗ ngồi trong phịng máy
-Kiểm tra an tồn điện, an tồn thiết bị.
B. Thực hành
I. Khởi động máy
II. Nội dung
Bµi 2. Thư viÕt ch­¬ng tr×nh nhËp c¸c sè nguyªn x vµ y, in gi¸ trÞ cđa x vµ y ra mµn h×nh. Sau ®ã ho¸n ®ỉi c¸c gi¸ trÞ cđa x vµ y råi in l¹i ra mµn h×nh gi¸ trÞ cđa x vµ y.
ch­¬ng tr×nh sau:
program hoan_doi;
var x,y,z:integer;
begin
read(x,y);
writeln(x,' ',y);
z:=x;
x:=y;
y:=z;
writeln(x,' ',y);
readln
end.
TỉNG KÕT
Cĩ ph¸p khai b¸o biÕn trong Pascal: 
var : ;
	trong ®ã danh s¸ch biÕn gåm tªn c¸c biÕn vµ ®­ỵc c¸ch nhau bëi dÊu phÈy. 
Cĩ ph¸p lƯnh g¸n trong Pascal:
:= 
LƯnh read() hay readln(), trong ®ã danh s¸ch biÕn lµ tªn c¸c biÕn ®· khai b¸o, ®­ỵc sư dơng ®Ĩ nhËp d÷ liƯu tõ bµn phÝm. Sau khi nhËp d÷ liƯu cÇn nhÊn phÝm Enter ®Ĩ x¸c nhËn. NÕu gi¸ trÞ nhËp vµo v­ỵt qu¸ ph¹m vi cđa biÕn, nãi chung kÕt qu¶ tÝnh to¸n sÏ sai.
Néi dung chĩ thÝch n»m trong cỈp dÊu { vµ } bÞ bá qua khi dÞch ch­¬ng tr×nh. C¸c chĩ thÝch ®­ỵc dïng ®Ĩ lµm cho ch­¬ng tr×nh dƠ ®äc, dƠ hiĨu. Ngoµi ra cã thĨ sư dơng cỈp c¸c dÊu (* vµ *) ®Ĩ t¹o chĩ thÝch.
4. Củng cố:
- Nhận xét giờ thực hành, đánh giá và cho điểm học sinh.
- Nhấn mạnh những kiến thực mà học sinh chưa tiếp thu để thực hành được
5. Hướng dẫn về nhà:
- Học bài theo vở ghi.
- Làm lại các thao tác trên
Ngày soạn:08/10/2013
Ngày dạy:09/10/2013
Y15 	
BÀI TẬP
I. Mục tiêu bài học
- Kiến thức:
Häc sinh biÕt gi¶i c¸c bµi tËp vỊ ch­¬ng tr×nh m¸y tÝnh vµ d÷ liƯu qua c¸c bµi tËp cđa bµi 3 ë s¸ch gi¸o khoa.
- Kỹ năng:
Häc sinh biÕt gi¶i c¸c bµi tËp vỊ sư dơng biÕn trong ch­¬ng tr×nh qua c¸c bµi tËp cđa bµi 4 ë s¸ch gi¸o khoa.viÕt ch­¬ng tr×nh trªn giÊy ®Ĩ viÕt ®­ỵc vµo m¸y tÝnh.
- Thái độ:
-Tư duy và yêu thích mơn học
II. Phương pháp và phương tiện
1. Phương pháp
Vấn đáp và thuyết trình
2. Giáo viên:
Giáo án + Phịng máy +Tài liệu + Phấn + Bảng+
3. Học sinh
Đồ dùng học tập
III. Hoạt động dạy học
1. Tổ chức
Lớp
Sĩ số
Tên học sinh vắng
2. Kiểm tra bài cũ
Xen kẽ bài tập
3. Bài mới
Hoạt động Thầy + trị
Nội dung
Cho häc sinh lµm bµi 6; 7 s¸ch gi¸o khoa trang 26.
2 häc sinh lªn b¶ng lµm.
C¶ líp lµm vë.
Gäi häc sinh nhËn xÐt, gio¸ viªn nhËn xÐt l¹i cho häc sinh vµ chèt c¸c ®iỊu cÇn nhí ch­¬ng tr×nh vµ d÷ liƯu cđa m¸y tÝnh.
Cho häc sinh lµm bµi 5; 6 s¸ch gi¸o khoa trang 33.
2 häc sinh lªn b¶ng lµm.
C¶ líp lµm vë.
Gäi häc sinh nhËn xÐt, gio¸ viªn nhËn xÐt l¹i cho häc sinh vµ chèt c¸c ®iỊu cÇn nhí vỊ sư dơng biÕn trong ch­¬ng tr×nh..
Bµi 6. KÕt qu¶ cđa c¸c phÐp so s¸nh:
a) §ĩng;	 b) Sai;
c) §ĩng;
d) §ĩng khi x > 2.5; ng­ỵc l¹i, phÐp so s¸nh cã kÕt qu¶ sai.
Bµi 7: 
a) 15-8>=3; b) (20-15)*(20-15)25; 
c) 11*11=121; d) x>10-3*x.
Bµi 5: 
 C¸c lçi trong ch­¬ng tr×nh: (1) Thõa dÊu b»ng ë dßng 1 (chØ cÇn dÊu hai chÊm); (2) Thõa dÊu hai chÊm ë dßng 2 (víi h»ng chØ cÇn dÊu b»ng); (3) ThiÕu dÊu chÊm phÈy ë dßng 4; (4) Khai b¸o kiĨu d÷ liƯu cđa biÕn b kh«ng phï hỵp: Khi chia hai sè nguyªn, kÕt qu¶ lu«n lu«n lµ sè thùc, cho dï cã chia hÕt hay kh«ng. Do ®ã cÇn ph¶i khai b¸o biÕn b lµ biÕn cã kiĨu d÷ liƯu sè thùc.
Bµi 6:
a) Ch­¬ng tr×nh Pascal tÝnh chu vi vµ diƯn tÝch h×nh trßn.:
uses crt;
var r: integer; C,S: real;
begin
clrscr;
write('Nhap ban kinh r = '); readln(r);
C:=2*Pi*r;
S:=Pi*r*r;
writeln('Chu vi duong tron bang ',C:8:2);
writeln('Dien tich hinh tron bang ',S:8:2);
end.
b) TÝnh diƯn tÝch tam gi¸c biÕt c¹nh ®¸y vµ ®­êng cao.
uses crt;
var a, h: integer; S: real;
begin
clrscr;
write('Nhap duong cao h = '); readln(h); 
write('Nhap day tam giac a = '); readln(a);
 S:=(a*h)/2;
writeln('Dien tich hinh tam giac S= ',S:8:2);
end.
4. Củng cố:
- Nhận xét giờ thực hành, đánh giá và cho điểm học sinh.
- Nhấn mạnh những kiến thực mà học sinh chưa tiếp thu để thực hành được
5. Hướng dẫn về nhà:
- Học bài theo vở ghi.
- Làm lại các thao tác trên
Ngày soạn:15/10/2013
Ngày dạy:16/10/2013
Y16 	
KIỂM TRA 1 TIẾT
I. Mục tiêu bài học
- Kiến thức:
§¸nh gi¸ viƯc häc tËp, tiÕp thu cđa häc sinh qua 4 bµi lý thuyÕt vµ 2 bµi thùc hµnh cđa häc sinh ®· ®­ỵc häc.
- Kỹ năng:
C¸ch viÕt mét ch­¬ng trªn giÊy ®Ĩ lµm t­ liƯu viÕt trªn m¸y khi lµm viƯc víi n«n ng÷ lËp tr×nh Pascal.
- Thái độ:
Yªu thÝch m«n häc vµ tr×nh bµi bµi kiĨm tra s¹ch, gän vµ khoa häc
II. Đồ dùng dạy học tư liệu và phương pháp
1. Giáo viên:
Giáo án + Phịng máy +Tài liệu + Phấn + Bảng+
Phương pháp thi viết
2. Học sinh
Đồ dùng học tập
III. Hoạt động dạy học
1. Tổ chức
Lớp
Sĩ số
Tên học sinh vắng
2. Kiểm tra bài cũ
3. Bài mới
Hä tªn:.
Líp: 8 ..
®Ị kiĨm tra 45 phĩt
M«n: Tin häc Khèi: 8
I/ PhÇn tr¾c nghiƯm kh¸ch quan: 
	Khoanh trßn vµo ch÷ c¸i ®øng ®Çu c©u mµ em cho lµ ®ĩng.
C©u 1: Tªn nµo sau ®©y lµ tªn hỵp lƯ trong ng«n ng÷ Pascal ?
A: Tamgiac;
B: Tam;giac;
C: 3 tam giac;
D: Tam_ - giac;
C©u 2: Ch­¬ng tr×nh nµo sau ®©y lµ ch­¬ng tr×nh hỵp lƯ ? 
A: Uses Crt;
Begin Program CT_Thu;
 Write(‘Chao cac ban. ‘);
End.
B: Begin
 Uses Crt;
 Write(‘Chao cac ban. ‘);
End.
C: Begin 
 Uses Crt;
 Program CT_Thu;
 Write(‘Chao cac ban. ‘);
End.
D: Program CT_Thu;
 Uses Crt;
 Begin
 Write(‘Chao cac ban. ‘);
 End.
C©u 3: BiĨu thøc nµo sau ®©y khi viÕt trong Pascal ta kh«ng viÕt ®­ỵc biĨu thøc ®ã.
A: (a