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

Cài đặt đề thi
Thời gian làm bài

Vui lòng cài đặt đề thi trước khi làm bà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;

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?

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?

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:

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ì?

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?

Câu 7 :

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

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

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);

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

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?

Câu 12 :

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

Câu 13 :

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

Câu 14 :

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

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?

Câu 16 :

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

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:

Câu 18 :

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

Câu 19 :

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

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.