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

ÑEÀ CÖÔNG OÂN TAÄP HOÏC KYØ 2
MOÂN: TIN HOÏC 8 (Naêm hoïc 2010 – 2011)
I. PHAÀN TRAÉC NGHIEÄM.
Caâu 1: Phaùt bieåu naøo sau ñaây laø ñuùng ?
A. 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.
B. 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.
C. 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
D. 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 2: Leänh laëp naøo sau ñaây laø ñuùng?
A. For = to do ;
B. For := to do ;
C. For := to do ;
D. For : to do ;
Caâu 3: Caâu leänh laëp whiledo coù daïng ñuùng laø:
	A. While do; ; 	B. While do;
	C. While do ;	D. While do ;
Caâu 4: Ñeå tính toång S=1+2+3+ 4+ 5 +  + n; em choïn ñoaïn leänh:
A. s:=0; i:=0;
 While i<=n do 
	 S:=S + 1;
B. s:=0; i:=0;
 While i<=n do 
 If (I mod 2)= 1 Then S:=S + i;
C. 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;
Caâu 5: Choïn caùch khai baùo bieán maûng ñuùng:
	A. Var a: array[1100] 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;
Caâu 6: Cho S vaø i laø bieán nguyeân. Khi chaïy ñoaïn chöông trình:
 s:=0; i:=1
 while i<=5 do 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. 6	B. 9	C. 14	D. 20
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
	A. +1	B. -1
	C. Moät giaù trò baát kyø	D. Moät giaù trò khaùc khoâng
Caâu 8: 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 9: Caâu leänh Pascal naøo sau ñaây laø hôïp leä?
	A. For i:=100 to 1 do writeln(‘A’);	B. For i:= 1 to 10 do writeln(‘A’);
	C. For i:=1.5 to 10.5 do writeln(‘A’);	D. For i= 1 to 10 do writeln(‘A’);
Caâu 10: 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+1;
	Writeln(s);
 Keát quaû in leân maøn hình cuûa s laø :
	A. 11	B. 15	C. 10	D. 5
Caâu 11: Laàn löôït thöïc hieän caâu leänh for i:= 1 to 3.5 do writeln(i:3:1); seõ vieát ra maøn hình?
	A. Thöù töï cuûa bieán ñeám, chieám 3 choã vaø laáy 1 chöõ soá sau phaàn thaäp phaân	B. Vieát soá 1 roài vieát soá 3.5
	C. Chæ vieát soá 3.5 maø thoâi	D. Khoâng thöïc hieän ñöôïc vì giaù trò cuûa bieán ñeám coù kieåu thöù töï laø Real
Caâu 12: 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
6 laàn
5 laàn
10
Caâu 13: 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 mod2)=1 then S:=S + I else i:=i+1;
Caâu 14: Ñ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 15: Ñ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 16: Ñ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;
Caâu 17: Ñeå ñeám coù bao nhieâu soá leû nhoû hôn hay baèng n ; em choïn ñoaïn leänh:
for i:=1 to n do
	if ( I mod 2)0 then S:=S + 1;
for i:=1 to n do
	if ( I mod 2) =0 then S:=S + 1;
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 + I;
Caâu 18: Vôùi ngoân ngöõ laäp trình Passcal caâu leänh laëp for i:=1 to 10 do x:=x+1; thì bieán ñeám i phaûi ñöôïc khai baùo laø kieåu döõ lieäu
Integer;
Real;
String
Taát caû caùc kieåu treân ñeàu ñöôïc
Caâu 19: Sau khi thöïc hieän ñoaïn chöông trình j:= 0; for i:= 1 to 3 do j:=j+2; thì giaù trò in ra maøn hình laø?
	4
6 
8
10
Caâu 20: Ñoaïn leänh sau ñaây So:=1; While so<10 do writeln(so); So:=so+1; Seõ cho keát quaû gì?
In ra caùc soá töø 1 ñeán 9
In ra caùc soá töø 1 ñeán 10
Khoâng phöông aùn naøo ñuùng
In voâ haïn caùc soá 1, moãi soá treân moät doøng
Caâu 21: 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 n:=n+1; s:=s+n;
9 laàn
10 laàn
11 laàn
Voâ haïn laàn
Caâu 22: Haõy tìm hieåu ñoaïn chöông trình sau ñaây. Sau khi ñoaïn chöông trình naøy ñöôïc thöïc hieän, giaù trò cuûa x baèng bao nhieâu?
X:=0; Tong:=0;
While tong<=20 do
Begin
Writeln(tong); Tong:=tong+1;
End.
X:=tong;
20
21
Khoâng xaùc ñònh
0
Caâu 23: Cuù phaùp khai baùo bieán maûng trong Pascal laø:
var ; array [..] of ;
var : array [] of ;
var : array [..] of ;
var : array [] for ;
Caâu 24: Choïn khai baùo hôïp leä:
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;
Caâu 25: Trong phaàn meàm Finger Break Out möùc chôi Advanced laø möùc chôi:
	A. Baét ñaàu	B. Bình thöôøng	C. Trung bình	D. Naâng cao
Caâu 26: Trong phaàn meàm Sun Times ñeå bieát thôøi gian giöõa tröa, ta choïn muïc naøo
	A. Sunset	B. Sunrise	C. Day lengh	D. Midday
Caâu 27: Ñeå coá ñònh vò trí vaø thôøi gian quan saùt ta vaøo:
	A. Option \ Maps \ Show Sky Clour	B. Option \ Maps \ Anchor Time To
	C. Option \ Maps \ Hover Update	D. Option \ Maps \ Currenttly Sunset
Caâu 28: Ñeå xem chi tieát thôøi gian maët trôøi moïc, laën trong suoát 365 ngaøy cuûa moät naêm cuûa moät ñòa ñieåm, vò trí treân traùi ñaát, ta vaø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
Caâu 29: Phaàn môû roäng cuûa teäp hình trong phaàn meàm Geogebra laø gì:
	A. bgg	B. gsb	C. ggb	D. Gbb
Caâu 30: Trong phaàn meàm Geogebra, coâng cuï taïo trung ñieåm ñoaïn thaúng laø :
	A. 	B. 	C. 	D. 
Caâu 31: Phaàn meàm naøo sau ñaây xem ñöôïc hieän töôïng nhaät thöïc vaø nguyeät thöïc?
	A. Finger Break Out	B. Sun Times.
	C. Sun Times vaø Yenka	D. Caâu B vaø C.
Caâu 32: Phaàn meàm Finger Break Out duøng ñeå laøm gì?
	A. Xem thoâng tin thôøi gian ngaøy vaø ñeâm	B. Xem thoâng tin nhaät thöïc, nguyeät thöïc.
	C. Luyeän goõ baøn phím nhanh, chính xaùc	D. Khoâng coù ñaùp aùn ñuù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
Caâu 34: Gheùp noäi dung ôû coät A sao cho phuø hôïp ôû coät B
Coät A
Coät B
Traû lôøi
1. Fi nger Bre ck out laø pm
2. Quan saùt toaøn caûnh theá giôùi
3. Geogebra laø phaàn meàm
4. Taïo hình khoâng gian
a. Phaàn meàm Sun ti mes
 b. Veõ bieåu ñoà toaùn hoïc
c. Phaàn m eàm Yen ka
d. Veõ hình h oïc ñôn giaûn
e. Luyeän goõ phím nhanh baên g 10 ngoùn tay
1 ........................... 
2 ...........................
3............................
4............................
Caâu 35: Ñieàn X vaøo caùc oâ sao cho phuø hôïp vaø giaûi thích vì sao
Caâu
Ñuùng 
Sai
Giaûi thích
a) for i=1 to 10 do writeln('A');
b) var X: Array[5..10] Of Real;
c) X:=10; while X<30 do X: = X+5;
d) if x>5 then a:=b; else m := n;
Caâu 36: Nhaän xeùt noäi dung vaø ñaùnh daáu “X” vaøo coät ÑUÙNG hoaëc SAI.
Noäi dung
Ñuùng
Sai
1. Khoâng neân thay ñoåi giaù trò cuûa bieán ñeám trong caâu leänh laëp For  do, ví duï caâu leänh laëp sau ñaây laø khoâng neân söû duïng For i:=1 to n do i:=i+2;
2. Trong caâu leänh laëp for bieán ñeám:=giaù trò ñaàu to giaù trò cuoái do caâu leänh;
Neáu giaù trò ñaàu < giaù trò cuoái thì chöông trình dòch seõ baùo loãi ñeå ta chænh söõa laïi
3. Caâu leänh laëp For do raát thuaän tieän vaø höõu ích trong vieäc traùnh phaûi vieát laëp ñi laëp laïi nhieàu laàn moät caâu leänh naøo ñoù. Chaúng haïn ñeå in ra caùc soá nguyeân hôn keùm nhau 1 ñôn vò töø 1 ñeán 15 ta chæ vieát 1 caâu leänh sau For i:=1 to 15 do writeln(i:3:1);
4. Moïi caâu leänh laëp Whiledo ñeàu coù theå thay theá moät caùch thích hôïp bôûi caâu leänh For..do
5. 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”
II. PHAÀN TỰ LUẬN: 
Caâu 1: Vieát ñoaïn chöông trình tính toång caùc soá töø 10 ñeán 100 (söû duïng For ... do vaø While  do).
Caâu 2: Vieát chöông trình nhaäp vaøo ñieåm toaùn vaø ngöõ vaên cuûa caùc baïn, goàm n baïn nhaäp töø baøn phím, sau ñoù in ra ñieåm trung bình moãi baïn theo coâng thöùc (ñieåm trung bình = (ñieåm toaùn + ñieåm ngöõ vaên)/2)
Caâu 3: Vieát chöông trình tính trung bình coäng caùc soá cuûa daõy soá goàm n soá nhaäp töø baøn phím?
Caâu 4: Vieát chöông trình tính toång:
Trong ñoù n laø soá nguyeân nhaäp töø baøn phím
Caâu 5: Vieát chöông trình thöïc hieän caùc coâng vieäc sau:
a. Cho pheùp nhaäp vaøo 1 daõy soá goàm n soá (vôùi n>1 vaø nhaäp töø baøn phím)
b. In ra maøn hình soá lôùn nhaát.
c. In ra maøn hình nhöõng soá lôùn hôn 5 vaø khoâng chia heát cho 2.
Caâu 6: Veõ hình: (Söû duïng phaàn meàm Geogebra)
a). Trình baøy caùc böôùc veõ hình troøn noäi tieäp tam giaùc ABC ( cho tröôùc)
b). Trình baøy caùc böôùc veø hình vuoâng caïnh 4 Cm.
Chuùc caùc em thaønh coâng!	 GVBM
	 Nguyeãn Vaên Phong
HÖÔÙNG DAÃN
Caâu 1: Vieát ñoaïn chöông trình tính toång caùc soá töø 10 ñeán 100 (söû duïng For ... do vaø While  do).
* Söû duïng For  Do 
Var s, i : integer;
Begin
s:=0;
For i:=10 to 100 do
s:=s+i;
Writeln(‘Toång caàn tìm laø ‘, s);
Readln;
End.
* Söû duïng While  DO 
Var s, i : integer;
Begin
	s:=0; i:=10;
While i<=100 do
 Begin
 s:=s+i;
 i:=i+1;
 end;
Writeln(‘Toång caàn tìm laø:’,s);
Readln;
End.
Caâu 2: Vieát chöông trình nhaäp vaøo ñieåm toaùn vaø ngöõ vaên cuûa caùc baïn, goàm n baïn nhaäp töø baøn phím, sau ñoù in ra ñieåm trung bình moãi baïn theo coâng thöùc (ñieåm trung bình = (ñieåm toaùn + ñieåm ngöõ vaên)/2)
Program bai2;
Uses crt;
Var DT, DV:array[1..100] of real;
 i, n: integer; TB:real;
Begin
 Write(‘Nhaäp soá baïn trong lôùp, n=’);
	Readln(n);
	Writeln(‘Nhaäp ñieåm Toaùn vaø Vaên ‘);
	For i:=1 to n do
	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:= 1 to n do
Begin
TB:=(DT[i]+DV[i])/2;
Writeln(‘Baïn soâ’,i,’laø’,TB:3:2);
End;
Readln;
END.
{----------------------------------------------------------------------------------------------------------------------------}
Caâu 3: Vieát chöông trình tính trung bình coäng caùc soá cuûa daõy soá goàm n soá nhaäp töø baøn phím?
Program bai3;
Uses crt;
Var A : array[1..100] of integer ;
 i, n, t: integer; tb: real;
Begin
 Write(‘Nhaäp soá phaàn töû cuûa daõy n = ‘);
 Readln(n);
 Writeln(‘Nhaäp caùc giaù trò phaàn töû ‘);
 For i:= 1 to n do
 Begin
 Write(‘A[‘, i,’]=’);
 Readln(A[i]);
 End;
 t:=0;
 For i:=1 to n do
 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:
Trong ñoù n laø soá nguyeân nhaäp töø baø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:= 1 to n do S: = S + 1/i;
	Writeln(‘Tong can tim la: ‘, S:6:2);
	Readln;
End.
{----------------------------------------------------------------------------------------------------------------------}
Caâu 5: Moät soá ngoân ngöõ laäp trình, ví duï Pascal, khoâng coù saün haøm tính luõy thöøa. Haõy moâ taû thuaät toaùn vaø söû duïng caâu leänh laëp vôùi soá laàn xaùc ñònh tröôùc ñeå vieát chöông trình Pascal tính luõy thöøa baäc n cuûa soá nguyeâ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 do A:=A*X;
 Writeln(x,' mu ',n,' bang ',A);
End.
Caâu 31: 
Caâu
Ñuùng 
Sai
Giaûi thích
a) for i=1 to 10 do writeln('A');
x
Thieáu daáu : sau bieán i
b) var X: Array[5..10] Of Real;
x
c) X:=10; while X<30 do X: = X+5;
x
d) if x>5 then a:=b; else m := n;
x
Thöøa daáu ; tröôùc else