De tin 11 1t hk2

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (101.12 KB, 6 trang )

(1)<div class='page_container' data-page=1>

Câu 2:Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực hiện cơng việc:
Readln(s); k:= length(S); for i:= k downto 1 do write(S[i]);

A. in ra màn hình xâu S B. in ra màn hình độ dài xâu S

C. in ra màn hình xâu S đảo ngược D. đưa ra màn hình xâu S
Câu 3: Với khai báo A: array[1..100] of integer; thì việc truy xuất đến phần tử thứ 5 như sau:

A. A(5) B. A[5] C. A5 D. A 5
 Câu 4: Cho s= ’123456789’ hàm copy(s,2,3) cho giá trị bằng:

A. ‘234’ B. 234 C. ‘34’ D. 34
 Câu 5: Cho s= ’500 ki tu’, hàm length(s) cho giá trị bằng:

A. 500 B. 9 C. ‘5’ D. ‘500’
 Câu 6: Thủ tục insert(‘123’,’abc’,2) sẽ cho xâu kết quả nào sau đây?

A. a123bc B. 1abc23 C. 12abc D. ab123
Câu 7: Cho xâu s= ’123456789’ sau khi thực hiện thủ tục delete(s,3,4) thì:

A. s= ’1256789’ B. s= ’12789’ C. s= ’123789’ D. s= ”
Câu 8: Cho A= ’abc’; B= ’ABC’; khi đó A+B cho kết quả nào?

A. ‘aAbBcC’ B. ‘abcABC’ C. ‘AaBbCc’ D. ‘ABCabc’
 Câu 9: Với khai báo A: array[1..100,1..100] of integer; thì việc truy xuất đến các phần tử như sau:
A. A(i,j) B. A[i,j] C. A(i;j) D. A[i;j]

Câu 10: Để khai báo biến kiểu xâu ta sử dụng cú pháp nào?

A. var <tên biến>:<tên kiểu>; B. var <tên biến>=<tên kiểu>;

C. var <tên biến>: string[độ dài lớn nhất của xâu]; D. var <tên biến>= string[độ dài lớn nhất của xâu];
 Câu 11: Trong các khai báo sau, khai báo nào đúng?

A. var hoten : string[27]; B. var diachi : string(100);
C. var ten= string[30]; D. var ho = string(20);

Câu 12: Trong ngơn ngữ lập trình Pascal, phần tử đầu tiên của xâu kí tự mang chỉ số là?

A. 0 B. Do người lập trình khai báo C. 1 D. Không có chỉ số
II. TỰ LUẬN: (4 điểm)

Câu 1: Hãy viết lệnh khai báo mảng để mô tả:
a) Một dãy số thực A có tối đa 100 phần tử.

b) Bảng nhân B có tối đa 9 hàng và 10 cột với mỗi phần tử của nó là một số nguyên.

</div>
(2)<div class='page_container' data-page=2>

Câu 2: a) Hãy điền vào các lệnh cịn thiếu để chương trình sau cho phép nhập một xâu kí tự từ bàn 
phím, chuyển tất cả các kí tự thành chữ in hoa và in nó ra màn hình.

Program chuyeninhoa;
Var St:………….; i: Byte;
Begin

Write(‘Nhap xau St: ‘);……….;

For i:=1 to……….. do……… := Upcase(St[i]);
Write(‘Xau ket qua: ’, St);

Readln
End.

b) Viết chương trình pascal : Tính tổng sau: S = 12 + 22 +32 + …+ n2

</div>
(3)<div class='page_container' data-page=3>

A. var hoten : string[27]; B. var diachi : string(100);
C. var ten= string[30]; D. var ho = string(20);

Câu 3: Trong ngơn ngữ lập trình Pascal, phần tử đầu tiên của xâu kí tự mang chỉ số là?

A. 0 B. Do người lập trình khai báo C. 1 D. Khơng có chỉ số
Câu 4:Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực hiện cơng việc:

Readln(s); k:= length(S); for i:= k downto 1 do write(S[i]);

A. in ra màn hình xâu S B. in ra màn hình độ dài xâu S

C. in ra màn hình xâu S đảo ngược D. đưa ra màn hình xâu S
Câu 5: Với khai báo A: array[1..100] of integer; thì việc truy xuất đến phần tử thứ 5 như sau:

A. A(5) B. A[5] C. A5 D. A 5
 Câu 6: Cho s= ’123456789’ hàm copy(s,2,3) cho giá trị bằng:

A. ‘234’ B. 234 C. ‘34’ D. 34
 Câu 7: Cho s= ’500 ki tu’, hàm length(s) cho giá trị bằng:

A. 500 B. 9 C. ‘5’ D. ‘500’
 Câu 8: Thủ tục insert(‘123’,’abc’,2) sẽ cho xâu kết quả nào sau đây?

A. a123bc B. 1abc23 C. 12abc D. ab123
Câu 9: Cho xâu s= ’123456789’ sau khi thực hiện thủ tục delete(s,3,4) thì:

A. s= ’1256789’ B. s= ’12789’ C. s= ’123789’ D. s= ”
Câu 10: Cho A= ’abc’; B= ’ABC’; khi đó A+B cho kết quả nào?

A. ‘aAbBcC’ B. ‘abcABC’ C. ‘AaBbCc’ D. ‘ABCabc’
 Câu 11: Với khai báo A: array[1..100,1..100] of integer; thì việc truy xuất đến các phần tử như sau:
A. A(i,j) B. A[i,j] C. A(i;j) D. A[i;j]

Câu 12: Cách viết nào sau đây là đúng khi khai báo mảng một chiều?
A. Var <Kiểu chỉ số>: array[tên biến mảng] of <kiểu phần tử>;

B. Var <tên biến mảng>: array[kiểu chỉ số] of <kiểu phần tử>;

C. Var <Array> of <kiểu phần tử>; D. Var <Kiểu phần tử>: array[kiểu chỉ số] of <tên biến mảng>;
II. TỰ LUẬN: (4 điểm)

Câu 1: Hãy viết lệnh khai báo mảng để mô tả:
c) Một dãy số nguyên A có tối đa 50 phần tử.

d) Bảng nhân B có tối đa 8 hàng và 9 cột với mỗi phần tử của nó là một số nguyên.

</div>
(4)<div class='page_container' data-page=4>

Program chuyeninhoa;
Var St:………….; i: Byte;
Begin

Write(‘Nhap xau St: ‘);……….;

For i:=1 to……….. do……… := Upcase(St[i]);

Write(‘Xau ket qua: ’, St);

Readln
End.

b) Viết chương trình pascal : Tính tổng các số chẵn từ 1 đến 1000
(Tính tổng S = 2 + 4+ 6 + …+1000)