- Kiến thức: Kiểm tra kiến thức hs về câu lệnh lặp, lặp với số lần chưa biết trước, làm việc với dãy số
- Kỹ năng: HS vận dụng kiến thức vào làm bài thực hành - Thái độ: Nghiêm túc làm bài
II/ CHUẨN BỊ:
- Giáo viên: Giáo án, bài kiểm tra, phòng máy - Học sinh: Chuẩn bị bài trước khi lên lớp.
III/ TIẾN TRÌNH LÊN LỚP
*Kiểm tra bài cũ .
- Kiểm tra sự chuẩn bị của học sinh .
*Bài mới:
Ma trận
Nội dung Mức độ
Nhận biết Thông hiểu Vận dụng Tổng
Câu lệnh lặp Câu 2 ý 2;3
3®
2
3 ®
Lặp với số lần cha biết trớc Câu 1 1
5®
Làm việc với dãy số Câu 2 ý 1,4 2
2 ®
Tổng 5
10đ
Câu 1: Viết chương trình nhập vào 2 số a và b kiểu nguyên. Kiểm tra nếu a>b nhập lại a sau đó tính tổng a+b và tích a-b rồi hiển thị ra màn hình.
Câu 2 : Nhập vào dãy số gồm n số, n được nhập từ bàn phím sau đó đếm xem có bao nhiêu số 5 trong dãy số rồi hiển thị ra màn hình.
áp án+ thang i m v h ng d n ch m.
Đ đây mô tả lệnh gán giá trị và tính toán ểu dữ liệu cơ bản ài mới ưới ẫn chấm. ấm.
Câu Nội dung Điểm
1 Program B1 ; Uses CRT;
1
Var
a,b: integer;
Begin Clrscr;
write(‘ nhap a=: '); Readln(a);
write(‘ nhap b=: '); Readln(b);
1,5 while a>b do
Begin
write(‘ nhap lai a=: ');
Readln(a);
End;
1.5 writeln(' Tong can tim la: ', a+b);
writeln(' Tich can tim la: ', a*b);
Readln;
End.
1
2
Làm đúng cho 5 điểm Program B2; 1
Var i,n,dem: byte;
a:array [1..100] of integer;
Begin
dem:=0;
Write(‘nhap vao n=’); readln(n);
For i:=1 to n do Begin
Write (‘a[‘,i,’]=’); readln(a[i]);
End;
1.5
For i:=1 to n do if a[i] =5 then Dem:=dem+1;
End; 1.5
Writeln(' so lan xuat hien so 5 la ', dem);
Readln; End. 1
IV/ TỔNG KẾT, ĐÁNH GIÁ * Kiểm tra, đánh giá :
- Giáo viên chấm bài thực hành của học sinh - Nhận xét bài kiểm tra
* HDVN :
- Về nhà làm lại bài này vào vở,
- Chúng ta ôn tập chuẩn bị tiết sau ôn tập học kỳ II.
Ngày dạy: 17/04/2014
TiÕt 63:
ôn tập (T1) I.Mục tiêu:
- Kiến thức:Củng cố lại toàn bộ kiến thức đã đợc học từ bài 5 đến bài 9 - Kỹ năng: Thực hiện làm các bài trắc nghiệm. Vận dụng vào để viết đợc những chơng trình đơn giản
- Thái độ: Nghiêm túc, ham học hỏi chơng trình trên máy tính.
II. Chuẩn bị:
- Giáo viên:Sách giáo khoa, giáo án, máy tính, máy chiếu - Học sinh: Ôn lại bài đã học.
IIITiến trình lên lớp:
* Kiểm tra bài cũ:
* Bài mới:
Hoạt động của giáo viên và học sinh Nội dung ghi bảng
* Hoạt động 1: Lý thuyết
- GV: Đưa ra các câu hỏi và gọi học sinh lên bảng trả lời.
+ Viết cú pháp câu lệnh điều kiện + Cú pháp vòng lặp xác định
+ Cú pháp vòng lặp không xác định + Cú pháp khai báo biến mảng - GV: Gọi hs lên bảng
- HS: Trả lời
- GV: Nhận xét, tổng kết
* Hoạt động 2: Bài tập - GV: trình chiếu bài tập
Bài 1: : Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu? Tại sao?
j:= 0;
for i := 0 to 5 do j := j+2;
- Gv: gọi hs lên bảng làm - HS: Trả lời
- GV: nhận xét
Câu 2: Lệnh lặp nào sau đây là đúng?
A. For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu
I - Lý thuyÕt
* Cú pháp câu lệnh điều kiện If (điều kiện) then (câu lênh);
- dạng đầy đủ
If (điều kiện) then (câu lênh 1) Else (câu lệnh 2)
* Cú pháp vòng lặp xác định
For (biến đếm):=(giá trị đầu) to (giá tri cuối) do (câu lệnh);
* Cú pháp vòng lặpkhông xác định While (điều kiện) do (câu lệnh);
*Cú pháp khai báo biến mảng
Var Tên mảng: Array[(chỉ số đầu)...(chỉ số cuối)] of (kiểu dữ liệu);
II- Bài tập
Bài 1: : Đỏp ỏn j=12;
Bài 2: : Đỏp ỏn B
leọnh>;
B. For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu leọnh>;
C. For <biến đếm>:= <giá trị cuôí> to <giá trị đầu> do <câu leọnh>;
D. For <biến đếm>: <giá trị đầu> to <câu lệnh> do <giá trị cuoái>;
- Gv: gọi 4 hs lên bảng làm - HS: lên bảng làm
- GV: nhận xét
Bài 3 : Cỏc khai bỏo móng sau đõy là đúng hay sai? Nếu sai hãy sửa lại cho đúng.
a) var X : Array [10, 13] of integer;
b) var X : Array [5..10. 5] of real;
c) var X : Array [3.4..4.8] of integer;
d) var X : Array [10.. 1] of integer;
e) var X : Array [4..10] of real;
- Gv: gọi 5 hs lên bảng làm - HS: lên bảng làm
- GV: nhận xét
Câu 4: Câu lệnh lặp while…do có dạng đúng là:
A) While <ủieàu kieọn> do; <caõu leọnh>; B) While <ủieàu kieọn> <caõu leọnh> do;
C) While <caõu leọnh> do <ủieàu kieọn>;
D) While <ủieàu kieọn> do <caõu leọnh>;
- Gv: gọi 4 hs lên bảng làm - HS: lên bảng làm
- GV: nhận xét cho điểm
Câu 5: Cho S và i là biến nguyên.
Khi chạy đoạn chương trình : s:=0;
for i:=1 to 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
A.11 B. 55 C. 101 D.15
Bài 3: Cỏc khai bỏo móng sau đõy là đỳng hay sai? Nếu sai hãy sửa lại cho đúng.
Đáp án
a) S-> var X : Array [10..13] of integer;
b) S->var X : Array [5..10] of real;
c) S-> var X : Array [4..8] of integer;
d) S->var X : Array [1..10] of integer;
e) S->var X : Array [4..10] of real;
Câu 4: Câu lệnh lặp while…do có dạng đúng là:
D) While <ủieàu kieọn> do <caõu leọnh>;
Câu 5: Cho S và i là biến nguyên.
Khi chạy đoạn chương trình : D.15
Caõu 6: Trong chửụng trỡnh pascal sau ủaõy
b) 5
- Gv: gọi hs lên bảng làm - HS: lên bảng làm
- GV: nhận xét cho điểm
Caõu 6: Trong chửụng trỡnh pascal sau ủaõy:
Var x : integer ; Begin
X:= 3 ;
If (45 mod 3) =0 then x:= x +2;
If x > 10 then x := x +10 ; End.
X có giá trị là mấy
a) 3 b) 5
d)10