Đề thi học kì 2 Tin học 8 có đáp án - Đề 5

Đề thi học kì 2 Tin học 8 có đáp án - Đề 5

ĐỀ BÀI

A. TRẮC NGHIỆM KHÁCH QUAN. (4đ) Chọn đáp án đúng nhất

Câu 1: Cách khai báo mảng nào sau đây chương trình không báo lỗi?

A. var X : Array [10, 13] of real;

B. var X : Array [1..100] of integer;

C. var X : Array [3.4..4.8] of integer;

D. var X : Array [1…100] of real;

Câu 2: Sau khi thực hiện đoạn chương trình sau:  s:=1; for i:= 1 to 3 do s:= s*i;

Giá trị của biến s bằng bao nhiêu?

A. 10;

B. 5;

C. 6;                                       

D. 15.

Câu 3: Cho đoạn chương trình sau: a := 1; b: = 7; While a

Kết quả cuối cùng a bằng bao nhiêu?

A. 5;

B. 6;                                                      

C. 7;                                                      

D. 8.

Câu 4: Lệnh lặp for..to..do của Pascal  trong mỗi vòng lặp, biến đếm thay đổi như thế nào?

A. Tăng thêm 1 đơn vị;                                                         

B. +1 hoặc -1;            

C. Giá trị bất kì;

D. Một giá trị khác 0.

Câu 5: Trong phần mềm GeoGebra công cụ nào dùng để tạo ra trung điểm của đoạn thẳng?

Câu 6: Giá trị của các mảng được cho như sau: A[1]:=4; A[2]:=7; A[3]:=1; A[4]:=9; A[5]:=2;

Kết quả của T:= A[3]+A[5]+A[2]+10; bằng bao nhiêu?

A. 10;

B. 15;                                     

C. 20;                         

D. 23.

Câu 7: Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?

A. Real;

B. Integer;                 

C. String;

D. Char.

Câu 8: Trong các câu lệnh lặp Pascal sau đây, câu nào chương trình không báo lỗi?

A. While i:= 1 do t:=10

B. While x<=y to Writeln (‘y khong nho hon x’);

C. While 1:= 1 do Writeln (‘Dung’);

B. While (n mod i<> 0) do i:= i+ 1;

B. TỰ LUẬN (6đ)

Câu 1: (2đ) Các câu lệnh Pascal sau có đúng không? Hãy sửa lại cho đúng nếu sai?

a) for i:=1 to 10 do writeln('A');

b) var X; Array[5…10] Of Char;

c) X:=10; while X=10 do X := X+5;

d) for i=1.5 to 10.3 do writeln('A');

Câu 2: (4đ) Viết chương trình tính tổng dãy n số nguyên với n được nhập từ bàn phím.

                                                 ----------------------- Hết ----------------------------

ĐÁP ÁN

Câu	Nội dung	Điểm
Trắc nghiệm 1, 2, 3, 4, 5, 6, 7, 8	1B; 2C; 3C; 4A; 5D; 6C; 7B; 8D	Mỗi câu đúng được 0.5đ
Tự luận
1	Câu Đúng Sai Sửa lại cho đúng nếu sai a) for i:=1 to 10 do writeln('A'); X     b) var X; Array[5…10] Of Char;   X var X: Array[5..10] Of Integer (Real); c) X:=10; while X=10 do X := X+5; X     d) for i=1.5 to 10.3 do writeln('A');   X for i:=1 to 10 do writeln('A');	0.5đ   0.5đ   0.5đ   0.5đ
2	Program tinh_tong; Uses crt; Var A: array[1..20] of integer;        i, n, Tong: integer; BEGIN     Clrscr;     Write(‘Nhap do dai cho mang n= ’); readln(n);     For i:= 1 to n do     Beign           Write(‘A[’,i,’]= ’); readln(A[i]);     End;     For i:= 1 to n do Tong:= Tong + A[i];     Write(‘Tong day so la: ’,Tong); Readln; END.	0.25đ 0.25đ 0.5đ 0.5đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ 0.25đ