Tạo Trắc Nghiệm

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

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

2/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 21 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, C: REAL;

     X: EXTENDED;

 K:WORD;

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

Đáp án: D

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: A

Câu 4

Biểu thức Pascal B: = Sqr(sqrt(x1-x2)+sqrt(y1-y2)) 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:

readln(x);

y := (x+2)*x – 5 ;

writeln(‘gia tri cua y = ’, y);

Nếu nhập x = 2 thì có những thông tin gì ở ngoài màn hình?

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

Đáp án: C

Câu 6

Biến X có thể nhận giá trị: 0; 1; 3; 5; 7; 9 và biến Y có thể nhận các giá trị 0.5; 1.5; 2.5; 3.5; 4.5. 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 3) có kết quả là mấy?

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

Đáp án: D

Câu 8

Trong NNLT Pascal câu lệnh Write( ‘5 x 4 = ‘ , 5*4 ) ; viết gì ra màn hình là :

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

Đáp án: A

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 + 1;

Write(Tong);

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

Đáp án: D

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 = 1 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: B

Câu 11

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

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

Đáp án: C

Câu 12

Xét biểu thức logic: (n mod 100 > 10) or (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 13

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

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

Đáp án: B

Câu 14

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: A

Câu 15

Phép toán nào đúng khi số nguyên A chia hết cho 3:

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

Đáp án: B

Câu 16

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

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

Đáp án: B

Câu 17

Để nhập giá trị cho 3 biến x, y và z ta dùng lệnh:

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

Đáp án: C

Câu 18

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

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

Đáp án: A

Câu 19

Để đóng cửa sổ chương trình, trong Pascal ta dùng tổ hợp phím:

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

Đáp án: C

Câu 20

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

Begin

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

End.

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

Đáp án: D

Câu 21

Câu tự luận

Cho giá trị a = 49, b = 17, c = 6, k = 4. Hãy xác định giá trị của biểu thức B:

B := Sqrt(a) + b div k >= a mod c + k

(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.

Sqrt(A) + B div K = 7 + 1 = 8

A mod C + K = 1 + 4 = 5

8 >= 5 → B := TRUE

Câu 22

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

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

Đáp án: A

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ố lẻ 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 = 1) 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.