A. Trắc nghiệm (6đ)(Khoanh tròn vào 1 ý trả lời đúng cho mỗi câu )
1. Các biến x, n1, n2 phải được khai báo như thế nào thì cấu trúc lặp sau thực hiện được: FOR x := n1 TO n2 DO Begin ………End;
A.Var x: integer ; n1, n2: real; B.Var x, n1, n2: integer;
C.Var x, n1, n2: real; D.Var n1, n2: char; x: integer;
2. Cho đoạn chương trình sau:
I := 1; S := 0;While S < 25 Do While S < 25 Do begin S := S + 3; I := I +1 end;
Kết quả I bằng bao nhiêu?
A.1
B.5
C.9
D. 10
3. Chọn từ khoá : A. Writeln B. Integer C. Readln D. ELSE
4. Hàm div dùng để:
A.Tính căn bậc B.Chia lấy phần dư C.Làm tròn 1 số D.Chia lấy phần nguyên
5. Từ nào là tên chuẩn:
A. END B. Readln C. If D. TYPE
6. Để nhập giá trị vào biến a ta có câu lệnh:
A.Readln(a); B.Realn(a); C.Readln('a'); D.Read('a');
7. Giả sử a là biến có kiểu thực ,chọn lệnh phù hợp khi viết chương trình:
A. y a= 1 B. a:=b*b C. x b a:=− ; D. x y a + = 1 : 8. Để in ra dãy số: 1 2 3 4 5 6 7 8 9 10
A. For i:=1 To 10 do write('1 2 3 4 5 6 7 8 9 10'); B. For i:=1 To 10 do write(i);
C. For I : = 1 To 10 Do write(I , ' '); D. For I :=1 To 10 Do write('I ');
9. Kiểu Integer có phạm vi giá trị từ:
A.0 đến 216-1 B.-215 đến 215-1 C.-231 đến 231-1. D.0 đến 225
10. Cú pháp lệnh If dạng thiếu :
A.If <điều kiện> then <câu lệnh> B.If <điều kiện> then <câu lệnh>; Kiên Nhiên GV trường THPT Đại An Page 42
C.If <câu lệnh> then <điều kiện> ; D.If <câu lệnh> else <điều kiện> ;
11. Cho chương trình pascal sau:
Program cb1; Var x,y: real; Begin
Write('x= '); readln(x); Y:=(((x+2)*x+3)*x+4)*x+5; Writeln('y=',y);
End.
Chương trình trên tính giá trị của biểu thức nào trong các biểu thức sau:
A.y=x+2x+3x+4x+5
B.y=x3+5x2+4x+5
C.y=(x+2)(x+3)(x+4)+5
D.y= x4+2x3+3x2+4x+5 12. Trong NNLT Pascal, đoạn chương trình sau thực hiện công việc gì?
I := 0; While I <>0 Do write(I, ' ');
A. Lặp vô hạn việc đưa ra màn hình các chữ số 0 B. Đưa ra màn hình 10 chữ số 0