TuÇn 17 TiÕt 33: «n tËp I/Mục đích, yêu cầu: Kiến thức: Củng cố kiến thức về kiểu dữ liệu, sử dụng biến trong chương trình, cấu trúc c©u lÖnh ®iÒu kiÖn.. Kĩ năng: Viết đúng các lệnh, thà[r]
Trang 1
Tuần 17
Tiết 33: ôn tập I/Mục đích, yêu cầu:
Kiến thức: Củng cố kiến thức về kiểu dữ liệu, sử dụng biến trong chương trình, cấu trúc câu lệnh điều kiện
2 Kĩ năng: Viết đúng các lệnh, thành thạo trong việc khai báo biến, sử dụng câu lệnh
điều kiện chính xác
3 Thái độ: Giáo dục tính kiên trì say mê trong học tập
II/ Chuẩn bị của học sinh và giáo viên:
GV: Bài tập
HS: nghiên cứu trước bài
III/ Tiến trình dạy học:
1 Bài mới:
Hoạt động 1: Đọc bài toán, tìm lỗi.
Đọc bài toán
Liệt kê các lỗi có trong chương trình và
chữa lại cho đúng
Var a:= integer;
b: Real;
Const c:= 3;
Begin
a := 200
b= a/c;
Writr(b)
Readln
End
- Gọi HS lên bảng làm
Bài 2:
Sau mỗi cõu lệnh sau đõy
a) IF ( 45 mod 3) = 0 then
X:= X + 1;
b) IF x > 10 then
X:= X + 1;
Giỏ trị của biến X là bao nhiờu, nếu
Bài 1: Chữa lại Var a: integer;
b: Real;
Const c= 3;
Begin
a := 200;
b:= a/c;
Writr(b);
Readln End
a) Giỏ trị của biến X = 6 b) Giỏ trị của biến X = 5
Trang 2
2 Củng cố:
Ôn các nội dung đã học và xem lại các bài tập đã giải
- Chuẩn bị tiết sau kiểm tra thực hành (1tiết)
Tiết 34: Kiểm tra thực hành I/Mục đích, yêu cầu:
- KT: Học sinh tái hiện lại những kiến thức về cấu trúc chung của 1 chương trình
- KN: Học sinh chữa lỗi của một chương trình, dịch chương trình và chạy chương trình
- Thái độ: Nghiêm túc trong thực hành và quản lý phòng máy
II/ Đề ra:
đề 1
Dịch và chạy chương trình sau, sau đó lưu lại với tên của mình (VD: NAM8_1):
Pogram S Hinh_Tron;
Var R:= Integer;
trước đú giỏ trị của X bằng 5?
Hoạt động 2: Viết chương trình
Viết chương trỡnh kiểm tra số nguyờn
dương A nhập từ bàn phỡm là số chẵn
hay số lẻ
- Cú bao nhiờu biến trong chương trỡnh?
- Làm thế nào để biết số nguyờn dương
A là số chẵn hay số lẻ
- Yờu cầu học sinh viết chương trỡnh
Cú 1 biến là biến A cú kiểu dữ liệu là Integer + Để kiểm tra số nguyờn dương A là số chẵn hay số lẽ, ta lấy số đú chia cho 2 và lấy phần
dư Nếu phần dư bằng 0 thỡ A là số chẵn, ngược lại A là sụ lẻ
+ Viết chương trỡnh theo sự hướng dẫn của giỏo viờn
Program Kiem_tra_so_chan_le;
Var A: Integer;
Begin Writeln(‘Nhap so A:’);
Readln(a);
If A mod 2 = 0 then Writeln(A,’la so chan’) Else Writeln(A,’la so le’);
Readln;
End.
Trang 3
S: Real;
Cnst PI := 3.14;
Begin
Write(Nhap ban kinh hinh tron R=: ') Readln(R);
If (R>0) then begin
S:= PI*RR;
Write('Dien tich hinh tron la: ' S);
end
Else (‘Ban nhap sai roi); readln
End
đề 2
Dịch và chạy chương trình sau, sau đó lưu lại với tên của mình (VD: NAM8_1):
Program Hoc luc;
Var a: Real;
Begin
Wrte(‘Nhap diem tong ket: ') Readln(a)
If (a<5) then writeln(‘Hay co len, ban hoc yeu roi’);
Ese If (a>5)and (a<=6.5) then writeln(‘Ban hoc trung binh’) Else If (a>=6.5)and (a<7,9) then writel(‘Ban hoc kha)
End
Đáp án - biểu điểm
Mỗi bài có 9 lỗi, chữa đúng mỗi lỗi cho 1 điểm
Lưu bài cho 1 điểm
Tổ chuyên môn ký duyệt ngày / 12 / 2009
TTCM
Nguyễn Thị An