Đề thi Học kì 1 Tin học 11 có đáp án (Đề 2)
-
1351 lượt thi
-
23 câu hỏi
-
45 phút
Danh sách câu hỏ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;
Xem đáp án
Đá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?
Xem đáp án
Đá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?
Xem đáp án
Đá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:
Xem đáp án
Đá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?
Xem đáp án
Đá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?
Xem đáp án
Đáp án A
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à
Xem đáp án
Đá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);
Xem đáp án
Đá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
Xem đáp án
Đáp án B
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?
Xem đáp án
Đáp án A
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
Xem đáp án
Đáp án A
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.
Xem đáp án
Đáp án D
Câu 21:
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)
Xem đáp án
GIẢI THÍCH
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:
Xem đáp án
GIẢI THÍCH
Cách 1:
if (x > 1) or (x <= -1)
then C:= sqrt(x) + 1 else C:= 2*x - 3;
Cách 2:
if (-1 < x) and (x <= 1)
then C:= 2*x – 3 else C:= sqrt(x) + 1
Câu 23:
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.
Xem đáp án
GIẢI THÍCH
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.