Đề kiểm tra 1 tiết môn Tin học Lớp 8 - Trường THCS Khánh Hưng

TRƯỜNG THPT KHÁNH HƯNG	KIỂM TRA 1 TIẾT
	MÔN: TIN HỌC 8
ĐỀ 1 : 
A: TRẮC NGHIỆM (5đ) Haõy choïn phöông aùn ñuùng nhaát trong caùc caâu hoûi sau :
Caâu 1: Trong voøng laëp For := to do cuûaPascal, trong moãi voøng laëp, bieán ñeám thay ñoåi nhö theá naøo:
+1
-1
+2
+3
Caâu 2: Phaùt bieåu naøo sau ñaây laø ñuùng:
Caáu truùc laëp ñöôïc söû duïng ñeå chæ thò cho maùy tính thöïc hieän laëp laïi moät vaøi hoaït ñoäng naøo ñoù cho ñeán khi moät ñieàu kieän naøo ñoù ñöôïc thoaû maõn.
Chæ ngoân ngöõ laäp trình Pascal môùi coù caùc caâu leänh laëp ñeå theå hieän caáu truùc laëp.
Ngoân ngöõ Pascal theå hieän caáu truùc laëp vôùi soá laàn laëp cho tröôùc baèng caâu leänh Whiledo.
Ngoân ngöõ Pascal theå hieän caáu truùc laëp vôùi soá laàn laëp chöa bieát tröôùc baèng caâu leänh Fordo.
Caâu 3: Caâu leänh laëp whiledo coù daïng ñuùng laø:
x:=10; While x:=10 do x:=x+5;
x:=10; While x:=10 do x=x+5;
x:=10; While x=10 do x=x+5;
x:=10; While x=10 do x:=x+5;
Caâu 4: Caâu leänh pascal naøo sau ñaây laø hôïp leä?
For i:=100 to 1 do writeln(‘A’);
For i:= 1 to 10 do writeln(‘A’);
For i:=1.5 to 10.5 do writeln(‘A’);
For i= 1 to 10 do writeln(‘A’);
Caâu 5: Cho S vaø i laø bieán nguyeân. Khi chaïy ñoaïn chöông trình :
 s:=0;
 for i:=1 to 5 do s := s+i;
 writeln(s);
 Keát quaû in leân maøn hình laø cuûa S laø : 
11
15 
10
5
Câu 6: Khai báo biến mảng: A: array[1..7] of real; Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 
A. 4;	B. 5;	C. 6;	D. 7.
Caâu 7: Trong caâu leänh laëp 
For i:=1 to 10 do
begin
..
End
Caâu leänh gheùp ñöôïc thöïc hieän bao nhieâu laàn (bao nhieâu voøng laëp ñöôïc thöïc hieän):
khoâng laàn naøo.
2 laàn.
1 laàn.
10 laàn.
Caâu 8: Tìm hieåu ñoaïn leänh sau vaø cho bieát vôùi ñoaïn leänh ñoù chöông trình thöïc hieän bao nhieâu voøng laëp:
S:=0; n:=0;
While S< =10 do
Begin
	n:=n+1;
	s:=s+n;
end;
4 laàn
5 laàn
6 laàn
10
Caâu 9: Caâu leänh naøo sau ñaây laëp voâ haïn laàn:
s:=5; i:=0; While i<=s do s:=s + 1;
s:=5; i:=1; While i<=s do i:=i + 1;
s:=5; i:=1; While i> s do i:=i + 1;
s:=0; i:=0; While i<=n do if (i mod 2)=1 then S:=S + i else i:=i+1;
Caâu 10: Ñeå tính toång S=1 + 2 +3 +4  + n; em choïn ñoaïn leänh:
for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
for i:=1 to n do if ( i mod 2)=1 then S:=S + i;
for i:=1 to n do S:= S + i ;
for i:=1 to n do if ( i mod 2)0 then S:=S + i;
Caâu 11: Ñeå tính toång S=2 + 4 + 6  + n; em choïn ñoaïn leänh:
For i:=1 to n do if ( i mod 2)=0 then S:=S + i;
For i:=1 to n do S:= S + i ;
For i:=1 to n do if ( i mod 2)=1 then S:=S + i;
for i:=1 to n do if ( i mod 2)0 then S:=S + i;
Caâu 12: Ñeå tính toång S=1/2+1/4 + 1/6 +  +1/ n; em choïn ñoaïn leänh:
for i:=1 to n do if ( i mod 2)=0 then S:=S + 1/i;
for i:=1 to n do if ( i mod 2) 0 then S:=S + i;
for i:=1 to n do if ( i mod 2)=0 then S:=S – 1/i else S:= S + 1/i; 
for i:=1 to n do if ( i mod 2)=0 then S:=S +1/ i else S:=S-1/i;
Câu 13: Vòng lặp sau cho kết quả bằng bao nhiêu:
i := 0; T := 0; 
While i < 3 do 
begin T := T + 1; i := i + 1; end;
A. T = 2	B. T = 3	C. T = 4	D. T = 5
Câu 14: Cú pháp khai báo biến mảng trong Pascal là:
A. var ;array [..] of;
B. var :aray[...] of ;
C. var : array [..] of ;
D. var : array [...] for;
Câu 15: Khai báo mảng A gồm 30 phần tử từ 3 đến 33 là các số nguyên thì ta khai báo gì:
A. A: Array [1..30] of integer;	B. A: Array [3...33] of integer;
C. A: Array [3..33] of integer;	D. A: Array [33] of integer;
Câu 16: Nhặt thóc ra khỏi gạo đến khi trong gạo không còn thóc là :
A. Lặp với số lần biết trước	B. Lặp vô số lần
C. Lặp 10 lần	D. Lặp với số lần chưa biết trước
Câu 17: Để sửa lỗi chương trình Turbo Pascal ta sử dụng phím tắt nào trong các phím sau:
A. F9	B. Shift + F9 	C. Ctrl + F9	D. Alt + F9
Câu 18: Các cách khai báo biến sau đây, cách khai báo nào là hợp lệ trong Turbo Pascal
A. Var a = integer;	B. Var a: integer; 	C. Var a: array; 	D. Var: a: integer;
Câu 19: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ:
A. var a: array[1..100] of integer; 	B. var a: array[1.5..100.5] of integer;
C. var a: array[1, 100] of integer;	D. var a: array[1.5, 100.5] of integer;
Câu 20: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A. Chỉ số đầu và chỉ số cuối là 2 số nguyên;	B. Chỉ số đầu £chỉ số cuối;
C. Kiểu dữ liệu có thể là integer hoặc real;	D. Cả ba ý trên;
B. TỰ LUẬN: (5đ)
Câu 21: Hãy sắp xếp lại đoạn chương trình sau cho đúng: (1.5đ)
	Var	s, n: integer;
	S:=0; n:=1;
	While S<=100 do
	n:=n+1;	
	S:=S+n;
	End;
	Writeln(‘so n nho nhat de tong>100 la’,n);
	Readln;
	End.
	Begin
	Begin
	Writeln(‘tong dau tien >100)la’,S);
Caâu 22: Haõy xaùc ñònh ñuùng sai cho nhöõng phaùt bieåu döôùi ñaây (1.5đ)
Noäi dung
Ñuùng
Sai
a. Trong caâu leänh sau do cuûa caâu leänh laëp While  do phaûi coù leänh laøm thay ñoåi giaù trò cuûa ñieàu kieän ñieàu khieån voøng laëp, ñeå sau moät soá laàn höõu haïn laàn laëp, ñieàu kieän phaûi coù giaù trò “sai”, voøng laëp seõ ñöôïc keát thuùc (khoâng bò laëp voâ haïn laàn).
b. Trong nhieàu tröôøng hôïp, vieäc thöïc hieän caâu leänh laëp While do toán ít thôøi gian hôn so vôùi caâu leänh laëp for  do.
c. Caâu leänh sau do trong caâu leänh laëp while  do coù theå khoâng ñöôïc thöïc hieän laàn naøo neáu ngay töø ñaàu ñieàu kieän ñieàu khieån voøng laëp coù giaù trò “sai”.
d. Moïi caâu leänh laëp Fordo ñeàu coù theå thay theá moät caùch thích hôïp bôûi caâu leänh While..do.
Câu 23: (2đ) Viết chương trình nhập mảng A có 10 phần tử kiểu nguyên và xuất ra các giá trị của mảng đó (sử dụng biến mảng).
TRƯỜNG THPT KHÁNH HƯNG	KIỂM TRA 1 TIẾT
	MÔN: TIN HỌC 8
ĐỀ 2 : 
A: TRẮC NGHIỆM (5đ) Haõy choïn phöông aùn ñuùng nhaát trong caùc caâu hoûi sau :
Câu 1: Các cách khai báo biến sau đây, cách khai báo nào là hợp lệ trong Turbo Pascal
A. Var a = integer;	B. Var a: integer; 	 C. Var: a: integer; D. Var a: array; 
Caâu 2: Cho S vaø i laø bieán nguyeân. Khi chaïy ñoaïn chöông trình :
 s:=0;
 for i:=1 to 5 do s := s+i;
 writeln(s);
 Keát quaû in leân maøn hình laø cuûa S laø : 
A. 11
B. 15 
10
5
Câu 3. Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? 
A. 4;	B. 6;	C. 5;	D. 7.
Caâu 4: Caâu leänh laëp whiledo coù daïng ñuùng laø:
A. x:=10; While x:=10 do x:=x+5;
B. x:=10; While x=10 do x:=x+5; 
C. x:=10; While x=10 do x=x+5;
D. x:=10; While x:=10 do x=x+5;
Caâu 5: Ñeå tính toång S=1/2+1/4 + 1/6 +  +1/ n; em choïn ñoaïn leänh:
A. for i:=1 to n do if ( 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;
C. 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;
Caâu 6: Trong caâu leänh laëp 
For i:=1 to 10 do
begin
..
End
Caâu leänh gheùp ñöôïc thöïc hieän bao nhieâu laàn (bao nhieâu voøng laëp ñöôïc thöïc hieän):
khoâng laàn naøo.
2 laàn.
1 laàn.
10 laàn.
Caâu 7: Trong voøng laëp For := to do cuûaPascal, trong moãi voøng laëp, bieán ñeám thay ñoåi nhö theá naøo:
+1
-1
+2
+3
Caâu 8: Caâu leänh pascal naøo sau ñaây laø hôïp leä?
For i:=100 to 1 do writeln(‘A’);
For i:= 1 to 10 do writeln(‘A’);
For i:=1.5 to 10.5 do writeln(‘A’);
For i= 1 to 10 do writeln(‘A’);
Caâu 9: Tìm hieåu ñoaïn leänh sau vaø cho bieát vôùi ñoaïn leänh ñoù chöông trình thöïc hieän bao nhieâu voøng laëp:
S:=0; n:=0;
While S< =10 do
Begin
	n:=n+1;
	s:=s+n;
end;
4 laàn
5 laàn
6 laàn
10
Caâu 10: Caâu leänh naøo sau ñaây laëp voâ haïn laàn:
s:=5; i:=0; While i<=s do s:=s + 1;
s:=5; i:=1;While i<=s do i:=i + 1;
s:=5; i:=1; While i> s do i:=i + 1;
s:=0; i:=0; While i<=n do if (i mod 2)=1 then S:=S + i else i:=i+1;
Câu 11: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A. Chỉ số đầu và chỉ số cuối là 2 số nguyên;	B. Chỉ số đầu £chỉ số cuối;
C. Kiểu dữ liệu có thể là integer hoặc real;	D. Cả ba ý trên;
Caâu 12: Ñeå tính toång S=2 + 4 + 6  + n; em choïn ñoaïn leänh:
For i:=1 to n do if ( i mod 2)=0 then S:=S + i;
B. For i:=1 to n do S:= S + i ;
C. For i:=1 to n do if ( i mod 2)=1 then S:=S + i;
D. for i:=1 to n do if ( i mod 2)0 then S:=S + i;
Câu 13: Vòng lặp sau cho kết quả bằng bao nhiêu:
i := 0; T := 0; 
While i < 3 do 
begin T := T + 1; i := i + 1; end;
A. T = 2	B. T = 3	C. T = 4	D. T = 5
Câu 14: Khai báo mảng A gồm 30 phần tử từ 3 đến 33 là các số nguyên thì ta khai báo gì:
A. A: Array [1..30] of integer;	B. A: Array [3...33] of integer;
C. A: Array [3..33] of integer;	D. A: Array [33] of integer;
Câu 15: Nhặt thóc ra khỏi gạo đến khi trong gạo không còn thóc là :
A. Lặp với số lần biết trước	B. Lặp vô số lần
C. Lặp 10 lần	D. Lặp với số lần chưa biết trước
Câu 16: Để sửa lỗi chương trình Turbo Pascal ta sử dụng phím tắt nào trong các phím sau:
A. F9	B. Shift + F9 	C. Ctrl + F9	D. Alt + F9
Câu 17: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ:
A. Var A, B: array[1..50] of integer;	B. Var A, B: array[1..N] of real;
C. Var A: array[100..1] of integer;	D. Var B: array[1.5..10.5] of real;
Caâu 18: Phaùt bieåu naøo sau ñaây laø ñuùng:
Caáu truùc laëp ñöôïc söû duïng ñeå chæ thò cho maùy tính thöïc hieän laëp laïi moät vaøi hoaït ñoäng naøo ñoù cho ñeán khi moät ñieàu kieän naøo ñoù ñöôïc thoaû maõn.
Chæ ngoân ngöõ laäp trình Pascal môùi coù caùc caâu leänh laëp ñeå theå hieän caáu truùc laëp.
Ngoân ngöõ Pascal theå hieän caáu truùc laëp vôùi soá laàn laëp cho tröôùc baèng caâu leänh Whiledo.
Ngoân ngöõ Pascal theå hieän caáu truùc laëp vôùi soá laàn laëp chöa bieát tröôùc baèng caâu leänh Fordo.
Câu 19: Cú pháp khai báo biến mảng trong Pascal là:
A. var ;array [..] of;
B. var :aray[...] of ;
C. var : array [..] of ;
D. var : array [...] for;
Caâu 20: Ñeå tính toång S=1 + 2 +3 +4  + n; em choïn ñoaïn leänh:
A. for i:=1 to n do if ( i mod 2)=0 then S:=S + i;
B. for i:=1 to n do if ( i mod 2)=1 then S:=S + i;
C. for i:=1 to n do S:= S + i ;
D. for i:=1 to n do if ( i mod 2)0 then S:=S + i;
B. TỰ LUẬN: (5đ)
Câu 21: (1.5đ) So sánh sự giống nhau giữa câu lệnh lặp với số lần biết trước và lặp với số lần chưa biết trước? 
Caâu 22: (1.5đ) Haõy xaùc ñònh ñuùng sai cho nhöõng phaùt bieåu döôùi ñaây 
Noäi dung
Ñuùng
Sai
1. for i:=10 to 1 do writeln('A');
2. Var x: integer; begin for x := 1 to 10 do writeln ('A' );
end.
3. For i=1 to 100 do writeln ('A' );
4. For i:=0.5 to 5.5 do writeln('A' );
Câu 23: (2đ) Viết chương trình nhập mảng A có 50 phần tử kiểu nguyên và xuất ra các giá trị của mảng đó (sử dụng biến mảng).