Trắc nghiệm Tin học đại cương
6
303001 Kết quả thực hiện chương trình sau đây là gì?
var
x, y, z, S: real;
begin
write('Nạp 3 số thực '); readln(x, y, z);
if x > y then S := x else S := y; if z > S then S := z;
writeln(S:10:2); readln
end.
1) Hiện số nhỏ nhất trong 3 số thực.
2) Hiện số lớn nhất trong 3 số thực.
3) Hiện số đứng cuối trong 3 số thực.
4) Cả 2 và 3 đều đúng.
3002 Kết quả thực hiện chương trình sau đây là gì?
var
x, y: real;
begin
write('x = ?, y = ? '); readln(x, y);
if x < 0 then y := -1 else if x = 0 then y := 0 else y:= 1; writeln(y:8:2); readln
end.
1) Xét dấu và hiện dấu của x.
2) Sao chép dấu của x vào y rồi hiện ra.
3) Tính và hiện giá trị của hàm Sg(x) = -1 nếu x < 0, 0 nếu x = 0 và 1 nếu x =1.
4) Cả 2 và 3 đều đúng.
333301 Những số nào sẽ được hiện ra khi thực hiện chương trình sau đây?
var
i: integer;
begin
for i := 1 to 9999 do
if (i mod 100 <> 0) and (i mod 4 = 0)
or (i mod 400 = 0) then writeln(i:5);
readln
end.
1) Những số nguyên là bội số của 4 trong phạm vi từ 1 đến 9999.
2) Những số nguyên là bội số của 4 hay 400 nhưng không là bội số của 100.
3) Những số nguyên không chia hết cho 100 mà chia hết cho 4 hoặc những số
nguyên chia hết cho 400 trong phạm vi từ 1 đến 9999.
4) Những số nguyên cách nhau 4 trong phạm vi từ 1 đến 9999.
3302 Đầu năm 1998 một khách hàng gửi S đồng vào ngân hàng, L•i suất cố
định hàng năm trong thời kỳ từ 1998 đến 2006 là P%. Trong thời kỳ này
khách hàng không gửi thêm hay rút ra. Chương trình sau đây có tác dụng gì?
const
m = 1998;
n = 2006;
var
i: integer;
S, P, SD: real;
begin
write('Nap S va P? '); readln(S, P);
SD := S;
for i := m+1 to n do
begin
SD := SD + P/100*SD; writeln(SD:15:2)
end;
readln
end.
1) Tính khoản tiền lãi tăng thêm hàng năm từ 1998 đến 2006.
2) Tính và hiện số dư của tài khoản vào đầu năm 2006.
3) Chương trình có lỗi nên không hiện ra được gì.
4) Tính và hiện số dư trong tài khoản của khách hàng vào đầu các năm từ 1999
đến 2006
3303 Gửi tiết kiệm S đô với lãi suất cố định hàng năm là P%, X là số cho
trước. S > 0, P > 0 và S < X. Chương trình sau đây có tác dụng gì?
var
S, X, P, SD: real;
i: integer;
begin
write('S, X, P? '); readln(S, X, P);
SD := S; i:=0;
while SD < X do
begin
SD:= SD + SD*P/100; i := i +1
end;
witeln(i); readln
end.
1) Tính số dư (vốn + lãi) sau mỗi năm gửi tiền.
2) Hiện số năm cần chờ đợi để số dư đạt từ X trở lên.
3) Đếm và hiện số lần phải cộng thêm tiền lãi vào số dư của tài khoản tiết kiệm
sao cho số dư vẫn không lớn hơn X.
4) Chương trình có lỗi nên không thể xác định được kết quả.
3304 Giá trị ban đầu của tài sản cố định là B, tỉ lệ khấu hao sau mỗi năm là
K%. TL là giá trị thanh lý. TL > 0, K > 0 và B > TL. Chương trình sau đây có
tác dụng gì?
var
B, TL, K, GTCL: real;
i: integer;
begin
write('B, TL, K? '); readln(B, TL, K);
GTCL := B; i:=0;
while GTCL > TL do
begin
GTCL := GTCL - GTCL*K/100; i := i +1
end;
write(i); readln
end.
1) Đếm và hiện số lần phải trừ giá trị khấu hao khỏi giá trị còn lại của tài sản sao
cho giá trị còn lại của tài sản vẫn chưa giảm quá mức phải thanh lý.
2) Chương trình có một nhóm lệnh lặp lại vô hạn lần nên phải ấn Ctrl+Break để
ngừng.
3) Tính giá trị còn lại của tài sản sau mỗi năm sử dụng đồng thời đếm số năm ấy.
4) Hiện số năm sử dụng tài sản trước khi giá trị còn lại giảm tới hay giảm quá mức
phải thanh lý.
3305 Có n người, 1< n <= 150. ti là tuổi của người thứ i (i = 1...n). Chương
trình sau đây làm việc gì?
var
n, i, j, temp, count: integer;
t: array[1..150] of integer;
begin