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.