Type mang = string[55]; Câu 7: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau đây làm gì n là số phần tửc của mảng.. Em hãy xác đ
Trang 1MÃ ĐỀ: 001 Họ và tên: Lớp
I Phần trắc nghiệm đơn tuyển (5.0 điểm):
Câu 1: Phát biểu nào sau đây về kiểu bản ghi là sai?
A Tham chiếu trường của bản ghi: tên biến bản ghi.tên trường.
B Trong một biến bản ghi có thể có nhiều kiểu dữ liệu khác nhau.
C Trong pascal để khai báo biến bản ghi ta sử dụng từ khoá TYPE.
D Để định nghĩa kiểu bản ghi ta sử dụng cặp từ kháo RECORD và END.
Câu 2: ãy chọn phát biểu sai trong các phát biểu sau:
A Program là một từ khoá B Program là một tên chuẩn
C Program là một tên dành ri êng D Program dùng để khai báo tên chương trình. Câu 3:Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Const columns = 7; rows = 7;
Var table: array[0 columns-1, 1 rows] of integer;
Số phần tử của mảng table là:
Câu 4: Cho xâu S1=’Vinh - Ha - Long’ Em hãy cho biết giá trị của S2:= Copy(S1,6,4).
C
âu 5: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Var a: array[1 50] of integer;
b, c: array[1 50] of integer;
Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?
Câu 6: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
A Var mang : string[55]; B. Var mang = string[55];
C Type mang : string[55]; D. Type mang = string[55];
Câu 7: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau
đây làm gì ( n là số phần tửc của mảng)?
For i:=1 to n do
Begin Write(i); Writeln;
End;
A Hiện lên màn hình giá trị của các phần tử của mảng ; B Đếm số phần tử của mảng ;
C Hiện lên màn hình giá trị của mảng; D Nhập giá trị cho các phần tử của mảng ; Câu 8: Phát biểu nào sau đây về kiểu dữ liệu xâu là đúng?
A Xâu là dãy kí tự trong bộ mã ASCII và các kí tự đặc biệt.
B Xâu là dãy kí tự trong bộ mã ASCII.
C Trong một biến xâu có thể chứa nhiều kiểu dữ liệu khác nhau.
D X âu là một dãy hữu hạn các số nguyên và số thực.
Câu 9: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var m: array[1 10] of Integer;
i, t : integer ; begin
t:= 0;
for i:=1 to 10 do if i mod 2 <> 0 then t:= t+i ;
Trang 2II Phần đọc hiểu (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
D, M,N, i: byte;
Begin
S1:=‘Nguyen-Binh-Khiem - daklak’;
S2:=‘’;
D:=lenght(S2)+ length(s2);
Insert(S2, S1,3);
M:= Pos(‘b’,S1);
N:=length(S1);
S3:=Upcase(S2);
End.
Em hãy xác định giá trị của các biến S1, S3, D, M, N sau khi thực hiện xong đoạn chương trình trên
Giá trị
C âu 2: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var A,B,C : array[1 2,1 2] of integer;
TA, TB,TC, i, j: integer;
Begin
TA:=0; TB:=0;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘A[‘,i,’,’,j,’] =’); Readnl(A[i,j]);
TA:= TA+ A[i,j];
End;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘B[‘,i,’,’j,’] =’); Readnl(B[i,j]);
TB:=TB+ B[i,j];
End;
For i:=1 to 2 do
For j:=1 to 2 do Begin
C[i,j]:= A[i,j]+B[i,j];
TC:= C[1,1];
IF C[i,j] > TC then TC:= C[i,j];
End;
End.
Cho các giá trị A[1,1]=7, A[1,2]=16, A[2,1]=11, A[2,2]=9, B[1,1]=13, B[1,2]=9, B[2,1]=19, B[2,2]=6 Em hãy xác định giá trị của các phần tử của mảng C và biến TA, TB, TC sau khi thực hiện xong đoạn chương trình trên
C[1,1] C[1,2] C[2,1] C[2,2]
Giá trị
Trang 3MÃ ĐỀ: 002 Họ và tên: Lớp
I Phần trắc nghiệm đơn tuyển (5.0 điểm):
Câu 1: Cho xâu S1=’Vinh - Ha - Long’ Em hãy cho biết giá trị của S2:= Copy(S1,6,4).
Câu 2: Phát biểu nào sau đây về kiểu dữ liệu xâu là đúng?
A Xâu là dãy kí tự trong bộ mã ASCII và các kí tự đặc biệt.
B X âu là một dãy hữu hạn các số nguyên và số thực.
C Trong một biến xâu có thể chứa nhiều kiểu dữ liệu khác nhau.
D Xâu là dãy kí tự trong bộ mã ASCII.
Câu 3: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var m: array[1 10] of Integer;
i, t : integer ; begin
t:= 0;
for i:=1 to 10 do if i mod 2 <> 0 then t:= t+i ; End.
Sau khi thực hiện xong chương trình trên, giá trị của t sẽ là:
Câu 4: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
A Type mang : string[55]; B. Type mang = string[55];
C Var mang : string[55]; D. Var mang = string[55];
C
âu 5: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Var a: array[1 50] of integer;
b, c: array[1 50] of integer;
Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?
Câu 6: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau
đây làm gì ( n là số phần tửc của mảng)?
For i:=1 to n do
Begin Write(i); Writeln;
End;
A Hiện lên màn hình giá trị của các phần tử của mảng ; B. Hiện lên màn hình giá trị của mảng;
C Nhập giá trị cho các phần tử của mảng ; D. Đếm số phần tử của mảng ;
Câu 7: Phát biểu nào sau đây về kiểu bản ghi là sai?
A Trong một biến bản ghi có thể có nhiều kiểu dữ liệu khác nhau
B Trong pascal để khai báo biến bản ghi ta sử dụng từ khoá TYPE.
C Tham chiếu trường của bản ghi: tên biến bản ghi.tên trường.
D Để định nghĩa kiểu bản ghi ta sử dụng cặp từ kháo RECORD và END.
C âu 8: Hãy chọn đáp án đúng trong các phát biểu sau?.
A Tất cả đều sai B Type bien1: array[1 100] of real;
C Type 1bien= array[1 2,1 2] of integer; D Type bien1: String;
Câu 9: Hãy chọn phát biểu sai trong các phát biểu sau:
A Program là một từ khoá B Program là một tên chuẩn.
Trang 4II Phần đọc hiểu (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
D, K, M , i: byte;
Begin
S1:=‘Ha Noi - Viet Nam’;
S2:=‘ Thu Do’
D:=lenght(S2)+ length(s2);
Insert(S2, S1,6);
K:= Pos(‘v’,S1);
M:=length(S1);
For i:=1 to length(S2) do S3[i]:=Upcase(S2[i]);
End.
Em hãy xác định giá trị của các biến S1, S3, L, K, Kt sau khi thực hiện xong đoạn chương trình trên
Giá trị
C âu 2: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var A,B,C : array[1 2,1 2] of integer;
TA, TB,TC, i, j: integer;
Begin
TA:=0; TB:=0;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘A[‘,i,’,’,j,’] =’); Readnl(A[i,j]);
TA:= TA+ A[i,j];
End;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘B[‘,i,’,’j,’] =’); Readnl(B[i,j]);
TB:=TB+ B[i,j];
End;
For i:=1 to 2 do
For j:=1 to 2 do Begin
C[i,j]:= A[i,j]+B[i,j];
TC:= C[1,1];
IF C[i,j] < TC then TC:= C[i,j];
End;
End.
Cho các giá trị A[1,1]=22, A[1,2]=6, A[2,1]=13, A[2,2]=16, B[1,1]=3, B[1,2]=14, B[2,1]=7, B[2,2]=4 Em hãy xác định giá trị của các phần tử của mảng C và biến TA, TB, TC sau khi thực hiện xong đoạn chương trình trên
C[1,1] C[1,2] C[2,1] C[2,2]
Giá trị
Trang 5MÃ ĐỀ: 003 Họ và tên: Lớp
I Phần trắc nghiệm đơn tuyển (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
A Var mang = string[55]; B. Type mang : string[55];
C Var mang : string[55]; D. Type mang = string[55];
Câu 2: Phát biểu nào sau đây về kiểu bản ghi là sai?
A Để định nghĩa kiểu bản ghi ta sử dụng cặp từ kháo RECORD và END
B Trong một biến bản ghi có thể có nhiều kiểu dữ liệu khác nhau.
C Tham chiếu trường của bản ghi: tên biến bản ghi.tên trường.
D Trong pascal để khai báo biến bản ghi ta sử dụng từ khoá TYPE.
C
âu 3: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Var a: array[0 50] of integer;
b, c: array[1 50] of integer;
Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?
Câu 4: Hãy chọn phát biểu sai trong các phát biểu sau:
A Program là một tên chuẩn B Program là một tên dành ri êng.
C Program dùng để khai báo tên chương trình D Program là một từ khoá.
Câu 5: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Const columns = 7; rows = 7;
Var table: array[0 columns-1, 1 rows] of integer;
Số phần tử của mảng table là:
Câu 6: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var m: array[1 10] of Integer;
i, t : integer ; begin
t:= 0;
for i:=1 to 10 do if i mod 2 <> 0 then t:= t+i ; End.
Sau khi thực hiện xong chương trình trên, giá trị của t sẽ là:
Câu 7: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau
đây làm gì ( n là số phần tửc của mảng)?
For i:=1 to n do
Begin Write(i); Writeln;
End;
A Đếm số phần tử của mảng ; B. Hiện lên màn hình giá trị của các phần tử của mảng ;
C Hiện lên màn hình giá trị của mảng; D. Nhập giá trị cho các phần tử của mảng ;
C âu 8: Hãy chọn đáp án đúng trong các phát biểu sau?.
A Type bien1: String; B Tất cả đều sai
C Type 1bien= array[1 2,1 2] of integer; D Type bien1: array[1 100] of real;; Câu 9: Phát biểu nào sau đây về kiểu dữ liệu xâu là đúng?
Trang 6II Phần đọc hiểu (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
D, B, C, i: byte;
Begin
S1:=‘Truong - Nguyen Binh Khiem’;
S2:=‘thpt ’ D:=lenght(S1)+ length(s2);
Insert(S2, S1,7);
B:= Pos(‘y’,S1);
C:=length(S1);
For i:=1 to length(S2) do S3[i]:=Upcase(S2[i]);
End.
Em hãy xác định giá trị của các biến S1, S3, L, K, Kt sau khi thực hiện xong đoạn chương trình trên
Giá trị
C âu 2: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var A,B,C : array[1 2,1 2] of integer;
TA, TB,TC, i, j: integer;
Begin
TA:=0; TB:=0;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘A[‘,i,’,’,j,’] =’);
Readnl(A[i,j]);
TA:= TA+ A[i,j];
End;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘B[‘,i,’,’j,’] =’);
Readnl(B[i,j]);
TB:=TB+ B[i,j];
End;
For i:=1 to 2 do
For j:=1 to 2 do Begin
C[i,j]:= A[i,j]+B[i,j];
TC:= 1;
IF C[i,j] mod 2<> 0 then TC:=TC+ C[i,j];
End;
End.
Cho các giá trị A[1,1]=4, A[1,2]=18, A[2,1]=12, A[2,2]=14, B[1,1]=21, B[1,2]=14, B[2,1]=8, B[2,2]=11 Em hãy xác định giá trị của các phần tử của mảng C và biến TA, TB, TC sau khi thực hiện xong đoạn chương trình trên
C[1,1] C[1,2] C[2,1] C[2,2]
Giá trị
Trang 7MÃ ĐỀ: 004 Họ và tên: Lớp
I Phần trắc nghiệm đơn tuyển (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var m: array[1 10] of Integer;
i, t : integer ; begin
t:= 0;
for i:=1 to 10 do if i mod 2 <> 0 then t:= t+i ; End.
Sau khi thực hiện xong chương trình trên, giá trị của t sẽ là:
Câu 2: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Const columns = 7; rows = 7;
Var table: array[0 columns-1, 1 rows] of integer;
Số phần tử của mảng table là:
C
âu 3: Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
Var a: array[0 50] of integer;
b, c: array[1 50] of integer;
Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?
Câu 4: Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng?
A Type mang = string[55]; B. Var mang = string[55];
C Type mang : string[55]; D. Var mang : string[55];
Câu 5: Trong ngôn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau
đây làm gì ( n là số phần tửc của mảng)?
For i:=1 to n do
Begin Write(i); Writeln;
End;
A Đếm số phần tử của mảng ; B. Hiện lên màn hình giá trị của các phần tử của mảng ;
C Hiện lên màn hình giá trị của mảng; D. Nhập giá trị cho các phần tử của mảng ;
Câu 6: Phát biểu nào sau đây về kiểu dữ liệu xâu là đúng?
A Xâu là dãy kí tự trong bộ mã ASCII.
B Xâu là dãy kí tự trong bộ mã ASCII và các kí tự đặc biệt.
C Trong một biến xâu có thể chứa nhiều kiểu dữ liệu khác nhau.
D X âu là một dãy hữu hạn các số nguyên và số thực.
Câu 7: Phát biểu nào sau đây về kiểu bản ghi là sai?
A Tham chiếu trường của bản ghi: tên biến bản ghi.tên trường.
B Trong pascal để khai báo biến bản ghi ta sử dụng từ khoá TYPE.
C Trong một biến bản ghi có thể có nhiều kiểu dữ liệu khác nhau.
D Để định nghĩa kiểu bản ghi ta sử dụng cặp từ kháo RECORD và END.
Câu 8: Cho xâu S1=’Vinh - Ha - Long’ Em hãy cho biết giá trị của S2:= Copy(S1,6,4).
Trang 8II Phần đọc hiểu (5.0 điểm):
Câu 1: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
D, K, M, i: byte;
Begin
S1:=‘’;
S2:=‘DakLak – Viet Nam’;
D:=lenght(S1)+ length(s2);
Insert(S1, S2,3);
K:= Pos(‘-’,S2);
M:=length(S2);
For i:=1 to length(S2) do S3[i]:=Upcase(S2[i]);
End.
Em hãy xác định giá trị của các biến S1, S3, L, K, Kt sau khi thực hiện xong đoạn chương trình trên
Giá trị
C âu 2: Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var A,B,C : array[1 2,1 2] of integer;
TA, TB,TC, i, j: integer;
Begin
TA:=0; TB:=0;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘A[‘,i,’,’,j,’] =’);
Readnl(A[i,j]);
TA:= TA+ A[i,j];
End;
For i:= 1 to 2 do
For j:= 1 to 2 do
Be gin
Writer(‘B[‘,i,’,’j,’] =’);
Readnl(B[i,j]);
TB:=TB+ B[i,j];
End;
For i:=1 to 2 do
For j:=1 to 2 do Begin
C[i,j]:= A[i,j]+B[i,j];
TC:= 1;
IF C[i,j] mod 2 = 0 then TC:= TC+C[i,j];
End;
End.
Cho các giá trị A[1,1]=12, A[1,2]=8, A[2,1]=15, A[2,2]=7, B[1,1]=8, B[1,2]=22, B[2,1]=5, B[2,2]=13 Em hãy xác định giá trị của các phần tử của mảng C và biến TA, TB, TC sau khi thực hiện xong đoạn chương trình trên
C[1,1] C[1,2] C[2,1] C[2,2]
Giá trị