Đề cương ôn tập học kì 2 Tin học 8

ĐỀ CƯƠNG ƠN TẬP TIN 8
Phần 1: Trắc nghiệm
Khoanh tròn chữ cái đứng trước kết quả đúng
Câu 1: Phát biểu nào sau đây là đúng ?
Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn.
Chỉ ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp.
Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh whiledo
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 Fordo
Câu 2: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 3: Câu lệnh pascal nào sau đây là hợp lệ?
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: Vòng lặp while ..do là vòng lặp:
A) Biết trước số lần lặp	B) Chưa biết trước số lần lặp
C.) Biết trước số lần lặp nhưng giới hạn là =100 
Câu 5: Câu lệnh lặp whiledo có dạng đúng là:
A) While do; ; 	B) While do;
C) While do ;	D) While do ;
Câu 6: Cho S và i là biế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);
 Kết quả in lên màn hình là của s là : 
	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.
X có giá trị là mấ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.
Biến s và cv có giá trị là mấy:
	a/ s = 10 ; cv = 5 ;	b/ s= 30 ; cv = 50 ; 
	c/ s = 50 ; cv = 40 ; 	d/ s = 50 ; cv = 30 ;
Câu 9: Sau khi thực hiện đoạn chương trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giá trị in ra màn hình là?
	a) 4	b) 6	c) 8	d)10
Câu 10: Để tính tổng S=1+3 + 5 +  + n; em chọn đoạn lệnh:
a) 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;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i 
	Else S:= S + I; 
for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
Câu 11: Để 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 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 + i;
b) 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;
Câu 12: Để tính tổng S=1+1/3 + 1/5 +  +1/ n; em chọn đoạn lệnh:
a) for i:=1 to n do
	if ( i mod 2)=1 then S:=S + 1/i;
c) for i:=1 to n do
if ( i mod 2) =0 then S:=S + 1/i;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i 
	Else S:= S + 1/; 
 d) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
Câu 13: Để đếm có bao nhiêu số lẻ nhỏ hơn hay bằng n ; em chọn đoạn lệnh:
a) for i:=1 to n do
	if ( i mod 2)0 then S:=S + 1;
c) for i:=1 to n do
if ( i mod 2) =0 then S:=S + 1;
b) for i:=1 to n do
if ( i mod 2)=0 then S:=S + i ;
d) for i:=1 to n do
if i mod 2=0 then S:=S + i;
Câu 14: Để tính tổng S=1+2+3+ 4+ 5 +  + n; em chọn đoạn lệnh:
a) s:=0; i:=0;
 While i<=n do 
	S:=S + 1;
a) s:=0; i:=0;
 While i<=n do 
If (I mod 2)= 1 Then S:=S + i;
b) s:=0; i:=0;
 While i<=n do 
 begin	
S:=S + i;
I:=i+1;
	End;
d) s:=0; i:=0;
 While i<=n do 
 begin	
if (i mod2)=1 Then S:=S + i;
Else i:=i+1;
	End;
Câu 15: Câu lệnh nào sau đây lặp vô hạn lần
a) s:=5; i:=0;
 While i<=s do 
	s:=s + 1;
a) s:=5; i:=1;
 While i<=s do 
i:=i + 1;
b) s:=5; i:=1;
 While i> s do 
 i:=i + 1;
d) s:=0; i:=0;
 While i<=n do 
 begin	
if (i mod2)=1 Then S:=S + i;
Else i:=i+1;
	End;
Câu 16: 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 real;
b) Var a,b: array[1..100] of real;
d) Var a,b: array[1n] of real;
Câu 17: Chọn khai báo hơp lệ
a) Const n=5;
	Var a,b: array[1..n] of real;
c) Var n: real;
	Var a,b: array[1:n] of real;
b) Var a,b: array[100..1] of real;
d) Var a,b: array[1..5..10] of real;
Câu 18: Chọn khai báo hơp lệ
a) Const n=5;
	Var a,b: array[1..n] of integer;
c) Var n: real;
	Var a,b: array[1:n] of real;
b) Var a,b: array[100..1] of integer;
d) Var a,b: array[1..5..10] of integer;
Câu 19: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; 
 Giá trị của t là
	a) t=1	b) t=3 	c) t=2	d) t=6
Phần 2:tự luận
1. viết cấu trúc if  then.else
 Áp dụng: a. Viết chương trình nhập vào 1 số và cho biết số này là số chẵn hay số lẻ.
	 b. Viết chương trình nhập vào 1 số và cho biết số này là số âm hay số dương
bài giải:
câu a:
uses crt;
var N: integer;
begin
clrscr;
writeln(‘nhap so N=’); Readln(N);
if (N mod 2) = 0 then writeln(‘ so vua nhap la so chan’) else writeln(‘ so vua nhap la so le ’);
readln
end.
Câu b: gợi ý: điều kiện: số dương là số lớn hon 0, số âm là số ngược lại.
2. Viết cấu trúc: For to.do, while do.
Áp dụng: 
Câu a. viết chương trình nhập vào 1 số N từ bàn phím(với N là số chữ số tự nhiên đầ tiên). Tính tổng N chữ số tự nhiên dầu tiên đĩ.
(tham khảo ví dụ 5/sgk tr 59)
Câu b. viết chương trình nhập vào 1 số N từ bàn phím(với N là số chữ số tự nhiên đầ tiên). Tính tổng các số chẵn, lẻ
hướng dẫn: Tính tổng các số chẵn:
uses crt;
var n, i, sumchan: integer;
begin
clrscr;
write(‘so chu so tu nhien dau tien la:’); readln(N);
sumchan:=0; sumle:=0;
for i:=1 to n do 
if (i mod 2) = 0 then sumchan:=sumchan + i ;
writeln(‘sumchan=’, sumchan);
readln
end.
Tính tổng các số lẻ: gợi ý: điều kiện là: (i mod 2)0
3. mảng: Nhập vào mảng gồm N phần tử nguyên:
a. Tính tổng các phần tử chẵn.
b. Tính tổng các phần tử lẻ.
c. Đếm các phần tử chẵn
d. Đếm các phần tử lẻ