Đề thi Học kì 1 Tin học 11 có đáp án (Đề 3)
-
4097 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, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
Đáp án đúng : 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 đúng : 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 đúng : 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 đúng : 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 đúng : 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 đúng : 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 đúng : A
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 đúng : A
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 đúng : 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 đúng : 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 đúng : A
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 đúng : C
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 đúng : A
Câu 21:
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)
a mod c + d = 7 + 5 = 12
sqrt(b) + c = 4 + 8 = 12
12 >= 12 → C := TRUE
Câu 22:
Viết câu lệnh rẽ nhánh tính:
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:
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.
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.