I. Trắc nghiệm (2.5 điểm) chọn đáp án đúng. Câu 1. Số lần lặp trong câu lệnh lặp với số lần biết trước được xác định bằng? A. Giá trị cuối - giá trị đầu -1 B. Giá trị cuối + giá trị đầu +1 C. Giá trị cuối - giá trị đầu +1 D. Giá trị cuối + giá trị đầu -1 Câu 2. Trong ngôn ngữ lập trình Pascal, cấu trúc câu lệnh lặp nào sau đây đúng? A. For i:=1 to 38 do writeln(‘A’); A. For i:=38 to 1 do writeln(‘A’); A. For i:1 to 38 do writeln(‘A’); A. For i=1 to 38 do writeln(‘A’); Câu 3. Sau khi thực hiện chương trình dưới đây, giá trị của biến j bằng bao nhiêu? j:= 1; for i:= 0 to 10 do j:= j+1; A. 12; B. 13; C. 11; D. 14; Câu 4. Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng: A. Chỉ số đầu > chỉ số cuối; B. Chỉ số đầu chỉ số cuối; C. Kiểu dữ liệu chỉ có thể là real; D. Cả ba ý trên đều đúng; Câu 5. Cú pháp đầy đủ của câu lệnh While … do là: A. While <câu lệnh> do <điều kiện>; B. While <điều kiện>; <câu lệnh>; C. While <điều kiện> to <câu lênh> do; D. While <điều kiện> do <câu lệnh>; Câu 6: Trong câu lệnh lặp: j:=0; For i := 4 to 10 do begin j:= j + 2; write( j ); end; Khi kết thúc câu lệnh lặp trên, giá trị j bằng bao nhiêu? A. 2 B. 14 C. 12 D. 10 Câu 7. Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình ? n:=10; T:=100; While n>10 do n:=n+5; T:=T - n; A. 0 B. 4 C. 6 D. 10 Câu 8: Chỉ ra cú pháp khai báo biến mảng đúng trong Turbo Pascal: A. Var <tên biến>: array[<số phần tử>] of <kiểu dữ liệu>; B. Var <tên biến>: array[<chỉ số đầu>..<chỉ số cuối>]: <kiểu dữ liệu>; C. Var <tên biến>: array[<chỉ số đầu>:<chỉ số cuối>]: <kiểu dữ liệu>; D. Var <tên biến>: array[<chỉ số đầu>..<chỉ số cuối>]of <kiểu dữ liệu>; Câu 9: Các phần tử của mảng: A. Phải là số nguyên. B. Phải có giá trị như nhau. C. Phải cùng kiểu dữ liệu. D. Có thể cùng kiểu hoặc khác kiểu dữ liệu. Câu 10. Trong Pascal, câu lệnh nào sau đây được viết đúng? A. Var soluong: array [1..40] of Integer; B. Var soluong: array [40..1] of Integer; C. Var soluong: array [1..40,8] of Real; D. Var soluong: array [1..40] of Real; II. Tự luận (7.5 điểm) Câu 1. (2 điểm) Viết cú pháp, vẽ sơ đồ và nêu hoạt động câu lệnh lặp với số lần chưa biết trước? Câu 2: (2 điểm): Cho chương trình sau: a) Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln (j,k) in ra màn hình giá trị của j, k là bao nhiêu? j:=2; k:=3; for i:=1 to 5 do j:=j+2; k:=k+j; writeln(j,k); b) Đối với từng đoạn chương trình Pascal sau đây, hãy cho biếtcõ bao nhiêu vòng lặp và lệnh writeln (s) in ra màn hình giá trị của s là bao nhiêu? S:=20; n:=0; While S > 5 do Begin n:=n+3; S:=S -n; End; writeln(S); Câu 3 (3,5 điểm) Viết chương trình thực hiện các công việc sau: a. Nhập dãy số nguyên gồm 100 số b. Hiển thị dãy số ra màn hình c. Hiển thị các số dương trong dãy