TRẮC NGHIỆM: 6 điểm Hãy khoanh tròn vào câu trả lời đúng nhất Câu 1: Cách viết nào sau đây là đúng khi khai báo mảng một chiều?. đưa ra màn hình xâu S Câu 3: Cách tham chiếu đến phần tử [r]
Trang 1Lớp: 11……… (Thời gian: 45 phút không kể thời gian phát đề)
I TRẮC NGHIỆM: (6 điểm) Hãy khoanh tròn vào câu trả lời đúng nhất
Câu 1: 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>;
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: Cách tham chiếu đến phần tử của mảng:
A <Tên biến mảng>[<chỉ số>]; B <Tên biến mảng>[<kiểu chỉ số>];
C <Tên biến mảng>[<kiểu mảng>]; D <Tên biến mảng>[<kiểu phần tử>];
Câu 4: Với khai báo A: array[1 100] of integer; thì việc truy xuất đến phần tử thứ 7 như sau:
A A(7) B A[7] C A7 D A 7
Câu 5: Trong Pascal, để khai báo biến tệp văn bản ta sử dụng cú pháp:
A Var <tên tệp> : text; B Var <tên biến tệp> : text;
C Var <tên tệp>: string; D Var <tên biến tệp>: string;
Câu 6: Cho s=’abcdefghi’ hàm copy(s,2,3) cho giá trị bằng:
A bcd B ‘bcd’ C ‘cd’ D cd
Câu 7: Cho s=’Kon Tum Viet Nam’, hàm length(s) cho giá trị bằng:
A 16 B 15 C ‘16’ D ‘15’
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=’abcdefghi’ sau khi thực hiện thủ tục delete(s,3,4) thì:
A s=’abchi’ B s=’abcdi’ C s=’abghi’ 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: 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: Sau khi thực hiện đoạn lệnh sau:
S:=0; For i:=1 to 4 do S:=S+i;
S có giá trị là:
A 10 B 4 C 1 D 8
ĐÁP ÁN TRẮC NGHIỆM
ĐA
ĐA
MÃ ĐỀ:
Trang 2II TỰ LUẬN: ( 4 điểm )
Câu 1:
a) Hãy viết lệnh khai báo mảng để mô tả: Một dãy số nguyên A có 100 phần tử
b) 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ảng một chiều: Program nhapinm1chieu; Var A: Array[1 100] of real; i, N: integer; Begin Write(‘Nhap n= ’); readln(n); For i:=1 to
Begin Write(‘A[‘, i,’]=’);
End; Readln End Câu 2: Viết chương trình Pascal: Tính tổng S = 1 + 3 + 5 + 7 + + (2n 1), Biết n là một số tự nhiên khác 0 nhập vào từ bàn phím
Trang 3
Lớp: 11……… (Thời gian: 45 phút không kể thời gian phát đề)
I TRẮC NGHIỆM: (6 điểm) Hãy khoanh tròn vào câu trả lời đúng nhất
Câu 1: 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 2: Sau khi thực hiện đoạn lệnh sau:
S:=0; For i:=1 to 4 do S:=S+i;
S có giá trị là:
A 10 B 4 C 1 D 8
Câu 3: Cho A=’abc’; B=’ABC’; khi đó A+B cho kết quả nào?
A ‘aAbBcC’ B ‘abcABC’ C ‘AaBbCc’ D ‘ABCabc’
Câu 4: Cho xâu s=’abcdefghi’ sau khi thực hiện thủ tục delete(s,3,4) thì:
A s=’abchi’ B s=’abcdi’ C s=’abghi’ D s=”
Câu 5: 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 6: Cho s=’Kon Tum Viet Nam’, hàm length(s) cho giá trị bằng:
A 16 B 15 C ‘16’ D ‘15’
Câu 7: Cho s=’abcdefghi’ hàm copy(s,2,3) cho giá trị bằng:
A bcd B ‘bcd’ C ‘cd’ D cd
Câu 8: Trong Pascal, để khai báo biến tệp văn bản ta sử dụng cú pháp:
A Var <tên tệp> : text; B Var <tên biến tệp> : text;
C Var <tên tệp>: string; D Var <tên biến tệp>: string;
Câu 9: Với khai báo A: array[1 100] of integer; thì việc truy xuất đến phần tử thứ 7 như sau:
A A(7) B A[7] C A7 D A 7
Câu 10: Cách tham chiếu đến phần tử của mảng:
A <Tên biến mảng>[<chỉ số>]; B <Tên biến mảng>[<kiểu chỉ số>];
C <Tên biến mảng>[<kiểu mảng>]; D <Tên biến mảng>[<kiểu phần tử>];
Câu 11: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 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>;
ĐÁP ÁN TRẮC NGHIỆM
ĐA
ĐA
MÃ ĐỀ:
Trang 4II TỰ LUẬN: ( 4 điểm )
Câu 1:
a) Hãy viết lệnh khai báo mảng để mô tả: Một dãy số thực B có 150 phần tử
b) 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ảng một chiều: Program nhapinm1chieu; Var A: Array[1 100] of real; i, N: integer; Begin Write(‘Nhap n= ’); readln(n); For i:=1 to
Begin Write(‘A[‘, i,’]=’);
End; Readln End Câu 2: 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)
Trang 5
I TRẮC NGHIỆM: (6 điểm)
Mỗi câu đúng được 0,5 điểm
II TỰ LUẬN: (4 điểm)
Câu 1: (2 điểm)
a) Var A: array[1 100] of Integer; 1 điểm
b) n do 0,5 đ
readln(A[i]); 0,5 đ
Câu 2: (2 điểm)
Program Tinh_tong; 0,5 đ
Var i,n,s: Integer;
Begin
Writeln(‘Nhap n=’);Readln(n); 0,5 đ
s:=0;
For i:=1 to n do s:=s+(2*i + 1); 1 đ
Writeln(‘Tong s=’,s);
Readln
End.
Mã đề: 102
I TRẮC NGHIỆM: (6 điểm)
Mỗi câu đúng được 0,5 điểm
II TỰ LUẬN: (4 điểm)
Câu 1: (2 điểm)
a) Var A: array[1 150] of Real; 1 điểm
b) n do 0,5 đ
readln(A[i]); 0,5 đ
Câu 2: (2 điểm)
Cách 1:
Program Tinh_tong; 0,5 đ
Var i,n: Longint;
Begin
0,5 đ
s:=0;
For i:=1 to 500 do s:=s+2*i ; 1 đ
Writeln(‘Tong s=’,s);
Readln
End.
Trang 6Cách 2:
Program Tinh_tong; 0,5 đ
Var i,n: Longint;
Begin
s:=0; 0,5 đ
For i:=1 to 1000 do If i mod 2 = 0 then s:=s+i ;
Writeln(‘Tong s=’,s); 1 đ
Readln
End.