C. Tiến trình lên lớp:
đáp án + thang điểm và hớng dẫn chấm Câu 1 :
A= 1+2+3+..+n
ở đây n là số tự nhiên được nhập từ bàn phím. (viết bằng lệnh while .. do) Câu 2 : Bạn h y tính tổng ã
(viết bằng lệnh for ... do)
(L u ý : Mỗi câu đợc ghi lại thành 1 File ở Mydocmens cĩ tên là LOP8A1_1.PAS Và
LOP8A1_2.PAS).
đáp án + thang điểm và h ớng dẫn chấm.Câu 1 : Câu 1 :
Làm đúng cho 5 điểm :
Câu Nội dung Điểm
1 Program B1 ; Program B1 ; Uses CRT; Var i, n: integer; tong: real; 1,5 Begin Clrscr;
write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1; 1,5 while i<= n do Begin tong:= tong+ i; i: = i+1; End; 1
writeln(' Tong can tim la: ', tong:12:6); Readln;
End. 1
2 Làm đúng cho 5 điểmProgram B2; 1,5
Var i: byte; s: real; Begin
s:=0; 1,5
For i:=1 to 20 do s:= s+1/i; 1
Writeln(' 1+ 1/2 + 1/3 + .. . + 1/20 = ', s: 14:10);
Readln; End. 1
* Thu bài ( HD về nhà)
- Giáo viên chấm bài của học sinh. - Về nhà làm lại bài này vào vở,
- 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.
- Giờ sau chúng ta ơn tập các em chuẩn bị.
Ngày soạn :20/4/2011 Ngày dạy : Tiết 68: ơ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 lại bài đã học.
C. Tiến trình lên lớp:
1. ổn định lớp
2. Bài mới : A. Lý thuyết.(15’) (adsbygoogle = window.adsbygoogle || []).push({});
Câu 1: Nêu cú pháp câu lệnh IF .. THEN dạng thiếu và dạng đầy đủ. So sánh sự giống và khác nhau giữa hai câu lệnh này.
Cõu 2: Hĩy cho biết tỏc dụng của cõu lệnh lặp.
Cõu 3: Với cấu trỳc cõu lệnh lặp với số lần biết trước trong Pascal, mỏy kiểm tra điều gỡ ở điều kiện?
Cõu 4: Ghi cấu trỳc và giải thich cõu lệnh lặp với số lần biết trước?
Cõu 5: Hĩy nờu cỏc lợi ớch của việc sử dụng biến mảng trong chương trỡnh?
Cõu 6: Nờu sự khỏc nhau giữa cấu trỳc của cõu lệnh lặp với số lần chưa biết trước và cõu lệnh lặp với số lần biết trước?
B. Bài tập (23 )’
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;
Bài 2: Tỡm hiểu thuật toỏn sau đõy và cho biết khi thực hiện thuật toỏn, mỏy lặp bao nhiờu lần? Khi kết thỳc giỏ trị của S là bao nhiờu?
Thuật toỏn:
B1: S ← 10; x ← 0.5;
B2: Nếu S < = 5.2; chuyển tới bước 4; B3: S ← S – x và quay lại B2;
B4: Thụng bỏo S và kết thỳc
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;
Bài 4: Khoanh troứn chửừ caựi ủửựng trửụực keỏt quaỷ ủuựng Cãu 1: Phaựt bieồu naứo sau ủãy laứ ủuựng ?
A. Caỏu truực laởp ủửụùc sửỷ dúng ủeồ chổ thũ cho maựy tớnh thửùc hieọn laởp lái moọt vaứi hoát ủoọng naứo ủoự cho ủeỏn khi moọt ủiều kieọn naứo ủoự ủửụùc thoaỷ maừn.
B. Chổ ngõn ngửừ laọp trỡnh Pascal mụựi coự caực cãu leọnh laởp ủeồ theồ hieọn caỏu truực laởp.
C. Ngõn ngửừ Pascal theồ hieọn caỏu truực laởp vụựi soỏ lần laởp cho trửụực baống cãu leọnh while…do
D. Ngõn ngửừ Pascal theồ hieọn caỏu truực laởp vụựi soỏ lần laởp chửa bieỏt trửụực baống cãu leọnh For…do
Cãu 2: Leọnh laởp naứo sau ủãy laứ ủuựng?
A. For <bieỏn ủeỏm>= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; B. For <bieỏn ủeỏm>:= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; C. For <bieỏn ủeỏm>:= <giaự trũ cuõớ> to <giaự trũ ủầu> do <cãu leọnh>; D. For <bieỏn ủeỏm>: <giaự trũ ủầu> to <cãu leọnh> do <giaự trũ cuoỏi>;
Cãu 3: Cãu leọnh pascal naứo sau ủãy laứ hụùp leọ?
A) For i:=100 to 1 do writeln(‘A’); B) For i:=1.5 to 10.5 do writeln(‘A’); C)For i= 1 to 10 do writeln(‘A’); D) For i:= 1 to 10 do writeln(‘A’);
Cãu 4: Voứng laởp while ..do laứ voứng laởp:
A) Bieỏt trửụực soỏ lần laởp B) Chửa bieỏt trửụực soỏ lần laởp
C.) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ <=100 D) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ >=100 (adsbygoogle = window.adsbygoogle || []).push({});
Cãu 5: Cãu leọnh laởp while…do coự dáng ủuựng laứ:
A) While <ủiều kieọn> do; <cãu leọnh>; B) While <ủiều kieọn> <cãu leọnh> do; C) While <cãu leọnh> do <ủiều kieọn>; D) While <ủiều kieọn> do <cãu leọnh>;
Cãu 6: Cho S vaứ i laứ bieỏ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);
Keỏt quaỷ in lẽn maứn hỡnh laứ cuỷa s laứ :
A.11 B. 55 C. 101 D.15
Cãu 7: Trong chửụng trỡnh pascal sau ủãy:
Var x : integer ; Begin X:= 3 ; If (45 mod 3) =0 then x:= x +2; If x > 10 then x := x +10 ; End. 128
X coự giaự trũ laứ maỏy
a) 3 b) 5 c) 15 d)10
Cãu 8: Trong chửụng trỡnh pascal sau ủãy:
program hcn; var a, b :integer; s,cv :real ; begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ;
writeln(‘dien tich hcn la:’ , s ); writeln( ‘chu vi hcn la : ‘ , cv ) ; readln;
end.
Bieỏn s vaứ cv coự giaự trũ laứ maỏy:
a/ s = 10 ; cv = 5 ; b/ s= 30 ; cv = 50 ;
c/ s = 50 ; cv = 40 ; d/ s = 50 ; cv = 30 ;
3. Củng cố: (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