KT 1 TIET HK II

KT 45P TIN 11 NC – HK II ĐỀ B I. TN: Câu 1: Đoạn chương trình sau làm gì? S:=0; For i:=1 to n do S:=S+a[i]; A. Đếm số phần tử của mảng A B. Tính tổng các phần tử của mảng A C. In ra mảng A D. Nhập mảng A Câu 2 Cho mảng A gồm các phần tử: 3; -7; 9; 5; -3; 6; 8; 17; 0; -15. Cho biết giá trị của m sau đoạn chương trình: m:=A[1]; For i:=1 to 10 do If A[i] > m then m := A[i]; A. 17 B. -15 C. 6 D. 3 Câu 3: Chọn khai báo biến đúng trong ngôn ngữ lập trình Pascal? A. Type HS = Record; C. Type HS = Record ht: string; ht: string; dtb: real; dtb: real; end; end; B. Type HS = Record D. Type HS = Record; ht: string[300]; ht: string[50]; dtb: real; dtb: real; end; end Câu 4: Trong pascal, sau khi thực hiện xong đoạn chương trình sau giá trị của biến S là? S:= 'mua thu Ha Noi'; Delete(S, 8,7); Insert('Ha Noi ', S, 1); A. Mua thu Ha Noi mua thu B. Mua thu Ha Noi C. Ha Noi mua thu D. Mua thu Câu 5: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử? Var a:array [1 10,2 5] of byte; A. 30 B. 40 C. 50 D. 100 Câu 6: Đoạn chương trình sau làm gì? k:=0; For i:=1 to length(a) do If a[i]='a' then k:=k+1; A. Đếm số kí tự số trong xâu a B. Đếm số kí tự trắng trong xâu a C. Đếm số kí tự a trong xâu a D. Đếm số kí tự trong xâu a Câu 7: Cho khai báo: Type hocsinh = record Toan,Van :Real; end; Var Lop : array [1 45] of hocsinh; Lệnh nào dưới đây là đúng khi in ra màn hình điểm toán của học sinh thứ i? HOTEN: LỚP: A.Writeln(Lop); B.Write(Lop[i]); C. Write(Lop[i].T); D.Writeln(Lop[i].Toan); Câu 8. Đoạn lệnh sau thường dùng để: For i: = 1 To n Do Begin Write('A[',i,']='); Read(A[i]); End; A. Nhập dữ liệu cho mảng một chiều B. Nhập dữ liệu cho mảng hai chiều C. Nhập dữ liệu cho một bản ghi D. Nhập dữ liệu cho một xâu Câu 9: Hãy chọn thứ tự thực hiện các thao tác đọc dữ liệu từ file: (a) Đóng file (b) Mở file (c) Gán tên file với biến file (d) Đọc dữ liệu từ file A. a  b  c  d. B. c  b  d  a C. b  d  c  a. D. d  a  c  b. Câu 10: Giả sử đã khai báo biến mảng và các biến khác đoạn chương trình dưới đây làm gì? S:=0 ; FOR I:=1 TO N DO IF A[I]<0 THEN S:=S+A[I]; WRITELN('S=',S); A. Tính tổng các số âm trong mảng A B. Tính tích các số dương trong mảng A C. Tính tích bình phương các số âm trong mảng A D. Tính tổng bình phương các số âm trong mảng A Câu II: Viết chương trình: - Nhập từ bàn phím số nguyên dương N (N<=100) và giá trị các phần tử của mảng một chiều gồm N phần tử, cho biết mỗi phần tử là một số nguyên. - Tính tổng các phần tử của mảng có giá trị không chia hết cho 3 và xuất kết quả ra màn hình. . KT 45P TIN 11 NC – HK II ĐỀ B I. TN: Câu 1: Đoạn chương trình sau làm gì? S:=0; For i: =1 to n do S:=S+a[i]; A. Đếm số phần tử của mảng A B phần tử: 3; -7; 9; 5; -3; 6; 8; 17 ; 0; -15 . Cho biết giá trị của m sau đoạn chương trình: m:=A [1] ; For i: =1 to 10 do If A[i] > m then m := A[i]; A. 17 B. -15 C. 6 D. 3 Câu 3: Chọn khai báo. 8,7); Insert('Ha Noi ', S, 1) ; A. Mua thu Ha Noi mua thu B. Mua thu Ha Noi C. Ha Noi mua thu D. Mua thu Câu 5: Khai báo sau đây thì mảng có tối đa bao nhiêu phần tử? Var a:array [1 10,2 5] of byte; A.