Tạo Trắc Nghiệm

Đề thi Học kì 1 Tin học 11 có đáp án (Đề 4)

23 câu · Đề cuối kì 1

3/23 câu đang cập nhật đáp án (ghi rõ ở từng câu), chưa tính điểm; điểm tính trên 20 câu còn lại.

Xem trước: đọc nhanh mọi câu dạng chữ, chưa tính giờ, chưa hiện đáp án.
Luyện tập: chọn đáp án là biết đúng sai ngay, kèm lời giải.
Thi thử: nộp bài mới chấm điểm và hiện lời giải.

Câu 1

Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:

Var M, N, I: INTEGER;

P, A, B: REAL;

X: EXTENDED;

    K: WORD;

Đáp án và lời giải

Đáp án: B

Câu 2

Biết rằng a, b, c là độ dài ba cạnh của một tam giác, biểu thức quan hệ nào sau đây cho kết quả true?

Đáp án và lời giải

Đáp án: A

Câu 3

Xét biểu thức logic: (m mod 100 < 10) and (m div 100 > 0). Với giá trị nào của m dưới đây biểu thức trên cho giá trị false?

Đáp án và lời giải

Đáp án: D

Câu 4

Biểu thức Pascal: (a+cos(x))/sqrt(sqr(a)+sqr(x)+1) khi chuyển sang toán học có dạng:

Đáp án và lời giải

Đáp án: A

Câu 5

Cho đoạn chương trình sau: x:= 10; y:= 30; writeln(‘x+y’); kết quả màn hình sẽ là gì?

Đáp án và lời giải

Đáp án: B

Câu 6

Biến X có thể nhận giá trị: 0.5; 1.5; 2.5; 3.5; 4.5 và biến Y có thể nhận các giá trị 0; 1; 3; 5; 7; 9. Khai báo biến nào sau đây là đúng?

Đáp án và lời giải

Đáp án: A

Câu 7

Biểu thức ((35 mod 9) div 5) có kết quả là mấy?

Đáp án và lời giải

Đáp án: A

Câu 8

Cho đoạn chương trình:

Kq:=1;

For i:=1 to 5 do

Kq:=Kq*i;

Kết quả sau khi chạy là :

Đáp án và lời giải

Đáp án: B

Câu 9

Cho biết kết quả của đoạn chương trình sau?

N:=5; Tong:=0;

For i:=1 to n do

If (i mod 2=0) then Tong:=Tong + i;

Write(Tong);

Đáp án và lời giải

Đáp án: C

Câu 10

Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình:

i:=1;

While i <5 do

Begin

       if I mod 3 = 0 then Write(‘TIN HOC’);

i:=i+1;

End;

Chữ TIN HOC được in ra màn hình mấy lần

Đáp án và lời giải

Đáp án: C

Câu 11

Xét biểu thức logic: (n mod 100 > 10) and (n div 100 < 10)

Với giá trị nào của n sau đây, biểu thức có giá trị đúng?

Đáp án và lời giải

Đáp án: A

Câu 12

Biểu thức nào không phải là biểu thức trong Pascal?

Đáp án và lời giải

Đáp án: B

Câu 13

Trong pascal, biểu diễn sqr(x) có nghĩa là:

Đáp án và lời giải

Đáp án: A

Câu 14

Phép toán nào đúng khi số nguyên A là số lẻ:

Đáp án và lời giải

Đáp án: B

Câu 15

Cho biết kết quả của biểu thức (2*((45 mod 3) +12)) div 5 là bao nhiêu?

Đáp án và lời giải

Đáp án: B

Câu 16

Biểu thức 3 div 7 có giá trị là:

Đáp án và lời giải

Đáp án: C

Câu 17

Để đưa ra màn hình giá trị của biến a kiểu nguyên và biến b kiểu thực ta dùng lệnh:

Đáp án và lời giải

Đáp án: C

Câu 18

Để nhập giá trị cho 2 biến a và b ta dùng lệnh:

Đáp án và lời giải

Đáp án: D

Câu 19

Để biên dịch chương trình, trong Pascal ta nhấn tổ hợp phím:

Đáp án và lời giải

Đáp án: B

Câu 20

Cho biết kết quả sau khi thực hiện lệnh:

Begin

a := 100;  b := 30;  x := a div b; Write(x);

End.

Đáp án và lời giải

Đáp án: C

Câu 21

Câu tự luận

Cho giá trị a=31, b=16, c=8, d=5. Hãy xác định giá trị của biểu thức D:

D:= sqr(d) + b > c*d + a

(Tính cụ thể từng bước)

Đáp án tham khảo

Lời giải của đề gốc để bạn tự đối chiếu; câu tự luận không tính điểm.

sqr(d) + b = 25 + 16 = 41

c*d + a = 40 + 31 = 71

41 >= 71 → D := FALSE

Câu 22

Câu tự luận

Viết câu lệnh rẽ nhánh tính:

Đáp án tham khảo

Lời giải của đề gốc để bạn tự đối chiếu; câu tự luận không tính điểm.

Cách 1:

if (x >= 0) and (y >= 0)

then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);

Cách 2:

if ( x < 0) and (y < 0)

then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;

Câu 23

Câu tự luận

Viết chương trình:

- Nhập mảng một chiều các số nguyên (không quá 100 phần tử).

- Đếm và tính tổng các số chẵn và là bội của 3. Thông báo kết quả ra màn hình.

Đáp án tham khảo

Lời giải của đề gốc để bạn tự đối chiếu; câu tự luận không tính điểm.

Program bt_3;

Uses crt;

Var a: array[1..100] of integer;

Dem, Tong, n, i: integer;

Begin

Clrscr;

 Writeln(‘nhap so phan tu, n=’);

 Readln (n);

 for i := 1 to n do

 begin

 writeln(‘nhap gia trij phan tu thu ’,i,’ =’);

 readln(a[i]);

 end;

 Dem:=0;

 Tong:=0;

 For i:=1 to n do

 If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.