Đề cương ôn tập học kỳ 2 môn Tin học 8 (Năm học 2010-2011) - Nguyễn Văn Phong

Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp chưa biết trước bằng câu lệnh For…do Câu 2: Lệnh lặp nào sau đây là đúng?. A..[r]

Hoïc suy nghó - Ñi caån thaän! ĐỀ CƯƠNG ÔN TẬP HỌC KỲ MOÂN: TIN HOÏC (Naêm hoïc 2010 – 2011) I PHAÀN TRAÉC NGHIEÄM Câu 1: Phát biểu nào sau đây là đúng ? A Cấu trúc lặp sử dụng để thị cho máy tính thực lặp lại vài hoạt động nào đó điều kiện nào đó thoả mãn B Chỉ ngôn ngữ lập trình Pascal có các câu lệnh lặp để thể cấu trúc lặp C Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp cho trước câu lệnh while…do D Ngôn ngữ Pascal thể cấu trúc lặp với số lần lặp chưa biết trước câu lệnh For…do 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ôí> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> <câu lệnh>; C For <biến đếm>:= <giá trị cuôí> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 3: 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> <ñieàu kieän>; D While <ñieàu kieän> <caâu leänh>; Câu 4: Để tính tổng S=1+2+3+ 4+ + … + n; em chọn đoạn lệnh: A s:=0; i:=0; B s:=0; i:=0; While i<=n While i<=n S:=S + 1; If (I mod 2)= Then S:=S + i; C s:=0; i:=0; D s:=0; i:=0; While i<=n While i<=n begin begin S:=S + i; if (i mod2)=1 Then S:=S + i; I:=i+1; Else i:=i+1; End; End; Câu 5: Chọn cách khai báo biến mảng đúng: A Var a: array[1…100] of integer; B Var a: array[1 n] of integer; C Var a: array[1 50] of integer; D Var a: array[1 24.5] of integer; Câu 6: Cho S và i là biến nguyên Khi chạy đoạn chương trình: s:=0; i:=1 while i<=5 begin i:=i+1; s := s+i; end; writeln(s); Keát quaû in leân maøn hình laø cuûa s laø : A B C 14 D 20 Câu 7: Trong vòng lặp For <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu lệnh> củaPascal, vòng lặp, biến đếm thay đổi nào A +1 B -1 C Moät giaù trò baát kyø D Moät giaù trò khaùc khoâng Câu 8: Câu lệnh lặp while…do có dạng đúng là: A x:=10; While x:=10 x:=x+5; B x:=10; While x:=10 x=x+5; C x:=10; While x=10 x=x+5; D x:=10; While x=10 x:=x+5; Câu 9: Câu lệnh Pascal nào sau đây là hợp lệ? A For i:=100 to writeln(‘A’); B For i:= to 10 writeln(‘A’); C For i:=1.5 to 10.5 writeln(‘A’); D For i= to 10 writeln(‘A’); Câu 10: Cho S và i là biến nguyên Khi chạy đoạn chương trình: GV: Nguyeãn Vaên Phong ** 0979.178939 Lop8.net- 1-  www.thcscatchanh.co.cc Hoïc suy nghó - Ñi caån thaän! S:=0; For i:=1 to s:=s+1; Writeln(s); Keát quaû in leân maøn hình cuûa s laø : A 11 B 15 C 10 D Câu 11: Lần lượt thực câu lệnh for i:= to 3.5 writeln(i:3:1); viết màn hình? A Thứ tự biến đếm, chiếm chỗ và lấy chữ số sau phần thập phân B Vieát soá roài vieát soá 3.5 C Chæ vieát soá 3.5 maø thoâi D Không thực vì giá trị biến đếm có kiểu thứ tự là Real Câu 12: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực bao nhiêu vòng lặp S:=0; n:=0; While S< =10 Begin n:=n+1; s:=s+n; end; A laàn B laàn C laàn D 10 Caâu 13: Caâu leänh naøo sau ñaây laëp voâ haïn laàn A s:=5; i:=0; B s:=5; i:=1; While i<=s s:=s + 1; While i<=s i:=i + 1; C s:=5; i:=1; D s:=0; i:=0; While i> s i:=i + 1; While i<=n if (i mod2)=1 then S:=S + I else i:=i+1; Câu 14: Để tính tổng S=1 + +3 +4 … + n; em chọn đoạn lệnh: A for i:=1 to n B for i:=1 to n if ( i mod 2)=0 then S:=S + i; if ( i mod 2)=1 then S:=S + i; C for i:=1 to n S:= S + i ; D for i:=1 to n if ( i mod 2)<>0 then S:=S + i; Câu 15: Để tính tổng S=2 + + … + n; em chọn đoạn lệnh: A For i:=1 to n B For i:=1 to n if ( i mod 2)=0 then S:=S + i; S:= S + i ; C For i:=1 to n if ( i mod 2)=1 then S:=S + i; D for i:=1 to n if ( i mod 2)<>0 then S:=S + i; Câu 16: Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n; em chọn đoạn lệnh: A for i:=1 to n B for i:=1 to n if ( i mod 2)=0 then S:=S + 1/i; if ( i mod 2) < > then S:=S + i; C for i:=1 to n D for i:=1 to n if ( i mod 2)=0 then S:=S – 1/i if ( i mod 2)=0 then S:=S +1/ i else S:=S-1/i; else S:= S + 1/i; Câu 17: Để đếm có bao nhiêu số lẻ nhỏ hay n ; em chọn đoạn lệnh: A for i:=1 to n B for i:=1 to n if ( I mod 2)< >0 then S:=S + 1; if ( I mod 2) =0 then S:=S + 1; C for i:=1 to n D for i:=1 to n if ( I mod 2)=0 then S:=S + I ; if ( I mod 2)=0 then S:=S + I; Câu 18: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; thì biến đếm i phải khai báo là kiểu liệu A Integer; B Real; C String D Tất các kiểu trên Câu 19: Sau thực đoạn chương trình j:= 0; for i:= to j:=j+2; thì giá trị in màn hình là? A B C D 10 Câu 20: Đoạn lệnh sau đây So:=1; While so<10 writeln(so); So:=so+1; Sẽ cho kết gì? A In các số từ đến B In các số từ đến 10 C Không phương án nào đúng D In voâ haïn caùc soá 1, moãi soá treân moät doøng Câu 21: Tìm hiểu đoạn lệnh sau và cho biết với đoạn lệnh đó chương trình thực bao nhiêu vòng lặp GV: Nguyeãn Vaên Phong ** 0979.178939 Lop8.net- 2-  www.thcscatchanh.co.cc Hoïc suy nghó - Ñi caån thaän! S:=0; n:=0; While S< =10 n:=n+1; s:=s+n; A laàn B 10 laàn C 11 laàn D Voâ haïn laàn Câu 22: Hãy tìm hiểu đoạn chương trình sau đây Sau đoạn chương trình này thực hiện, giá trị x bao nhieâu? X:=0; Tong:=0; While tong<=20 Begin Writeln(tong); Tong:=tong+1; End X:=tong; A 20 B 21 C Khoâng xaùc ñònh D Caâu 23: Cuù phaùp khai baùo bieán maûng Pascal laø: A var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; Câu 24: Chọn khai báo hợp lệ: A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 25: Trong phần mềm Finger Break Out mức chơi Advanced là mức chơi: A Bắt đầu B Bình thường C Trung bình D Naâng cao Câu 26: Trong phần mềm Sun Times để biết thời gian trưa, ta chọn mục nào A Sunset B Sunrise C Day lengh D Midday Câu 27: Để cố định vị trí và thời gian quan sát ta vào: A Option \ Maps \ Show Sky Clour B Option \ Maps \ Anchor Time To C Option \ Maps \ Hover Update D Option \ Maps \ Currenttly Sunset Câu 28: Để xem chi tiết thời gian mặt trời mọc, lặn suốt 365 ngày năm địa điểm, vị trí trên trái đất, ta vào A View \ Today’s Sun Times B View \ Sunrise / Sunset for the year C View \ Currenttly Sunset / Sunrise D View \ Sunset / Sunrise for the year Câu 29: Phần mở rộng tệp hình phần mềm Geogebra là gì: A bgg B gsb C ggb D Gbb Câu 30: Trong phần mềm Geogebra, công cụ tạo trung điểm đoạn thẳng là : A B C D Câu 31: Phần mềm nào sau đây xem tượng nhật thực và nguyệt thực? A Finger Break Out B Sun Times C Sun Times vaø Yenka D Caâu B vaø C Câu 32: Phần mềm Finger Break Out dùng để làm gì? A Xem thông tin thời gian ngày và đêm B Xem thông tin nhật thực, nguyệt thực C Luyeän goõ baøn phím nhanh, chính xaùc D Không có đáp án đúng Caâu 33 : Phaàn meàm hoïc veõ hình laø : A Sun Times B Toolkit Math C Geogebra D.Finger Breakout Câu 34: Ghép nội dung cột A cho phù hợp cột B Cot A Cot B Tra lôi Fi nger Bre ck out la pm a Phan mem Sun ti mes Quan sat toan canh the giôi b Ve bieu ño toan hoc Geogebra la phan mem c Phan m em Yen ka Tao hình khong gian d Ve hình h oc ñôn gian e Luyen go phím nhanh ban g 10 ngon tay GV: Nguyeãn Vaên Phong ** 0979.178939 Lop8.net- 3-  www.thcscatchanh.co.cc Hoïc suy nghó - Ñi caån thaän! Câu 35: Điền X vào các ô cho phù hợp và giải thích vì Caâu Đúng Sai Giaûi thích a) for i=1 to 10 writeln('A'); b) var X: Array[5 10] Of Real; c) X:=10; while X<30 X: = X+5; d) if x>5 then a:=b; else m := n; Câu 36: Nhận xét nội dung và đánh dấu “X” vào cột ĐÚNG SAI Noäi dung Đún g Sai Không nên thay đổi giá trị biến đếm câu lệnh lặp For … do, ví dụ câu lệnh lặp sau đây là không nên sử dụng For i:=1 to n i:=i+2; Trong câu lệnh lặp for biến đếm:=giá trị đầu to giá trị cuối câu lệnh; Nếu giá trị đầu < giá trị cuối thì chương trình dịch báo lỗi để ta chỉnh sữa lại Câu lệnh lặp For… thuận tiện và hữu ích việc tránh phải viết lặp lặp lại nhiều lần câu lệnh nào đó Chẳng hạn để in các số nguyên kém đơn vị từ đến 15 ta chæ vieát caâu leänh sau For i:=1 to 15 writeln(i:3:1); Mọi câu lệnh lặp While…do có thể thay cách thích hợp câu lệnh For Câu lệnh sau câu lệnh lặp while … có thể không thực lần nào từ đầu điều kiện điều khiển vòng lặp có giá trị “sai” II PHAÀN TỰ LUẬN: Câu 1: Viết đoạn chương trình tính tổng các số từ 10 đến 100 (sử dụng For và While … do) Câu 2: Viết chương trình nhập vào điểm toán và ngữ văn các bạn, gồm n bạn nhập từ bàn phím, sau đó in điểm trung bình bạn theo công thức (điểm trung bình = (điểm toán + điểm ngữ văn)/2) Câu 3: Viết chương trình tính trung bình cộng các số dãy số gồm n số nhập từ bàn phím? Caâu 4: Vieát chöông trình tính toång: 1 1 S       n Trong đó n là số nguyên nhập từ bàn phím Câu 5: Viết chương trình thực các công việc sau: a Cho phép nhập vào dãy số gồm n số (với n>1 và nhập từ bàn phím) b In màn hình số lớn c In màn hình số lớn và không chia hết cho Câu 6: Vẽ hình: (Sử dụng phần mềm Geogebra) a) Trình bày các bước vẽ hình tròn nội tiệp tam giác ABC ( ΔABC cho trước) b) Trình bày các bước vè hình vuông cạnh Cm Chuùc caùc em thaønh coâng! GVBM Nguyeãn Vaên Phong GV: Nguyeãn Vaên Phong ** 0979.178939 Lop8.net- 4-  www.thcscatchanh.co.cc Hoïc suy nghó - Ñi caån thaän! HƯỚNG DẪN Câu 1: Viết đoạn chương trình tính tổng các số từ 10 đến 100 (sử dụng For và While … do) * Sử dụng For … Do Var s, i : integer; Begin s:=0; For i:=10 to 100 s:=s+i; Writeln(‘Toång caàn tìm laø ‘, s); Readln; End * Sử dụng While … DO Var s, i : integer; Begin s:=0; i:=10; While i<=100 Begin s:=s+i; i:=i+1; end; Writeln(‘Toång caàn tìm laø:’,s); Readln; End Câu 2: Viết chương trình nhập vào điểm toán và ngữ văn các bạn, gồm n bạn nhập từ bàn phím, sau đó in điểm trung bình bạn theo công thức (điểm trung bình = (điểm toán + điểm ngữ văn)/2) Program bai2; Uses crt; Var DT, DV:array[1 100] of real; i, n: integer; TB:real; Begin Write(‘Nhập số bạn lớp, n=’); Readln(n); Writeln(‘Nhập điểm Toán và Văn ‘); For i:=1 to n Begin Write(‘DT[‘, i,’]=’); Readln(DT[i]); Write(‘DV[‘, i,’]=’); Readln(DV[i]); End; Writeln(‘ÑIEÅM TB CUÛA CAÙC BAÏN LAØ’); For i:= to n Begin TB:=(DT[i]+DV[i])/2; Writeln(‘Baïn soâ’,i,’laø’,TB:3:2); End; Readln; END { } Câu 3: Viết chương trình tính trung bình cộng các số dãy số gồm n số nhập từ bàn phím? Program bai3; Uses crt; Var A : array[1 100] of integer ; i, n, t: integer; tb: real; Begin Write(‘Nhập số phần tử dãy n = ‘); Readln(n); Writeln(‘Nhập các giá trị phần tử ‘); For i:= to n Begin Write(‘A[‘, i,’]=’); GV: Nguyeãn Vaên Phong ** 0979.178939 Lop8.net- 5-  www.thcscatchanh.co.cc Hoïc suy nghó - Ñi caån thaän! Readln(A[i]); End; t:=0; For i:=1 to n t:= t + A[i]; tb:=t/n; Write(‘Trung bình caùc soá cuûa daõy soá laø: ‘, tb); Readln; End { } Caâu 4: Vieát chöông trình tính toång: 1 1 S       n Trong đó n là số nguyên nhập từ bàn phím Giaûi: Program Tong_Nghich_Dao; Uses crt; Var S: real; n, i: integer; Begin Clrscr; Write(‘Nhap so n = ‘); Readln(n); S:= 0; For i:= to n S: = S + 1/i; Writeln(‘Tong can tim la: ‘, S:6:2); Readln; End { } Câu 5: Một số ngôn ngữ lập trình, ví dụ Pascal, không có sẵn hàm tính lũy thừa Hãy mô tả thuật toán và sử dụng câu lệnh lặp với số lần xác định trước để viết chương trình Pascal tính lũy thừa bậc n số nguyên X Giaûi: Program bai5; Var n,i,x: integer; a: longint; Begin Write('Nhap x='); readln(x); Write('Nhap n='); readln(n); A:=1; For i:=1 to n A:=A*X; Writeln(x,' mu ',n,' bang ',A); End Caâu 31: Caâu Đúng a) for i=1 to 10 writeln('A'); b) var X: Array[5 10] Of Real; c) X:=10; while X<30 X: = X+5; d) if x>5 then a:=b; else m := n; GV: Nguyeãn Vaên Phong ** 0979.178939 Sai x Giaûi thích Thieáu daáu : sau bieán i x Thừa dấu ; trước else x x Lop8.net- 6-  www.thcscatchanh.co.cc