Đang tải... (xem toàn văn)
Không có chỉ số II.[r]
(1)Câu 2:Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc: Readln(s); k:= length(S); for i:= k downto write(S[i]);
A in hình xâu S B in hình độ dài xâu S
C in hình xâu S đảo ngược D đưa hình xâu S Câu 3: Với khai báo A: array[1 100] of integer; việc truy xuất đến phần tử thứ sau:
A A(5) B A[5] C A5 D A 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 C ‘5’ D ‘500’ Câu 6: Thủ tục insert(‘123’,’abc’,2) cho xâu kết sau đây?
A a123bc B 1abc23 C 12abc D ab123 Câu 7: Cho xâu s= ’123456789’ sau thực 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’; A+B cho kết 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; việc truy xuất đến phần tử 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 xâu]; D var <tên biến>= string[độ dài lớn xâu]; Câu 11: Trong khai báo sau, khai bá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ử xâu kí tự mang số là?
A B Do người lập trình khai báo C D Khơng có 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 hàng 10 cột với phần tử số nguyên
(2)Câu 2: a) Hãy điền vào lệnh cịn thiếu để chương trình sau cho phép nhập xâu kí tự từ bàn phím, chuyển tất kí tự thành chữ in hoa in 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
(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ử xâu kí tự mang số là?
A B Do người lập trình khai báo C D Khơng có số Câu 4:Trong ngơn ngữ lập trình Pascal, đoạn chương trình sau thực cơng việc:
Readln(s); k:= length(S); for i:= k downto write(S[i]);
A in hình xâu S B in hình độ dài xâu S
C in hình xâu S đảo ngược D đưa hình xâu S Câu 5: Với khai báo A: array[1 100] of integer; việc truy xuất đến phần tử thứ sau:
A A(5) B A[5] C A5 D A 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 C ‘5’ D ‘500’ Câu 8: Thủ tục insert(‘123’,’abc’,2) cho xâu kết sau đây?
A a123bc B 1abc23 C 12abc D ab123 Câu 9: Cho xâu s= ’123456789’ sau thực 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’; A+B cho kết 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; việc truy xuất đến phần tử sau: A A(i,j) B A[i,j] C A(i;j) D A[i;j]
Câu 12: Cách viết sau khai báo mảng chiều? A Var <Kiểu 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 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 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ố ngun A có tối đa 50 phần tử
d) Bảng nhân B có tối đa hàng cột với phần tử số nguyên
(4)Câu 2: a) Hãy điền vào lệnh cịn thiếu để chương trình sau cho phép nhập xâu kí tự từ bàn phím, chuyển tất kí tự thành chữ in hoa in 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 số chẵn từ đến 1000 (Tính tổng S = + 4+ + …+1000)
……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ………
ĐÁP ÁN:
Mã đề: 101
I TRẮC NGHIỆM: (6 điểm) Mỗi câu 0,5 điểm
CÂU 1 2 3 4 5 6 7 8 9 10 11 12
ĐA B C B A B A B B B C A C
II TỰ LUẬN: (4 điểm)
(5)END
Cách 2:
Program Tinh_tong1; Var i, n, s: Integer; BEGIN
Writeln(‘Nhap n=’);Readln(n); s:=0;
for i:=1 to n s:=s + Sqr(i); Writeln(‘Tong s=’,s);
Readln END
Mã đề: 102
I TRẮC NGHIỆM: (6 điểm) Mỗi câu 0,5 điểm
CÂU 1 2 3 4 5 6 7 8 9 10 11 12
ĐA C A C C B A B A B B B B
II TỰ LUẬN: (4 điểm)
Câu 1: a) Var A: array[1 50] of Integer; 0,5 đ b) Var B: array[1 8,1 9] of Integer; 0,5 đ Câu 2: a) String, Readln(St), length(St), St[i] 1đ
b) Cách 1: đ Program Tinh_tong2;
Var i, s: longint; BEGIN
s:=0;
for i:=1 to 500 s:=s + 2*i; Writeln(‘Tong s=’,s);
Readln END
Cách 2:
Program Tinh_tong2; Var i, s: Longint; BEGIN
s:=0;
(6)