NỘI DUNG ĐỀ: (Gồm 30 câu_4 trang, mỗi câu 1/3 điểm) Câu 1 : Trong Pascal, với khai báo Var A: Array[1 100] of integer; thì biến A thuộc kiểu dữ liệu nào? A. Xâu B. Tệp C. Integer D. mảng 1 chiều Câu 2 : Sự khác nhau cơ bản giữa thủ tục và hàm là: A. Thủ tục trả về kết quả qua tên còn hàm không trả về kết quả; B. Hàm không có tham số còn thủ tục có tham số; C. Hàm luôn trả về kết quả qua tên còn thủ tục không trả về kết quả; D. Thủ tục không có tham số còn hàm có tham số; Câu 3 : Trong Pascal, khai báo nào sau đây là đúng? A. Var i:byte; A:Array[1 i]of integer; B. Var A:Array[1 60]of integer; C. Var i:byte; A:Array[i 100]of integer; D. Var A:Array[1 60]of integer; Câu 4 : Chọn phương án ghép đúng? Mảng 1 chiều: A. là dãy hữu hạn các phần tử cùng kiểu B. là dãy kí tự C. là dãy số nguyên D. là dãy hữu hạn các phần tử khác kiểu Câu 5: Đoạn lệnh nào sau đây tính tổng các số lẻ trong dãy gồm n số nguyên? A. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+i; B. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+a[i]; C. S:=0; for i:=1 to n do if A[i] mod 2=1 then s:=s+a[i]; D. S:=0; for i:=1 to n do if A[i] mod 2=0 then s:=s+a[i]; Câu 6: Trong Pascal, để khai báo một xâu có độ dài không quá 40 kí tự khai báo thế nào? A. Var s:string; B. Var S:string[40]; C. Var S[40]:string; D. Var S:[40]string; Câu 7 : Hàm nào sau đây cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2? A. Upcase(s1, s2,vt); B. Pos(s1, s2); C. Pos(s1, s2, vt); D. Insert(s1, s2); Câu 8: Khẳng định về kiểu dữ liệu tệp văn bản (Text) nào sau là đúng nhất? A. Được lưu trữ trên bộ nhớ ngoài ; B. Được lưu trữ trên ROM; C. Được lưu trữ trên RAM; D. Chỉ được lưu trữ trên đĩa cứng; Câu 9 : Thủ tục Reset(<biến tệp>); dùng để : A. Ghi dữ liệu lên tệp văn bản; B. Đọc dữ liệu từ tệp văn bản; C. Mở tệp văn bản để ghi; D. Mở tệp văn bản để đọc; Câu 10 : Mảng A gồm bao nhiêu phần tử? Cho mảng A được nhập ở đoạn chương trình sau: for i:=1 to 6 do begin write('a[',i,']='); readln(a[i]); end; A. 6 B. i C. n D. 1 Câu 11 : Dữ liệu kiểu xâu có độ dài tối đa là: A. 255 kí tự B. 128 kí tự C. 256 kí tự D. 102 kí tự SỞ GD - ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH ĐỀ KIỂM TRA HỌC KÌ II LỚP 11 NĂM HỌC: 2012- 2013 Môn: TIN HỌC Thời gian làm bài: 45 phút (Không kể thời gian phát, chép đề) MÃ ĐỀ: 101 Câu 12: Cho hai xâu s, p. Thực hiện đoạn lệnh sau thì p nhận giá trị nào sau đây? begin s:= ‘1 cay lam chang len non, 3 cay chum lai len hon nui cao’ p:= ‘’; for i:= length(s) downto 1 do if (s[i]>=’0’) and (s[i] <= ‘9’) do p:=p+s[i]; end; A. ‘cay lam chang len non, cay chum lai len hon nui cao’ B. ‘13’ C. ‘0123456789’ D. ‘31’ Câu 13: Trong chương trình con, khẳng định nào sau đây là sai ? A. Phần tên bắt buộc phải có; B. Phần thân chương trình bắt buộc phải có; C. Phần khai báo bắt buộc phải có; D. Tham số trong phần đầu không bắt buộc phải có; Câu 14: Cú pháp nào sau đây là cú pháp của lệnh ghi dữ liệu vào tệp? A. Writeln(<danh sách kết quả>); B. Writeln(<danh sách kết quả>,<biến tệp>); C. Readln(<biến tệp>,<danh sách biến>); D. Writeln(<biến tệp>,<danh sách kết quả>); Câu 15: Với f là tệp văn bản, đoạn chương trình sau thực hiện công việc gì? Assign(f, ‘in.txt’); Rewrite(f); For i:= ‘A’ to ‘Z’ do writeln(f, i); A. Ghi vào tệp in.txt các chữ cái in hoa từ A đến Z, tất cả các chữ cái nằm trên 1 dòng; B. Đưa ra màn hình các chữ số từ 1 đến 26; C. Ghi vào tệp in.txt các chữ cái in hoa từ A đến Z, mỗi chữ cái nằm trên 1 dòng; D. Đưa ra màn hình các chữ cái in hoa trong bộ mã ASCII; Câu 16: Đoạn lệnh nào sau đây thực hiện ghi vào tệp hocsinh.dat họ tên của 20 học sinh, biết họ tên của mỗi người ghi trên 1 dòng. A. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do begin write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); writeln(f,ht); end; B. Assign(f,'hocsinh.dat'); reset(f); for i:=1 to 20 do begin readln(f,ht); write(ht); end; C. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do begin write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); write(f,ht); end; D. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); writeln(f,ht); Câu 17: Cho mảng A gồm 8 phần tử. Biến F nhận giá trị nào sau khi chạy đoạn chương trình sau đây: begin A[1]:=1; A[2]:=1; for i:= 3 to 8 do A[i]:=A[i-2]+A[i-1]; F:=A[i]; end; A. 52 B. 2 C. 33 D. 21 Câu 18: Hãy chọn khai báo biến cho các biến trong thân chương trình sau: Begin Assign(f1,'data.txt'); Reset(f1); Assign(f2,'ketqua.txt'); Rewrite(f2); While not eof(f1) do Begin Read(f1,a); if a mod 2 =0 then write(f2,a,' '); End; Close(f1); Close(f2); End. A. Var data.txt: text; ketqua.txt: text; a:char; B. Var f1,f2:text; a:char; C. Var f1,f2:text; a:integer; D. Var f1,f2,a:text; Câu 19: Để khai báo một biến tệp, khai báo nào sau đây hợp lệ ? A. Var f: text; B. Var f = text; C. Var :f text; D. Var f: byte; Câu 20: Khai báo xâu nào sau đây là hợp lệ? A. Var: st: string; B. Var st string; C. Var st : string[256]; D. Var st: string[255]; Câu 21: Xét chương trình sau, rồi chọn đáp án đúng? Var t,m,c,d: word; Function ucln(a,b:word):word; Begin While a<>b do if a>b then a:=a-b else b:=b-a; end; Begin Write('nhap tu va mau cua phan so:'); readln(t,m); c:=t div ucln(t,m); d:=m div ucln(t,m); writeln('ket qua la:',c,'/',d); End. A. a, b, t, m là tham số hình thức B. a, b là tham số hình thức còn t, m là tham số thực sự C. a, b, t, m là tham số thực sự D. a, b là tham số thực sự còn t, m là tham số hình thức Câu 22: Chọn phương án đúng, phương án nào sau đây là thực hiện chương trình con? A. Max(a,b); B. Max(a,b:byte):byte; C. Max(a,b:real):real; D. Max(var a,b:byte):byte; Câu 23: Tệp songuyen.dat lưu n số nguyên của mảng 1 chiều, để in tất cả các số nguyên trong tệp ra màn hình thì sau khi thực hiện 2 thủ tục Assign(f,'songuyen.dat'); reset(f); ta thực hiện lệnh nào? A. For i:=1 to n do begin read(f,a); write(a:5); end; B. While not eof(f) do read(f,a); write(a:5); C. While not eof(f) do begin read(f,a); write(a:5);end; D. For i:=1 to n do read(f,a); write(a:5); Câu 24: Cho đoạn chương trình sau: var f: text; i:byte; begin assign(f, ‘c:\kq.txt’); rewrite(f); for i:=1 to 10 do if i mod 2 =1 then write(f, i); close(f); readln end. Sau khi thực hiện chương trình trên, nội dung tệp ‘kq.txt’ gồm những phần tử nào? A. 1; 3; 5; 9 B. 1; 3; 5; 7; 9 C. 2; 4; 6; 8;10 D. 4; 6; 8;10 Câu 25: Chương trình sau, biến nào là biến toàn cục? Program test; var x,y: integer; procedure hoandoi(var a,b:integer); var i:integer; begin i:=a; a:=b; b:=i; end; Begin x:= 5; y:=11; hoandoi(x,y); Writeln('x=',x,' y=',y); End. A. i B. a, b C. x, i, b D. x,y Câu 26: Để gán tệp data.inp đã lưu trên ổ đĩa D cho biến tệp f ta sử dụng câu lệnh: A. assign(f, ‘D:\data.inp’); B. assign(‘f ’, ‘D:\data.inp’); C. assign(‘D:\data.inp’, f ); D. assign(f, D:\data.inp); Câu 27: Xác định biểu thức cho giá trị đúng (true) trong các biểu thức sau đây. A. ‘Anh’ > ‘Em’ B. ‘Tin hoc’ > ‘Tien hoc le – Hau hoc van’ C. ‘Ninh thuan que toi’ < ‘Ninh thuan’ D. ‘Truong chinh’ = ‘TRUONG CHINH’ Câu 28: Khai báo thủ tục nào sau đây là hợp lệ? A. Procedure vidu(a: integer): integer; B. Procedure vidu: integer; C. Procedure vidu(var a: integer); D. Procedure (a: integer); Câu 29: Thủ tục dưới đưa ra hình nào sau đây ? procedure Tamgiac; var i, j:byte ; begin for i:= 4 downto 1 do begin for j:= 1 to i do write( '*':2) ; writeln; end ; end; A. * * * * * * * * * * B. * * * * * * * * * * C. * * * * * * D. * * * * * * * * * * * * * * Câu 30: Giả sử: st:=’abcd’; Sau khi thực hiện thủ tục Insert(‘ab’, st, 2); cho kết quả là: A. ababcd B. aabbcd C. ababad D. abcdab HẾT NỘI DUNG ĐỀ: (Gồm 30 câu_4 trang, mỗi câu 1/3 điểm) Câu 1: Xác định biểu thức cho giá trị đúng (true) trong các biểu thức sau đây. A. ‘Tin hoc’ > ‘Tien hoc le – Hau hoc van’ B. ‘Anh’ > ‘Em’ C. ‘Truong chinh’ = ‘TRUONG CHINH’ D . ‘Ninh thuan que toi’ < ‘Ninh thuan’ Câu 2: Khai báo thủ tục nào sau đây là hợp lệ? A. Procedure vidu: integer; B. Procedure vidu(a: integer): integer; C. Procedure (a: integer); D . Procedure vidu(var a: integer); Câu 3: Thủ tục dưới đưa ra hình nào sau đây ? procedure Tamgiac; var i, j:byte ; begin for i:= 4 downto 1 do begin for j:= 1 to i do write( '*':2) ; writeln; end ; end; A. * * * * * * * * * * B. * * * * * * * * * * C. * * * * * * * * * * D. * * * * * * * * * * SỞ GD - ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH ĐỀ KIỂM TRA HỌC KÌ II LỚP 11 NĂM HỌC: 2012- 2013 Môn: TIN HỌC Thời gian làm bài: 45 phút (Không kể thời gian phát, chép đề) MÃ ĐỀ: 102 Câu 4: Giả sử: st:=’abcd’; Sau khi thực hiện thủ tục Insert(‘ab’, st, 2); cho kết quả là: A. ababcd B. aabbcd C . ababad D. abcdab Câu 5: Chọn phương án ghép đúng? Mảng 1 chiều: A. là dãy kí tự B. là dãy hữu hạn các phần tử cùng kiểu C. là dãy hữu hạn các phần tử khác kiểu D. là dãy số nguyên Câu 6: Đoạn lệnh nào sau đây tính tổng các số lẻ trong dãy gồm n số nguyên? A. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+a[i]; B. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+i; C. S:=0; for i:=1 to n do if A[i] mod 2=0 then s:=s+a[i]; D. S:=0; for i:=1 to n do if A[i] mod 2=1 then s:=s+a[i]; Câu 7: Trong Pascal, để khai báo một xâu có độ dài không quá 40 kí tự khai báo thế nào? A. Var S:string[40]; B. Var s:string; C . Var S:[40]string; D . Var S[40]:string; Câu 8: Trong Pascal, với khai báo Var A: Array[1 100] of integer; thì biến A thuộc kiểu dữ liệu nào? A. Tệp B. Xâu C. mảng 1 chiều D. Integer Câu 9: Sự khác nhau cơ bản giữa thủ tục và hàm là: A. Hàm không có tham số còn thủ tục có tham số; B. Thủ tục trả về kết quả qua tên còn hàm không trả về kết quả; C. Thủ tục không có tham số còn hàm có tham số; D. Hàm luôn trả về kết quả qua tên còn thủ tục không trả về kết quả; Câu 10: Trong Pascal, khai báo nào sau đây là đúng? A. Var A: Array[1 60]of integer; B. Var i:byte; A:Array[1 i]of integer; C. Var A: Array[1 60]of integer; D. Var i:byte; A:Array[i 100]of integer; Câu 11: Mảng A gồm bao nhiêu phần tử? Cho mảng A được nhập ở đoạn chương trình sau: for i:=1 to 6 do begin write('a[',i,']='); readln(a[i]); end; A. I B. 6 C. 1 D. n Câu 12: Dữ liệu kiểu xâu có độ dài tối đa là: A. 128 kí tự B. 255 kí tự C. 102 kí tự D. 256 kí tự Câu 13: Cho hai xâu s, p. Thực hiện đoạn lệnh sau thì p nhận giá trị nào sau đây? begin s:= ‘1 cay lam chang len non, 3 cay chum lai len hon nui cao’ p:= ‘’; for i:= length(s) downto 1 do if (s[i]>=’0’) and (s[i] <= ‘9’) do p:=p+s[i]; end; A. ‘13’ B. ‘cay lam chang len non, cay chum lai len hon nui cao’ C. ‘31’ D. ‘0123456789’ Câu 14 : Hàm nào sau đây cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2? A. Pos(s1, s2); B. Upcase(s1, s2,vt); C. Insert(s1, s2); D . Pos(s1, s2, vt); Câu 15: Khẳng định về kiểu dữ liệu tệp văn bản (Text) nào sau là đúng nhất? A. Được lưu trữ trên ROM; B. Được lưu trữ trên bộ nhớ ngoài ; C. Chỉ được lưu trữ trên đĩa cứng; D. Được lưu trữ trên RAM; Câu 16: Thủ tục Reset(<biến tệp>); dùng để : A. Đọc dữ liệu từ tệp văn bản; B. Ghi dữ liệu lên tệp văn bản; C. Mở tệp văn bản để đọc; D. Mở tệp văn bản để ghi; Câu 17: Đoạn lệnh nào sau đây thực hiện ghi vào tệp hocsinh.dat họ tên của 20 học sinh, biết họ tên của mỗi người ghi trên 1 dòng. A. Assign(f,'hocsinh.dat'); reset(f); for i:=1 to 20 do begin readln(f,ht); write(ht); end; B. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do begin write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); writeln(f,ht); end; C. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); writeln(f,ht); D. Assign(f,'hocsinh.dat'); rewrite(f); for i:=1 to 20 do begin write('nhap ho ten hoc sinh thu ',i,':'); readln(ht); write(f,ht); end; Câu 18: Cho mảng A gồm 8 phần tử. Biến F nhận giá trị nào sau khi chạy đoạn chương trình sau đây: begin A[1]:=1; A[2]:=1; for i:= 3 to 8 do A[i]:=A[i-2]+A[i-1]; F:=A[i]; end; A. 33 B. 21 C . 52 D. 2 Câu 19: Hãy chọn khai báo biến cho các biến trong thân chương trình sau: Begin Assign(f1,'data.txt'); Reset(f1); Assign(f2,'ketqua.txt'); Rewrite(f2); While not eof(f1) do Begin Read(f1,a); if a mod 2 =0 then write(f2,a,' '); End; Close(f1); Close(f2); End. A. Var f1,f2:text; a:char; B. Var data.txt: text; ketqua.txt: text; a:char; C. Var f1,f2,a:text; D. Var f1,f2:text; a:integer; Câu 20: Trong chương trình con, khẳng định nào sau đây là sai ? A. Phần thân chương trình bắt buộc phải có; B. Phần tên bắt buộc phải có; C. Tham số trong phần đầu không bắt buộc phải có; D . Phần khai báo bắt buộc phải có; Câu 21: Cú pháp nào sau đây là cú pháp của lệnh ghi dữ liệu vào tệp? A. Writeln(<danh sách kết quả>,<biến tệp>); B. Writeln(<danh sách kết quả>); C. Writeln(<biến tệp>,<danh sách kết quả>); D. Readln(<biến tệp>,<danh sách biến>); Câu 22: Với f là tệp văn bản, đoạn chương trình sau thực hiện công việc gì? Assign(f, ‘in.txt’); Rewrite(f); For i:= ‘A’ to ‘Z’ do writeln(f, i); A. Đưa ra màn hình các chữ số từ 1 đến 26; B. Ghi vào tệp in.txt các chữ cái in hoa từ A đến Z, tất cả các chữ cái nằm trên 1 dòng; C. Đưa ra màn hình các chữ cái in hoa trong bộ mã ASCII; D. Ghi vào tệp in.txt các chữ cái in hoa từ A đến Z, mỗi chữ cái nằm trên 1 dòng; Câu 23: Chọn phương án đúng, phương nào sau đây là thực hiện chương trình con? A. Max(a,b:byte):byt e; B. Max(a,b) ; C . Max(var a,b:byte):byte; D . Max(a,b:real):real; Câu 24: Tệp songuyen.dat lưu n số nguyên của mảng 1 chiều, để in tất cả các số nguyên trong tệp ra màn hình thì sau khi thực hiện 2 thủ tục Assign(f,'songuyen.dat'); reset(f); ta thực hiện lệnh nào? A. While not eof(f) do read(f,a); write(a:5); B. For i:=1 to n do begin read(f,a); write(a:5); end; C. For i:=1 to n do read(f,a); write(a:5); D. While not eof(f) do begin read(f,a); write(a:5);end; Câu 25: Cho đoạn chương trình sau: var f: text; i:byte; begin assign(f, ‘c:\kq.txt’); rewrite(f); for i:=1 to 10 do if i mod 2 =1 then write(f, i); close(f); readln end. Sau khi thực hiện chương trình trên, nội dung tệp ‘kq.txt’ gồm những phần tử nào? A. 1; 3; 5; 7; 9 B. 1; 3; 5; 9 C. 4; 6; 8;10 D . 2; 4; 6; 8;10 Câu 26: Để khai báo một biến tệp, khai báo nào sau đây hợp lệ ? A. Var f = text; B. Var f: text; C . Var f: byte; D. Var :f text; Câu 27: Khai báo xâu nào sau đây là hợp lệ? A. Var st string; B. Var: st: string; C. Var st: string[255]; D . Var st : string[256]; [...]... B C D - 1 2 3 4 x x x x 2 2 2 2 5 6 7 8 x ĐÁP ÁN 5 6 7 8 9 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 x x x x x x x x x x x x x x x x x x x x 2 3 9 0 x x x x x mỗi câu đúng được 1/ 3 điểm tổng số điểm là số câu đúng chia cho 3 làm tròn 1 chữ số sau dẫu phẩy SƠ GD VÀ ĐT NINH THUẬN Kiểm tra 1 tiết Trường THPT Trường Chinh Bộ môn: Tin học 11 Tổ Lý – Tin - KTCN Năm học: 2 012 - 2 013 ... s1 trong xâu s2? A Insert(s1, s2); B Pos(s1, s2, vt); C Pos(s1, s2); D Upcase(s1, s2,vt); - HẾT - SƠ GD VÀ ĐT NINH THUẬN Kiểm tra 1 tiết Trường THPT Trường Chinh Bộ môn: Tin học 11 Tổ Lý – Tin - KTCN Năm học: 2 012 - 2 013 -oOo -Họ và tên: ……………………………………………Lớp …………… -Phần trả lời: Chọn đáp án nào thì đánh dấu đáp án đó tại câu tương ứng: (Mỗi câu đúng được 5/6 điểm) Câ 1 2 3 4 5 6 7 8 9 1 1... max:=a [1] ; for i:=2 to n do if max . GD - ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH ĐỀ KIỂM TRA HỌC KÌ II LỚP 11 NĂM HỌC: 2 012 - 2 013 Môn: TIN HỌC Thời gian làm bài: 45 phút (Không kể thời gian phát, chép đề) MÃ ĐỀ: 10 2. Var A:Array [1 60]of integer; B. Var i:byte; A:Array[i 10 0]of integer; SỞ GD - ĐT NINH THUẬN TRƯỜNG THPT TRƯỜNG CHINH ĐỀ KIỂM TRA HỌC KÌ II LỚP 11 NĂM HỌC: 2 012 - 2 013 Môn: TIN HỌC Thời. THUẬN Trường THPT Trường Chinh Tổ Lý – Tin - KTCN Kiểm tra 1 tiết Bộ môn: Tin học 11 Năm học: 2 012 - 2 013 oOo Họ và tên: ……………………………………………Lớp …………… -Phần trả lời: Chọn đáp án nào thì đánh