De thi HKII 2013

<span class='text_page_counter'>(1)</span>Trường THCS Châu Văn Liêm Họ và tên: Lớp : Điểm. Bài kiểm tra học kỳ II - Tin lớp 8. Nhận xét. Thời gian 45 phút Ngày kiểm tra: Chữ ký giám khảo. Chữ ký giám thị. A. TRẮC NGHIỆM (3 điểm): Câu 1(0.5đ): Trong các câu lệnh pascal sau đây đúng hay sai ? a) For i:=1 to n do x:=x+1; b) For i=1 to 10.5 do x=x+2; c) For i:=10 to 1 do; x:=x+2; d) For i:= 1 to 20.5 do x:=x+1; Câu 2 (0.5đ): Khi khai báo biến mảng: var a: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>; ngôn ngữ pascal quy định. a) chỉ số đầu bằng chỉ số cuối b) chỉ số đầu lớn hơn chỉ số cuối c) chỉ số đầu ≤ chỉ số cuối d) chỉ số đầu ≥ chỉ số cuối Câu 3 (0.5đ): Trong ngôn ngữ pascal, khai báo nào sau đây là đúng? a) var x: array[1…100] : integer; b) var x: array[1..100] of integer; c) var x: array[1,5..9,5] of integer; d) var x: array [50..1] of real; Câu 4(0.5đ): Trong ngôn ngữ lập trình pascal, ta có câu lệnh For i:=1 to 100 do write(i:4); Nếu muốn sử dụng vòng lặp while…do để thực hiện công việc như vậy ta phải viết câu lệnh while…do như thế nào? a) while i<=100 do write(i:4); b) while i>=100 do write(i:4); c) while i:= i to 100 do write(i:4); d) while i=100 do write(i:4); Câu 5 (1đ): Điền các từ thích hợp sau : tập hợp, thứ tự, khai báo, dữ liệu, thực hiện, biến mảng, chỉ số vào dấu …… Dữ liệu kiểu mảng là một ……… hữu hạn các phần tử có …….., mọi phần tử đều có cùng môt kiểu …....., gọi là kiểu của phần tử. Việc sắp thứ tự được thực hiện bằng cách gán cho mỗi phần tử một ……... B. TỰ LUẬN (7 điểm): Câu 6 (2đ) : Cho đọan chương trình , hãy miêu tả quá trình thực hiện các câu lệnh sau , sau có bao nhiêu vòng lặp, sau khi thực hiện hết vòng lặp, giá trị của x bằng bao nhiêu?. x:=1; For i:= 1 to 5 do x:=x+i;.

<span class='text_page_counter'>(2)</span> ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... Câu 7 (2đ) : Cho đọan chương trình , hãy miêu tả quá trình thực hiện các câu lệnh sau , sau có bao nhiêu vòng lặp, sau khi thực hiện hết vòng lặp, giá trị của x bằng bao nhiêu?. x:=0; s:=2; While s<=8 do Begin writeln(s); s:=s+2; End; x:=s; ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... ..................................................................................................................................... Câu 8(3đ): chương trình sau là nhập n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất. hãy hoàn thành chương trình sau: Program timmin; uses crt; var i,………: integer; a: ….. [1..50] of integer; Begin Clrscr; write(‘nhap so phan tu cua day so n=’); readln(…..); write(‘nhap gia tri cho cac phan tu cua day so:’); for i:=…. to …. do begin write(‘a[‘,i,’]=’); readln(……); end; min:=a[1]; for i:= …… to n do if a[i]……min then min:= a[i]; write(‘so nho nhat cua day so la:’,…..); writeln end..

<span class='text_page_counter'>(3)</span>