C. Tiến trình lên lớp:
4. Hớng dẫn về nhà: (2 ’
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
- Học kĩ lí thuyết, viết chơng trình tính tổng 100 số tự nhiên, N số tự nhiên đầu tiên.
Làm các bài tập cịn lại, tiết sau ơn tập tiếp.
Tuần 35: Ngày soạn :25/4/2011 Ngày dạy : Tiết 69: ơn tập học kì II A Mục tiêu:
• Củng cố lại tồn bộ kiến thức đã đợc học từ bài 5 đến bài 9 và phần mềm học tập ở học kỳ 2.
• 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
• Cĩ kỹ năng thành thạo thực hiện máy tính và viết chơng trình trên máy tính.
B. Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học cĩ liên quan. - Ơn tập bài ở nhà.
C. Tiến trình lên lớp:
1. ổn định lớp
2. Kiểm tra sự chuẩn bị của học sinh . 3. Bài mới:
Bài tập trắc nghiệm (20 )’
Cãu 9: Sau khi thửùc hieọn ủoán chửụng trỡnh j:= 0; for i:= 1 to 3 do j:=j+2; thỡ giaự trũ in ra maứn hỡnh laứ?
a) 4 b) 6 c) 8 d)10
Cãu 10: ẹeồ tớnh toồng S=1+3 + 5 + … + n; em chón ủoán leọnh:
a) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i; c) for i:=1 to n doif ( i mod 2) < > 0 then S:=S + i; b) for i:=1 to n do if ( i mod 2)=0 then S:=S + i Else S:= S + I; d) for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
Cãu 11: ẹeồ tớnh toồng S=1/2+1/4 + 1/6 + … +1/ n; em chón ủoán leọnh:
a) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i; c) for i:=1 to n doif ( i mod 2) < > 0 then S:=S + i;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S – 1/i Else S:= S + 1/i;
d) for i:=1 to n do
if ( i mod 2)=0 then S:=S +1/ i
Else S:=S-1/i;
Cãu 12: ẹeồ tớnh toồng S=1+1/3 + 1/5 + … +1/ n; em chón ủoán leọnh:
a) for i:=1 to n do
if ( i mod 2)=1 then S:=S + 1/i; c) for i:=1 to n doif ( i mod 2) =0 then S:=S + 1/i;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i Else S:= S + 1/;
d) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
Cãu 13: ẹeồ ủeỏm coự bao nhiẽu soỏ leỷ nhoỷ hụn hay baống n ; em chón ủoán leọnh:
a) for i:=1 to n do
if ( i mod 2)< >0 then S:=S + 1; c) for i:=1 to n doif ( i mod 2) =0 then S:=S + 1;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i ; d) for i:=1 to n doif ( i mod 2)=0 then S:=S + i;
Cãu 14: ẹeồ tớnh toồng S=1+2+3+ 4+ 5 + … + n; em chón ủoán leọnh:
a) s:=0; i:=0; While i<=n do S:=S + 1; a) s:=0; i:=0; While i<=n do If (I mod 2)= 1 Then S:=S 130
+ i; b) s:=0; i:=0; While i<=n do begin S:=S + i; I:=i+1; End; d) s:=0; i:=0; While i<=n do begin if (i mod2)=1 Then S:=S + i; Else i:=i+1; End;
Cãu 15: Cãu leọnh naứo sau ủãy laởp võ hán lần
a) s:=5; i:=0; While i<=s do s:=s + 1; a) s:=5; i:=1; While i<=s do i:=i + 1; b) s:=5; i:=1; While i> s do i:=i + 1; d) s:=0; i:=0; While i<=n do begin if (i mod2)=1 Then S:=S + i; Else i:=i+1; End;
Cãu 16: Chón khai baựo hụp leọ
a) Var a,b: array[1..n] of real; c) Var a,b: array[1:n] of real; b) Var a,b: array[1..100] of real; d) Var a,b: array[1…n] of real;
Cãu 27: Chón khai baựo hụp leọ
a) Const n=5;
Var a,b: array[1..n] of real;
c) Var n: real;
Var a,b: array[1:n] of real; b) Var a,b: array[100..1] of real; d) Var a,b: array[1..5..10] of real;
Cãu 17: Chón khai baựo hụp leọ
a) Const n=5;
Var a,b: array[1..n] of integer; c) Var n: real;Var a,b: array[1:n] of real; b) Var a,b: array[100..1] of integer; d) Var a,b: array[1..5..10] of
integer;
Cãu 18: Lần lửụùt thửùc hieọn ủoán leọnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1;
Giaự trũ cuỷa t laứ
a) t=1 b) t=3 c) t=2 d) t= 6
Bài tập lập trình: (20 )’
Baứi 1: Vieỏt chửụng trỡnh tớnh toồng cuỷa n soỏ tửù nhiẽn ủầu tiẽn, vụựi n laứ soỏ tửù nhiẽn ủửụùc nhaọp vaứo tửứ baứn phớm?
Hớng dẫn: Program tinh_tong; Uses crt; Var i, n: integer; 131
tong: longint; Begin
Clrscr; Tong:=0;
Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do
Tong: = Tong+i;
Writeln(‘Tong cua’, n,’so tu nhien dautien la’,tong); Readln;
End.
Baứi 2: Vieỏt chửụng trỡnh in ra maứn hỡnh thửự tửù lần laởp? Hớng dẫn:
Program lap; Var i: integer; Begin
For i:=1 to 10 do
Writeln(‘day la lan lap thu’, i); Readln;
Baứi 3: Vieỏt chửụng trỡnh nhaọp n soỏ nguyẽn tửứ baứn phớm. In ra maứn hỡnh soỏ nhoỷ nhaỏt vaứ soỏ lụựn nhaỏt. N cuừng ủửụùc nhaọp tửứ baứn phớm?
Hớng dẫn:
program MaxMin; uses crt;
Var
i, n, Max, Min: integer; A: array[1..100] of integer;
Begin
clrscr;
write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:');
For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Max:=a[1]; Min:=a[1]; for i:=2 to n do
begin if Max<a[i] then Max:=a[i]; if Min>a[i] then Min:=a[i] end;
write('So lon nhat la Max = ',Max); write('; So nho nhat la Min = ',Min); readln
End.
Baứi 4: Viết chương trỡnh thể hiện thuật toỏn sau:
Thuật toỏn:
B1: S ← 10; x ← 0.5;
B2: Nếu S < = 5.2; chuyển tới bước 4; 132
B3: S ← S – x và quay lại B2; B4: Thụng bỏo S và kết thỳc. Hớng dẫn: Program tt; uses crt; var S, x: real; begin clrscr; S :=10; x := 0.5; while S > 5.2 do S := S – x; write (‘S = ‘, S:7:2); readln end. 4. Củng cố- dặn dị( 5 )’
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Yêu cầu học sinh nhắc lại bài
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
- Làm các bài tập cịn lại và ơn lại tồn bộ kiến thức để giờ sau kiểm tra học kỳ 2
Ngày soạn :25/4/2011 Ngày dạy : Tiết 70: kiểm tra học kì II A. Mục đích yêu cầu–