Tạo Trắc Nghiệm

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

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, J: INTEGER;

      P, A, B: REAL;

      X: EXTENDED;

   K:WORD;

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

Đáp án: C

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ị true?

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

Đáp án: B

Câu 4

Biểu thức: sqr(sqrt(x+y)/x-sqr(x-y)/y) viết trong toán học sẽ là biểu thức nào dưới đây?

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

Đáp án: A

Câu 5

Trong cú pháp khai báo biến, danh sách biến một hoặc nhiều tên biến, các tên biến được viết cách nhau bởi:

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

Đáp án: D

Câu 6

Trong 1 chương trình, biến M có thể nhận các giá trị: 10, 15, 20, 30, 40 và biến N có thể nhận các giá trị: 1.0, 1.5, 2.0, 2.5, 3.0. Khai báo nào trong các khai báo sau là đúng?

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

Đáp án: C

Câu 7

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 3=0) then Tong:=Tong + i;

Write(Tong);

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

Đáp án: A

Câu 8

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

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

Đáp án: D

Câu 9

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

Kq:=0;

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

Câu 10

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

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

Đáp án: B

Câu 11

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

Câu 12

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

Câu 13

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ị sai?

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

Đáp án: A

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

Câu 15

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

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

Đáp án: D

Câu 16

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

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

Đáp án: A

Câu 17

Để nhập giá trị cho 2 biến x và y 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 nguyên và biến y kiểu thực ta dùng lệnh:

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

Đáp án: C

Câu 19

Để chạy 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 mod b ; Write(x);

End.

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

Đáp án: A

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

C := a mod c + d >= sqrt(b) + c

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

a mod c + d = 7 + 5 = 12

sqrt(b) + c = 4 + 8 = 12

12 >= 12 → C := TRUE

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 B:= sqrt(x) + sqrt(y) else B:= abs(x) + abs(y);

Cách 2:

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

then B:= abs(x) + abs(y) else B:= sqrt(x) + sqrt(y);

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 5. 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 5 = 0) then

 begin

 Dem:= Dem+1;

 Tong:= Tong+a[i];

 end;

 writeln(‘Dem la:’,Dem);

 Writeln(‘Tong la:’,Tong);

 Readln

End.