CÂU HỎI TRẮC NGHIỆM (P3) docx

CÂU HỎI TRẮC NGHIỆM
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 10 do s := s+i;
writeln(s);
Kết quả in lên màn hình là :
a) s = 11
b) s = 55
c) s = 100
d) s = 101
Câu 2: Cho S, i và N>0 là các biến nguyên. Ðể tính S = N!, chọn câu nào :
a) S := 1; For i := 1 to N do S := S * i;
b) S := 0; For i := 1 to N do S := S * i;
c) S := 1; For i := 1 to N do S := S * N;
d) S := 1; For i:= 1 to N do S := S + i;
Câu 3: Cho S = 1
2
+ 2
2
+ + 100
2
. Nhóm lệnh nào tính sai Giá trị của S:
a) S:=0; FOR i:=1 TO 100 DO S := S + i*i;
b) S:=0; FOR i:=1 TO 100 DO S := S + SQR(i);
c) S:=0; FOR i:=100 DOWNTO 1 DO S := S + i*i;
d) S:=1; FOR i:=1 TO 100 DO S := S + i*i;
Câu 4-Khi chạy chương trình :
Var S, i, j : Integer;
Begin
S := 0;
for i:= 1 to 3 do

for j:= 1 to 4 do S := S + 1 ;
End.
Giá trị sau cùng của S là :
a) 0
b) 12
c) 3
d) 4
Câu 5: Cho S và i biến kiểu nguyên. Khi chạy đoạn chương trình :
S:= 0; i:= 1;
while i<= 6 do
begin
S:= S + i;
i:= i + 2;
end;
Giá trị sau cùng của S là :
a) 6
b) 9
c) 11
d) 0
Câu 6: Khi chạy chương trình :
Var S, i : Integer;
Begin
S:= 0; i:= 1;
Repeat
S:= S + i * i;
i:= i + 1;
Until i > 4 ;
End.
Giá trị sau cùng của S là :
a) 0

b) 14
c) 16
d) 30
Câu 7: Cho i là biến nguyên. Khi chạy đoạn chương trình :
i := 5;
Repeat
i := i + 1;
Until i > 4 ;
Giá trị sau cùng của i là :
a) 6
b) 4
c) 5
d) 0
Câu 8: Cho m, n, i là các biến nguyên. Khi chạy đoạn chương trình :
m:=4; n:=5; i:=5;
Repeat
i:=i+1;
Until (i Mod m = 0) and (i Mod n = 0);
Giátrị sau cùng của i là :
a) 20
b) 5
c) 4
d) 0
Câu 9: Cho chương trình :
Var A : Real;
Begin
. . .
While A = 0 do
begin
write ('nhap A # 0:');

Readln (A);
end;
End.
Ðể lệnh Readln(A) được thực hiện ít nhất một lần, phải điền vào chỗ
lệnh nào trong các lệnh dưới đây ?
a) A:=0;
b) A:=1;
c) A:=-1;
d) A <> 0;
Câu 10: Giảsử các khai báo biến đều hợp lệ. Ðể tính S = 10!, chọn câu nào
:
a) S := 1; i := 1;
while i<= 10 do S := S * i;
i := i + 1;
b) S := 1; i := 1;
while i<= 10 do i := i + 1;
S := S * i;
c) S := 0; i := 1;
while i<= 10 do
begin
S := S * i;
i := i + 1;
end;
d) S := 1; i := 1;
while i<= 10 do
begin
S := S * i;
i := i + 1;
end;