Đề thi giữa kì 1 Tin học 11 có đáp án (Đề 2)
23 câu hỏi
Phát biểu nào dưới đây là hợp lí nhất khi nói về hằng:
Hằng là đại lượng có giá trị không thay đổi trong quá trình thực hiện chương trình
Hằng là đại lượng được đặt tên và có giá trị thay đổi trong quá trình thực hiện chương trình
Hằng có thể lưu trữ nhiều loại giá trị khác nhau
Hằng được chương trình dịch bỏ qua
Đáp án đúng : A
Chọn biểu diễn tên sai trong các biểu diễn dưới đây:
TinhTong100
TinhTong
Tinh#Tong
Tinh_Tong1a
Đáp án đúng : C
Biểu diễn nào dưới đây không phải là biểu diễn hằng trong Pascal:
2 + 3
’TRUE
’01’
1.06E-15
Đáp án đúng : B
Trong Pascal, khai báo nào sau đây đúng:
Program Giai_PTB2;
Uses : crt;
Var a, b, c: real
Const pi := 3.14;
Đáp án đúng : A
Để viết chương trình giải phương trình bậc nhất có dạng: ax + b = 0 (a#0), em cần phải thực hiện lệnh nhập vào từ bàn phím các biến nào sau đây:
readln(a, b, x);
readln(a, b);
readln(a,x);
readln(b, x);
Đáp án đúng : C
Xét khai báo biến sau:
Var x, y, z : real;
c, d : boolean;
i, j : word;
Tổng bộ nhớ dành cho các biến đã khai báo là bao nhiêu byte?
18
24
22
20
Đáp án đúng : B
Xét biểu thức sau (3*x <=15) and (x <=4). Biểu thức cho kết quả FALSE khi:
x = 3
x = 2
x = 5
x = 4
Đáp án đúng : C
Cho khai báo biến sau đây:
Var m, n : integer ;
x, y : real ;
Lệnh gán nào sau đây là sai ?
m := -4 ;
n := 3 ;
x := 6.5 ;
y := ‘10.5’ ;
Đáp án đúng : D
Biểu thức Pascal: -b/sqrt(sqr(a)+b) được biểu diễn trong toán học là:
Cả A, B, C đều đúng
Đáp án đúng : A
Biểu thức 5*b + a mod 4*3 với a =16, b = 3 có giá trị là:
16
27
12
15
Đáp án đúng : D
Trong Pascal, cú pháp câu lệnh rẽ nhánh if-then dạng đủ là:
if <điều kiện> then <câu lệnh> ;
if <điều kiện> then <câu lệnh>
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2> ;
if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>
Đáp án đúng : C
Trong Pascal, câu lệnh ghép có dạng:
Đáp án đúng : A
Cho đoạn chương trình sau:
IF <điều kiện> THEN write(x,’la so am’) ELSE write(x,’la so duong’);
Điều kiện là biểu thức logic nào dưới đây?
x mod 2 = 0
x mod 2 = 1
x > 0
x < 0
Đáp án đúng : D
Cho đoạn chương trình sau:
readln(x,y);
IF x > y THEN F:= 2*x – y ELSE
IF x < y THEN F:= sqr(x) + sqr(y) ELSE F:= 2*x;
Nếu nhập vào từ bàn phím x=3 và y=3 thì giá trị của F là:
13
6
4
0
Đáp án đúng : B
Cho đoạn chương trình sau:
T := 0 ;
FOR i := 1 to 10 DO
IF i mod 2 = 0 THEN T := T + 1 ;
Sau khi thực hiện, T có giá trị?
3
5
25
30
Đáp án đúng : B
Cho đoạn chương trình sau:
S := 0 ;
FOR i := 1 to 10 DO
IF (i mod 3=0) or (i mod 5=0) THEN S := S + i ;
Sau khi thực hiện, S có giá trị?
0
5
25
33
Đáp án đúng : D
Cho đoạn chương trình sau:
T := 0 ; i:=1;
WHILE i <= 10 DO
BEGIN
IF i mod 2 = 1 THEN T := T + i ;
i:=i+1;
END;
Sau khi thực hiện, T có giá trị?
18
22
25
30
Đáp án đúng : C
Cú pháp khai báo trực tiếp biến mảng một chiều có dạng:
Var <tênbiến mảng> = array [kiểu chỉ số] of <kiểu phần tử>;
Var <tênbiến mảng> : array [kiểu chỉ số] of <kiểu phần tử>;
Var <tênbiến mảng> : array [kiểu chỉ số] of <kiểu phần tử>
Var <tênbiến mảng> := array [kiểu chỉ số] of <kiểu phần tử>;
Đáp án đúng : B
Giả sử mảng a gồm các phần tử a[1]=1, a[2]=2, a[3]=3, a[4]=4, a[5]=5.
Cho biết kết quả sau khi thực hiện đoạn chương trình sau:
D:=0;
FOR i:=1 to 5 DO
IF a[i] mod 2 = 0 THEN D:= D + 1;
writeln(‘D = ’,D);
D = 2
2
3
D = 3
Đáp án đúng : A
Phát biểu nào sau đây có thể lấy làm biểu thức điều kiện trong cấu trúc rẽ nhánh?
A + B
A * B
A mod B = 0
A:= B
Đáp án đúng : C
Hãy viết các biểu thức toán học sau sang dạng tương ứng trong Pascal:
a) (a+sin(x)/sqrt(sqr(a)+sqr(x)+1)
b) b) (-1 <=cos(x)) and (cos(x)<=1)
Cho chương trình Pascal sau:
Program chuvi_duongtron :
uses crt;
const pi := 3.14;
var cv, r: real;
Begin
clrscr;
write(‘nhap ban kinh r = ‘);
writeln(r);
cv:= 2*pi*r;
writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);
readln
Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.
a) Program chuvi_duongtron;
b) const pi = 3.14;
c) readln(r);
d) Thiếu End.
Viết chương trình tính tổng các giá trị lẻ trong phạm vi từ 1 đến N
(Số nguyên dương N được nhập vào từ bàn phím)
Program bt_3;
Uses crt;
Var Tong, n, i: integer;
Begin
Clrscr;
Writeln(‘nhap n=’);
Readln (n);
Tong:=0;
For i:=1 to n do
If I mod 2 = 1 then Tong:= Tong+i;
Writeln(‘Tong la:’,Tong);
Readln
End.








