Đề thi Học kì 1 Tin học 11 có đáp án (Đề 4)
23 câu hỏi
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;
44;
36;
38;
42.
Đáp án đúng : B
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 + a > b;
a - b > c;
c – b ≥ a;
c - a > b.
Đáp án đúng : A
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?
208
2009
166509
99
Đáp án đúng : D
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 đúng : A
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ì?
20
x+y
10
30
Đáp án đúng : B
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?
Var X: Byte; Y: Real;
Var X: Real; Y: Byte;
Var X, Y: Integer;
Var X, Y: Byte;
Đáp án đúng : A
Biểu thức ((35 mod 9) div 5) có kết quả là mấy?
1
3
4
2
Đáp án đúng : A
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à :
0
120
60
20
Đáp án đúng : B
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);
3
1
6
2
Đáp án đúng : C
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
3
2
1
0
Đáp án đúng : C
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?
121
2001
201
1200
Đáp án đúng : A
Biểu thức nào không phải là biểu thức trong Pascal?
(a+x)*(b+y)/2
( m div 5 >=2 ) hoặc ( m <=2)
a*sqr(x) + b*x + c = 0
Not (a >10)
Đáp án đúng : B
Trong pascal, biểu diễn sqr(x) có nghĩa là:
Bình phương của x
Căn bậc hai của x
Giá trị tuyệt đối của x
Luỹ thừa cơ số e của x
Đáp án đúng : A
Phép toán nào đúng khi số nguyên A là số lẻ:
A mod 2 = 0
A div 2 = 1
A div 2 = 0
A mod 2 = 1
Đáp án đúng : B
Cho biết kết quả của biểu thức (2*((45 mod 3) +12)) div 5 là bao nhiêu?
2
4
6
8
Đáp án đúng : B
Biểu thức 3 div 7 có giá trị là:
2
1
0
7
Đáp án đúng : C
Để đư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:
Write(a:8:3, b:8);
Readln(a,b);
Writeln(a:8, b:8:3);
Writeln(a:8:3, b:8:3);
Đáp án đúng : C
Để nhập giá trị cho 2 biến a và b ta dùng lệnh:
Write(a,b);
Real(a.b);
Read(‘a,b’);
Readln(a,b);
Đáp án đúng : D
Để biên dịch chương trình, trong Pascal ta nhấn tổ hợp phím:
Ctrl + F9
Alt + F9
Alt + F8
Shift + F9
Đáp án đúng : B
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.
10
33
3
1
Đáp án đúng ; C
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)
sqr(d) + b = 25 + 16 = 41
c*d + a = 40 + 31 = 71
41 >= 71 → D := FALSE
Viết câu lệnh rẽ nhánh tính:
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;
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.
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.
