thuvienhoclieu com Đ 1Ề Đ ÔN T P H C K II Ề Ậ Ọ Ỳ Môn Tin h c 8ọ * Ph n 1 TNKQ (3,0 đi m) ầ ể Hãy l a ch n ch cái đ ng tr c câu tr l i mà em cho là đúng t câu 1 đ n 4 (M i câuự ọ ữ ứ ướ ả ờ ừ ế ỗ đúng[.]
Trang 1Đ 1Ề
Đ ÔN T P H C K II Ề Ậ Ọ Ỳ
Môn: Tin h c 8ọ
Hãy l a ch n ch cái đ ng tr ự ọ ữ ứ ướ c câu tr l i mà em cho là đúng t câu 1 đ n 4 (M i câu ả ờ ừ ế ỗ đúng đ ượ c 0,5 đi m) ể
Câu 1: L nh l p nào sau đây là đúng? ệ ặ
Câu 2: Câu l nh l p ệ ặ while…do nào d i đây là đúng: ướ
Câu 3: Các khai báo bi n m ng sau khai báo bi n m ng nào đúng:ế ả ế ả
Câu 4: 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 nh h n ch s cu i.ỉ ố ầ ỏ ơ ỉ ố ố
C. Ki u d li u có th là integer ho c real.ể ữ ệ ể ặ
Câu 5 (1,0 đi m): ể Cho đo n ch ng trình sau:ạ ươ
S:=0;
For i:=1 to 5 do S:=S+i;
Sau khi th c hi n l nh trên giá tr c a bi n S và i là:ự ệ ệ ị ủ ế
Câu 6 (4,0 đi m): ể Chương trình sau. Hãy tìm nh ng l i sai và s a l i cho đúng.ữ ỗ ử ạ
Program H C_N;
Uses Crt;
Var a,b,s,cv:= real;
Begin
While('Nhap chieu dai='); readln(a);
Write('Nhap chieu rong=');readln();
s=axb;
cv:(a+b):2;
Writeln('Dien tich hinh chu nhat la:’,s:6:2);
Writeln('Chu vi hinh chu nhat:',cv:6:2);
Readln;
End
Câu 7 (2,0 đi m): ể Cho đo n chạ ương trình:
S: =0 ; n:= 0;
While S < = 6 do Begin
n:= n+1;
S:= S+ n ; End;
Cho bi t giá tr c a bi n S và n sau khi th c hi n đo n chế ị ủ ế ự ệ ạ ương trình trên
Trang 2ĐÁP ÁN VÀ THANG ĐI M:Ể
Tr c nghi m khách quan (3,0 đi m) ắ ệ ể
T lu n (7,0 đi m) ự ậ ể
6
While('Nhap chieu dai='); Write('Nhap chieu dai=');
0,5 0,5 0,5 0,5 1,0 1,0 7
Sau khi th c hi n đo n chự ệ ạ ương trình trên, giá tr c a các bi n là:ị ủ ế S= 10
n=4
1,0 1,0
thuvienhoclieu.com
Đ 2Ề
Đ ÔN T P H C K II Ề Ậ Ọ Ỳ
Môn: Tin h c 8ọ
Thí sinh ch n ch cái ch k t qu mà em ch n là đúng và ghi vào t gi y làm bài ọ ữ ỉ ế ả ọ ờ ấ
Ca u 1ừ : Ca u le nh la p ừ ọ ở while…do co da ng u ng la :ự ự ủ ự ứ
A) While < ieàu kie n> do; <ca u le nh>; ủ ọ ừ ọ B) While < ieàu kie n> <ca u le nh> do;ủ ọ ừ ọ C) While <ca u le nh> do < ieàu kie n>;ừ ọ ủ ọ D) While < ieàu kie n> do <ca u le nh>;ủ ọ ừ ọ
C u 2 ừ : Húy cho bi t s l n l p c a c u l nh for sau đőy: “for i:=1 to 12 do … ”ế ố ầ ặ ủ ừ ệ
Ca u 3:ừ Thửực hie n oa n le nh sau, x nha n gia trũ bao nhie u: ọ ủ ự ọ ọ ự ừ
x:=7; if (x mod 3 = 2) then x:= x +1;
Ca u 5:ừ C u tr c r nh nh d ng đ y đ trong ng n ng l p tr nh Pascal c d ng:ấ ỳ ẽ ỏ ạ ầ ủ ụ ữ ậ ỡ ỳ ạ
A. if <câu l nh 1> then <câu l nh 2>;ệ ệ 2
Trang 3B. if <đi u ki n1> then <câu l nh1>;ề ệ ệ
C. if <đi u ki n> then < câu l nh 1> else <câu l nh 2>;ề ệ ệ ệ
D. if <đi u ki n> then <câu l nh>;ề ệ ệ Câu 6: Để tính tổng S=1/1+1/2 +1/3 + 1/4 + … +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;
b)for i:=1 to n do
if ( i mod 2=0) then S:=S + i Else S:= S + I;
c)for i:=1 to n do
S:=S + 1/i;
d)for i:=1 to n do
if ( i mod 2<>0) then S:=S + 1/i Else S:=S1/i;
Câu 7: Sau khi thực hiện chương trình j:= 1; for i:= 1 to 3 do j:=j+2; thì giá trị j in ra màn hình là?
Câu 8: Câu l nh nào saiệ :
Câu 9: Chọn khai báo hơp lệ
a) Var n: real;
Câu 10: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=(a[1]+a[2])*2+1; Giá trị của t là
Câu 11: Dịng l nh : For i:=0 to 1 do writeln('xx') s :ệ ẽ
A. Chép ra hai hàng ch a kí t "xx"ứ ự B. Chép ra m t hàng ch a kí t "xx"ộ ứ ự
tong:=0; While tong<=20 do tong:=tong+5;
được
so:=1; while so<=10 do write(so); so:=so+1;
Câu 1. M i câu l nh d i đây, giá tr c a bi n x s là bao nhiêu, n u tr c đĩ giá tr c a x:=5ỗ ệ ướ ị ủ ế ẽ ế ướ ị ủ (2 đ)
Trang 4d. If x<10 then x:=x; X=
(2,5đ)
Use Crt;
Var i, n : integer
Tong = longint;
Begin
Clrscr;
i=0; tong:=0;
While i:=10 do
Begin
If( i mod 4) = 0 then
tong:=tong+i;
i=i+1;
End
Writeln(Tong so chia het cho 4:,tong);
Readln;
End;
thuvienhoclieu.com
Đ 3Ề
Đ ƠN T P H C K II Ề Ậ Ọ Ỳ
Mơn: Tin h c 8ọ
Thí sinh ch n ch cái ch k t qu mà em ch n là đúng và ghi vào t gi y làm bài ọ ữ ỉ ế ả ọ ờ ấ
A. For <bi n đ m>= <giá tr đ u> to <giá tr cu i> do <câu l nh>;ế ế ị ầ ị ố ệ
B. For <bi n đ m>:= <giá tr đ u> to <giá tr cu i> do <câu l nh>;ế ế ị ầ ị ố ệ
C. For <bi n đ m>:= <giá tr cu i> to <giá tr đ u> do <câu l nh>;ế ế ị ố ị ầ ệ
D. For <bi n đ m>: <giá tr đ u> to <câu l nh> do <giá tr cu i>;ế ế ị ầ ệ ị ố Câu 2: Để tính tổng S=1 + 3 + 5 + … + n; em chọn đoạn lệnh:
a)for i:=1 to n do
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
if ( i mod 2<>0) then S:=S + 1;
d)for i:=1 to n do
if ( i mod 2=0) then S:=S + i;
Câu 3: Giá tr c a S khi th c hi n đo n ch ng trình sau, s là:ị ủ ự ệ ạ ươ ẽ
S:=0; While s<=6 do s:=s+2;
a) 4 b)8 c) 6 d) Khơng xác đ nhị Câu 4: i:=1; j:= 2;
while i<=3 do i:=i+2; j:=j+i;
Sau đo n trên, giá tr c a ạ ị ủ i s b ngẽ ằ
4
Trang 5a.3 b.5 c.8 d.Giá tr khácị Sau đo n trên, giá tr c a ạ ị ủ j s b ngẽ ằ
a) Var n: real;
A. Chép ra hai hàng ch a kí t "00"ứ ự B. Chép ra m t hàng ch a kí t "00"ộ ứ ự
A) While <đi u ki n> do; <câu l nh>; ề ệ ệ B) While <đi u ki n> <câu l nh> do;ề ệ ệ
C) While <đi u ki n> do <câu l nh>;ề ệ ệ D) While <câu l nh> do <đi u ki n>;ệ ề ệ
a) for i:=1 to n do
c) for i:=1 to n do
if ( i mod 2=1) then S:=S + 1/i Else S:= S + 1;
d) for i:=1 to n do
if ( i mod 2=0) then S:=S + 1/i Else S:= S + 1;
x:=7; if (x mod 3 = 2) then x:= x +1;
a. If (1+2=3) then x:=x+1
b. If (1+1=3) or (2+2=3) then x:=x+2
c. If (2+3=5) and (3+4=7) then x:=x*3
e. If (45 mod 3=0) then x:=x+1;
x =
x =
x =
x = Câu 2. Hãy ch ra l i c a đo n ch ng trình sau, sỉ ỗ ủ ạ ươ ử ạa l i thành chương trình hoàn ch nhỉ : (2.5đ)
Uses Rct;
Var i, n : interger;
Tong : longint
Begin
Clrscr;
tong=0;
For i=1 to 10 do
Trang 6tong=tong+i;
End
Writeln(Tong so chia het cho 4:,tong);
Readln;
End;
thuvienhoclieu.com
Đ 3Ề
Đ ÔN T P H C K II Ề Ậ Ọ Ỳ
Môn: Tin h c 8ọ
Caâu 1. M i câu l nh d i đây, giá tr c a bi n x s là bao nhiêu, n u tr c đó giá tr c a x:=ỗ ệ ướ ị ủ ế ẽ ế ướ ị ủ
5 (2 đ)
(2,5ñ)
6
Trang 7Var n,i : integer;
S : real;
Begin
Writeln(‘hay nhap n:’);
Readln(n);
S:=0;
i:=1;
While i<=n do
Begin s:=s+i;
i:=i+2;
end;
writeln(‘tong s la:’, s);
readln;
end
thuvienhoclieu.com
Đ 4Ề
Đ ÔN T P H C K II Ề Ậ Ọ Ỳ
Môn: Tin h c 8ọ
a. If (1+2=3) then x:=x+1
b. If (1+1=3) or (2+2=3) then x:=x+2
c. If (2+3=5) and (3+4=7) then x:=x*3
e. If (45 mod 3=0) then x:=x+1;
x =2
x =1
x = 3
x = 2
(2.5ñ)
Trang 8Var i, n : interger; Var i, n : integer;
Uses crt;
Var n,i : integer;
S : real;
Begin
Writeln(‘hay nhap n:’);
Readln(n);
S:=0;
i:=2;
While i<=n do
Begin s:=s+i;
i:=i+2;
end;
writeln(‘tong s la:’, s);
readln;
end
thuvienhoclieu.com
Đ 5Ề
Đ ÔN T P H C K II Ề Ậ Ọ Ỳ
Môn: Tin h c 8ọ
Câu 1: Ví d nào sau đây th hi n c u trúc l p v i s l n bi t trụ ể ệ ấ ặ ớ ố ầ ế ước?
A. For <bi n đ m>= <giá tr đ u> to <giá tr cu i> do <câu l nh>;ế ế ị ầ ị ố ệ
B. For <bi n đ m>:= <giá tr đ u> to <giá tr cu i> do <câu l nh>;ế ế ị ầ ị ố ệ
C. For <bi n đ m>:= <giá tr cu i> to <giá tr đ u> do <câu l nh>;ế ế ị ố ị ầ ệ
8
Trang 9D. For <bi n đ m>: <giá tr đ u> to <câu l nh> do <giá tr cu i>;ế ế ị ầ ệ ị ố
Giá tr c a bi n s b ng bao nhiêu?ị ủ ế ằ
A. While <đi u ki nề ệ > to <câu l nhệ >;
B. While <đi u ki nề ệ > to <câu l nh1ệ > do <câu l nh 2ệ >;
C. While <đi u ki nề ệ > do <câu l nhệ >;
D. While <đi u ki nề ệ >; do <câu l nhệ >;
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’);
D. While (n mod i<> 0) do i:= i+ 1;
A. Th c hi n <câu l nh> sau t khóa Do.ự ệ ệ ừ
B. Ki m tra giá tr c a <đi u ki n>.ể ị ủ ề ệ
C. Th c hi n < câu l nh > sau t khóa Then.ự ệ ệ ừ
D. Ki m tra <câu l nh>.ể ệ
a) for i:=1 to 100 do writeln(‘A’);
b) for i:=5 to 10 do writeln(‘A’);
c) S:=0; n:=0;
While S<=10 do
Begin n:=n+1; S:=S+n; end;
d) S:=1; n:=0;
While S<5 do Begin n:=S+n; S:=S+1; end;
a) For i:=1.5 to 15.5 do writeln(‘A’);
b) For i:=1 to 10 do; writeln(‘A’);
Câu 3 (1 đi m): ể Sau khi ch y chạ ương trình dưới đây k t qu in ra màn hình s là gì? ế ả ẽ
Trang 10Câu 4 (1 đi m):ể Vi t chế ương trình nh p n s nguyên t bàn phím. In các s l ra màn hìnhậ ố ừ ố ẻ (S d ng câu l nh l p v i s l n bi t trử ụ ệ ặ ớ ố ầ ế ước)
ĐÁP ÁN
10