1. Trong ngôn ngữ lập trình Pascal, từ nào sau đây không phải là từ khóa ? A. For B. Var C. Do D. Write 2. Tên CHƯƠNG TRÌNH hợp lệ trong ngôn ngữ lập trình Pascal là: A. 12hinhvuong B. dientich C. hinh thang D. Program 3. Trong câu lệnh lặp For…..to ……..do; khi thực hiện ban đầu biến đếm nhận giá trị đầu, sau mỗi vòng lặp biến đếm tự động tăng thêm: A. Tùy bài toán B. Một đơn vị C. Hai đơn vị D. Ba đơn vị 4. Cấu pháp đúng của câu lệnh lặp For……………do là: A. For < biến đếm>= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; B. For < biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>; C. For < biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>; D. For < biến đếm>:= <giá trị đầu> do <giá trị cuối> to <câu lệnh>; 5. Câu lệnh lặp nào sau đây đúng: A. For i:= 1 down to 100 do S:=S+i; C. For i:= 1 to 100 do S:=S+i; B. For i:= 100 to 1 do S:=S+i; D. For i= 100 down to 1 do S=S+i; 6. Vòng lặp For i:=2 to10 do sẽ lặp bao nhiêu lần? A. 10 lần B. 9 lần C. 8 lần D. 7 lần 7. Lệnh lặp For………to………..do là câu lệnh lặp: A. Lặp vô hạn C. Không biết trước số lần lặp B. Chưa biết số lần lặp D. Biết trước số lần lặp 8. Khi nào thì câu lệnh lặp For…do (dạng tiến) kết thúc? A. Khi biến đếm bằng giá trị đầu. C. Khi biến đếm nhỏ hơn giá trị cuối. B. Khi biến đếm lớn hơn giá trị cuối. D. Khi biến đếm bằng giá trị cuối. 9. Trong câu lệnh lặp for……….do, <câu lệnh> được thực hiện mấy lần? A. (<giá trị cuối> - <giá trị đầu>) lần C. Tùy vào bài toán B. Vô số lần. D. (<giá trị cuối> - <giá trị đầu> + 1) lần. 10. Cho đoạn chương trình sau: S:=0; For i:=1 to 5 do S:=S+1; Sau khi chạy đoạn chương trình trên, giá trị S là: A. S=0. B. S=5. C. S=15. D. Không xác định được Cho chương trình sau: Uses crt; Var i: integer; Begin Clrscr; For i:=0 to 15 do Writeln(‘0’); Delay (100) Readln; End. 11. Lệnh writeln(‘0’) được lặp lại bao nhiêu lần khi chạy chương trình trên A. 0 lần. B. 15 lần. C. 16 lần. D. Không xác định được 12. Lệnh Delay (100) được lặp lại bao nhiêu lần khi chạy chương trình trên A. 1 lần. B. 15 lần. C. 16 lần. D. 100 lần 13. Nếu chương trình trên được sửa lại như sau: Uses crt; Var i: integer; Begin Clrscr; For i:=0 to 15 do begin Writeln(‘0’); Delay (100) End; Readln; End. Lệnh Delay (100) được lặp lại bao nhiêu lần khi chạy chương trình trên A. 1 lần. B. 15 lần. C. 16 lần. D. 100 lần 14. Lệnh GotoXY(a,b) có tác dụng gì trong chương trình Pascal? A. Đưa con trỏ về cột a, hàng b. B. Đưa con trỏ về hàng a, cột b. C. Cho biết số thứ tự của cột đang có con trỏ. D. Cho biết số thứ tự của hàng đang có con trỏ . 15. Lệnh WhereX có tác dụng gì trong chương trình Pascal? A. Đưa con trỏ về cột X . B. Đưa con trỏ về hàng X . C. Cho biết số thứ tự của hàng đang có con trỏ. D. Cho biết số thứ tự của cột đang có con trỏ . II. PHẦN TỰ LUẬN Câu 1. Viết chương trình nhập vào một số tự nhiên N từ bàn phím, in ra màn hình kết quả tổng của N số tự nhiên đầu tiên ? Câu 2. Ta kí hiệu : N !=1.2.3….N, đọc là N giai thừa. Sử dụng câu lệnh lặp For …do để viết chương trình nhập vào một số tự nhiên N từ bàn phím, sau đó in ra màn hình kết quả tính N !.

2 câu trả lời

đáp án : 1.A

2.A

3.B

4.D

5.C

6.C

7.D

8.D

9.B

10.A

11.A

12.D

13.B

14.A

TỰ LUẬN THÌ BẠN TỰ LẬP LUẬN NHA

1.D

2.B

3.B

4.C

5.C

6.B

7.D

8.B

9.D

10.B

11.C

12.A

13.C

14.A

15.D

Tự luận

1/

Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
for i:=1 to n do
s:=s+i;
Write('Tong day so tren la: ',s);
readln;
end.

2/

Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
Write('Tich day so tren la: ',s);
readln;
end.