Trang 1/3 - Mã đề: 262 Mã đề: 160 Câu Ðể gắn tên tệp cho tên biến tệp ta dùng lệnh: A :=; B Assign(, ); C Assign(, ); D :=; Câu Cho biết kết chương trình sau: Var a: Byte; Procedure Thu; Begin a:=100; End; Begin a:=10; write('a'); Thu; Write(a); End A a100 B 10100 C 1010 D a10 Câu Hãy tham biến phần tên thủ tục sau: Procedure Hieu(Var a:integer;Var d:char; b:char); A a, b B a C b, d D a, d Câu Chọn phát biểu phát biểu sau: A Chương trình đoạn lệnh giải toán khó mà thực tế không giải B Chương trình đoạn lệnh mô tả số thao tác định gọi từ nhiều vị trí chương trình C Chương trình thực thao tác định không trả giá trị qua tên D Chương trình thực số thao tác trả giá trị qua tên Câu Cho biết kết chương trình sau: Var a, b: Byte; Procedure TH(x:byte; Var y:Byte); Begin x:=x+2; y:=y+10; End; Begin a:=10; b:=20; TH(a,b); Write(a,' ',b); End A 10 20 B 12 30 C 12 20 D 10 30 Câu Trong chương trình, có sử dụng chương trình có phần đầu là: Function BT(c,d:byte):integer; câu lệnh gán T:=BT(4,7); Hãy tham số thực sự? A BT B c, d C 4, D T Câu Trong cấu trúc chương trình con, phần bắt buộc phải có là: A Phần tên phần thân B Phần tên C Phần tên phần khai báo D Phần khai báo phần thân Câu Cấu trúc khai báo tệp văn có dạng: A Type : Text; B Var : Text; C Var : Text; D Type : Test; Câu Giả sử Fi tệp văn bản, câu lệnh write(Fi,n,i); có chức năng: A Nhập giá trị Fi, n, i từ bàn phím B Ghi giá trị n, i vào tệp Fi C Đọc giá trị n, i từ tệp Fi D Xuất giá trị Fi, n, i hình Câu 10 Các thủ tục để ghi liệu vào tệp là: A Assign; Reset; Read; Close; B Assign; Write; Rewrite; Close; C Assign; Rewrite; Write; Close; D Assign; Reset; Write; Close; Câu 11 Tham số bị thay đổi giá trị sau lời gọi chương trình đựơc gọi là: A Tham trị B Tham số hình thức C Tham số thực D Tham biến Câu 12 Lời gọi chương trình có dạng: A [()]; B [()]; C [()]; D [()]; Câu 13 Cho biết chức chương trình sau: Function M(a:byte):Boolean; Begin If a mod = then M:=True Else M:=False; End; Trang 1/3 - Mã đề: 262 A Kiểm tra hàm M hay sai B Hàm sai cú pháp C Kiểm tra a có thuộc M hay không? D Kiểm tra a số chẵn hay lẻ Câu 14 Tệp mà liệu ghi dạng kí tự theo mã ASCII gọi là: A tệp có cấu trúc B tệp văn C tệp truy cập trực tiếp D tệp truy cập Câu 15 Cho biết ý nghĩa chương trình sau: Var F: Text; S,a: integer; Begin Assign(F, 'IN.DAT'); Reset (F); S:=0; While not eof(F) Begin Read(F,a); S:=S+a; End; Writeln(' Ket qua la:',S); Close(F); End A Đọc tệp IN.DAT đếm tệp có số nguyên a B Ghi tổng các số có tệp F vào tệp IN.DAT C Xuất hình tổng số có tệp F D Đọc tệp IN.DAT đếm tệp có kí tự a Câu 16 Ðóng tệp F thực câu lệnh: A Eof(F); B Exit(F); C Close(F); D Eoln(F); Câu 17 Cho đọan lệnh sau, đâu biến cục bộ? Function AA(x,k:byte):longint; Var T:longint; i:byte; Begin T:=1; For i:= to k T:=T*x; AA:=T; End; A AA B i, T C x, k D T Câu 18 Dữ liệu kiểu tệp lưu trữ ở: A ROM B RAM C Bộ nhớ D Bộ nhớ Câu 19 Cho phần tên chương trình con: Procedure hoan_doi(Var x:byte; y:byte); Lời gọi sau đúng? A Hoan_doi(10,B); B Hoan_doi(A,10); C Hoan_doi(A+3,B); D Hoan_doi(3,10); Câu 20 Các biến khai báo cho liệu vào/ chương trình gọi là: A tham số hình thức B tham số thực C biến toàn D biến cục Trang 1/3 - Mã đề: 262 Mã đề: 194 Câu Cho biết kết chương trình sau: Var a: Byte; Procedure Thu; Begin a:=100; End; Begin a:=10; write('a'); Thu; Write(a); End A a10 B a100 C 1010 D 10100 Câu Cấu trúc khai báo tệp văn có dạng: A Type : Text; B Var : Text; C Var : Text; D Type : Test; Câu Ðóng tệp F thực câu lệnh: A Eof(F); B Exit(F); C Close(F); D Eoln(F); Câu Chọn phát biểu phát biểu sau: A Chương trình thực số thao tác trả giá trị qua tên B Chương trình đoạn lệnh mô tả số thao tác định gọi từ nhiều vị trí chương trình C Chương trình đoạn lệnh giải toán khó mà thực tế không giải D Chương trình thực thao tác định không trả giá trị qua tên Câu Giả sử Fi tệp văn bản; câu lệnh write(Fi,n,i); có chức năng: A Ghi giá trị n, I vào tệp Fi B Đọc giá trị n, i từ tệp Fi C Xuất giá trị Fi, n, i hình D Nhập giá trị Fi, n, i từ bàn phím Câu Cho biết chức chương trình sau: Function M(a:byte):Boolean; Begin If a mod = then M:=True Else M:=False; End; A Kiểm tra a số chẵn hay lẻ B Kiểm tra a có thuộc M hay không C Hàm sai cú pháp D Kiểm tra hàm M hay sai Câu Cho biết kết chương trình sau: Var a, b: Byte; Procedure TH(x:byte; Var y:Byte); Begin x:=x+2; y:=y+10; End; Begin a:=10; b:=20; TH(a,b); Write(a,' ',b); End A 12 20 B 12 30 C 10 30 D 10 20 Câu Trong cấu trúc chương trình phần bắt buộc phải có là: A Phần tên phần khai báo B Phần khai báo phần thân C Phần tên D Phần tên phần thân Câu Dữ liệu kiểu tệp lưu trữ ở: A Bộ nhớ B Bộ nhớ C ROM D RAM Câu 10 Cho biết ý nghĩa chương trình sau: Var F: Text; S,a: integer; Begin Assign(F, 'IN.DAT'); Reset (F); S:=0; While not eof(F) Begin Read(F,a); S:=S+a; End; Writeln(' Ket qua la:',S); Close(F); End Trang 1/3 - Mã đề: 262 A Ghi tổng các số có tệp F vào tệp IN.DAT B Xuất hình tổng số có tệp F C Đọc tệp IN.DAT đếm tệp có số nguyên a D Đọc tệp IN.DAT đếm tệp có kí tự a Câu 11 Tệp mà liệu ghi dạng kí tự theo mã ASCII gọi là: A tệp văn B tệp truy cập C tệp truy cập trực tiếp D tệp có cấu trúc Câu 12 Tham số bị thay đổi sau lời gọi chương trình gọi là: A Tham trị B Tham biến C Tham số hình thức D Tham số thực Câu 13 Cho đọan lệnh sau, đâu biến cục bộ? Function AA(x,k:byte):longint; Var T:longint; i:byte; Begin T:=1; For i:= to k T:=T*x; AA:=T; End; A i, T B x, k C T D AA Câu 14 Các biến khai báo cho liệu vào/ chương trình gọi là: A biến cục B tham số hình thức C tham số thực D biến toàn Câu 15 Cho phần tên chương trình con: Procedure hoan_doi(Var x:byte; y:byte); Lời gọi sau đúng? A Hoan_doi(10,B); B Hoan_doi(A,10); C Hoan_doi(A+3,B); D Hoan_doi(3,10); Câu 16 Hãy tham biến phần tên thủ tục sau: Procedure Hieu(Var a:integer;Var d:char; b:char); A b, d B a, b C a D a, d Câu 17 Trong chương trình có sử dụng chương trình có phần đầu là: Function BT(c,d:byte):integer; câu lệnh gán T:=BT(4,7); Hãy tham số thực sự? A 4, B BT C T D c, d Câu 18 Lời gọi chương trình có dạng: A [()]; B [()]; C [()]; D [()]; Câu 19 Ðể gắn tên tệp cho tên biến tệp ta dùng lệnh: A Assign(, ); B :=; C :=; D Assign(, ); Câu 20 Các thủ tục để ghi liệu vào tệp: A Assign; Rewrite; Write; Close; B Assign; Write; Rewrite; Close; C Assign; Reset; Write; Close; D Assign; Reset; Read; Close; Trang 1/3 - Mã đề: 262 Mã đề: 228 Câu Ðể gắn tên tệp cho tên biến tệp ta dùng lệnh: A :=; B :=; C Assign(, ); D Assign(, ); Câu Các biến khai báo cho liệu vào/ chương trình gọi là: A tham số thực B biến cục C tham số hình thức D biến toàn Câu Hãy tham biến phần tên thủ tục sau: Procedure Hieu(Var a:integer;Var d:char; b:char); A a B a, b C a, d D b, d Câu Giả sử Fi tệp văn bản, câu lệnh write(Fi,n,i); có chức năng: A Nhập giá trị Fi, n, i từ bàn phím B Ghi giá trị n, i vào tệp Fi C Xuất giá trị Fi, n, i hình D Ðọc giá trị n, i từ tệp Fi Câu Lời gọi chương trình có dạng: A [()]; B [()]; C [()]; D [()]; Câu Ðóng tệp F thực câu lệnh: A Eof(F); B Eoln(F); C Exit(F); D Close(F); Câu Trong chương trình có sử dụng chương trình có phần đầu là: Function BT(c,d:byte):integer; câu lệnh gán T:=BT(4,7); Hãy tham số thực sự? A 4, B BT C T D c, d Câu Cho biết kết chương trình sau: Var a, b: Byte; Procedure TH(x:byte; Var y:Byte); Begin x:=x+2; y:=y+10; End; Begin a:=10; b:=20; TH(a,b); Write(a,' ',b); End A 10 30 B 12 30 C 12 20 D 10 20 Câu Dữ liệu kiểu tệp lưu trữ ở: A ROM B Bộ nhớ C RAM D Bộ nhớ Câu 10 Cho đọan lệnh sau, đâu biến cục bộ? Function AA(x,k:byte):longint; Var T:longint; i:byte; Begin T:=1; For i:= to k T:=T*x; AA:=T; End; A x, k B T C i, T D AA Câu 11 Cho biết kết chương trình sau: Function M(a:byte):Boolean; Begin If a mod = then M:=True Else M:=False; End; A Kiểm tra a số chẵn hay lẻ B Kiểm tra hàm M hay sai C Kiểm tra a có thuộc M hay không? D Hàm sai cú pháp Câu 12 Cho phần tên chương trình con: Procedure hoan_doi(Var x:byte; y:byte); Lời gọi sau đúng? A Hoan_doi(A,10); B Hoan_doi(A+3,B); C Hoan_doi(10,B); D Hoan_doi(3,10); Câu 13 Chọn phát biểu phát biểu sau: A Chương trình thực số thao tác trả giá trị qua tên B Chương trình đoạn lệnh giải toán khó mà thực tế không giải C Chương trình đoạn lệnh mô tả số thao tác dịnh gọi từ nhiều vị trí chương trình D Chương trình thực thao tác định không trả giá trị qua tên Câu 14 Cấu trúc khai báo tệp có dạng: Trang 1/3 - Mã đề: 262 A Var : Text; B Var : Text; C Type : Test; D Type : Text; Câu 15 Tham số bị thay đổi sau lời gọi chương trình gọi là: A Tham trị B Tham biến C Tham số hình thức D Tham số thực Câu 16 Cho biết ý nghĩa chương trình sau: Var F: Text; S,a: integer; Begin Assign(F, 'IN.DAT'); Reset (F); S:=0; While not eof(F) Begin Read(F,a); S:=S+a; End; Writeln(' Ket qua la:',S); Close(F); End A Xuất hình tổng số có tệp F B Đọc tệp IN.DAT đếm tệp có số nguyên a C Ðọc tệp IN.DAT đếm tệp có kí tự a D Ghi tổng các số có tệp F vào tệp IN.DAT Câu 17 Tệp mà liệu ghi dạng kí tự theo mã ASCII gọi là: A tệp có cấu trúc B tệp truy cập trực tiếp C tệp văn D tệp truy cập Câu 18 Trong cấu trúc chương trình con, phần bắt buộc phải có là: A Phần khai báo phần thân B Phần tên C Phần tên phần thân D Phần tên phần khai báo Câu 19 Cho biết kết chương trình sau: Var a: Byte; Procedure Thu; Begin a:=100; End; Begin a:=10; write('a'); Thu; Write(a); End A 1010 B a100 C 10100 D a10 Câu 20 Các thủ tục để ghi liệu vào tệp: A Assign; Reset; Read; Close; B Assign; Rewrite; Write; Close; C Assign; Reset; Write; Close; D Assign; Write; Rewrite; Close; Trang 1/3 - Mã đề: 262 Mã đề: 262 Câu Trong cấu trúc chương trình phần bắt buộc phải có là: A Phần tên phần khai báo B phần tên phần thân C Phần tên D Phần khai báo phần thân Câu Ðóng tệp F thực câu lệnh: A Eoln(F); B Exit(F); C Eof(F); D Close(F); Câu Cấu trúc khai báo tệp văn có dạng: A Type : Text; B Var : Text; C Type : Test; D Var : Text; Câu Lời gọi chương trình có dạng: A [()]; B [()]; C [()]; D [()]; Câu Cho biết kết chương trình sau: Var a, b: Byte; Procedure TH(x:byte; Var y:Byte); Begin x:=x+2; y:=y+10; End; Begin a:=10; b:=20; TH(a,b); Write(a,' ',b); End A 12 30 B 10 20 C 10 30 D 12 20 Câu Dữ liệu kiểu tệp lưu trữ ở: A Bộ nhớ B RAM C Bộ nhớ D ROM Câu Cho biết chức chương trình sau: Function M(a:byte):Boolean; Begin If a mod = then M:=True Else M:=False; End; A Kiểm tra a số chẵn hay số lẻ B Hàm sai cú pháp C Kiểm tra hàm M hay sai D Kiểm tra a có thuộc M hay không? Câu Cho đọan lệnh sau, đâu biến cục bộ? Function AA(x,k:byte):longint; Var T:longint; i:byte; Begin T:=1; For i:= to k T:=T*x; AA:=T; End; A AA B i, T C x, k D T Câu Tệp mà liệu ghi dạng kí tự theo mã ASCII gọi là: A tệp truy cập B tệp truy cập trực tiếp C tệp có cấu trúc D tệp văn Câu 10 Tham số bị thay đổi sau lời gọi chương trình gọi : A Tham trị B Tham số thực C Tham biến D Tham số hình thức Câu 11 Cho phần tên chương trình con: Procedure hoan_doi(Var x:byte; y:byte); Lời gọi sau đúng? A Hoan_doi(3,10); B Hoan_doi(A+3,B); C Hoan_doi(A,10); D Hoan_doi(10,B); Câu 12 Trong chương trình có sử dụng chương trình có phần đầu là: Function BT(c,d:byte):integer; câu lệnh gán T:=BT(4,7); Hãy tham số hình thức ? A 4, B c, d C T D BT Câu 13 Cho biết ý nghĩa chương trình sau: Var F: Text; S,a: integer; Begin Assign(F, 'IN.DAT'); Reset (F); S:=0; While not eof(F) Begin Read(F,a); S:=S+a; Trang 1/3 - Mã đề: 262 End; Writeln(' Ket qua la:',S); Close(F); End A Đọc tệp IN.DAT đếm tệp có số nguyên a B Đọc tệp IN.DAT đếm tệp có kí tự a C Ghi tổng các số có tệp F vào tệp IN.DAT D Xuất hình tổng số có tệp F Câu 14 Các biến khai báo cho liệu vào/ chương trình gọi là: A tham số hình thức B tham số thực C biến cục D biến toàn Câu 15 Ðể gắn tên tệp cho tên biến tệp ta dùng lệnh: A :=; B :=; C Assign(, ); D Assign(, ); Câu 16 Chọn phát biểu phát biểu sau: A Chương trình đoạn lệnh mô tả số thao tác định gọi từ nhiều vị trí chương trình B Chương trình thực số thao tác trả giá trị qua tên C Chương trình thực thao tác định không trả giá trị qua tên D Chương trình đoạn lệnh giải toán khó mà thực tế không giải Câu 17 Cho biết kết chương trình sau: Var a: Byte; Procedure Thu; Begin a:=100; End; Begin a:=10; write('a'); Thu; Write(a); End A a100 B 1010 C a10 D 10100 Câu 18 Giả sử Fi tệp văn bản;câu lệnh write(Fi,n,i); có chức năng: A Ghi giá trị n, i vào tệp Fi B Xuất giá trị Fi, n, i hình C Đọc giá trị n, i từ tệp Fi D Nhập giá trị Fi, n, i từ bàn phím Câu 19 Các thủ tục dùng để ghi liệu vào tệp là: A Assign; Write; Rewrite; Close; B Assign; Reset; Read; Close; C Assign; Rewrite; Write; Close; D Assign; Reset; Write; Close; Câu 20 Hãy tham biến phần tên thủ tục sau: Procedure Hieu(Var a:integer;Var d:char; b:char); A a B a, d C b, d D a, b Sở GD-ĐT Tỉnh Lâm Đồng học 2010-2011 Trường THPT Đức Trọng Trang 1/3 - Mã đề: 262 KIỂM TRA HỌC KÌ II - Năm Môn: Tin Học - KHỐI 11 Thời gian: 45 phút Đáp án mã đề: 160 01 C; 02 A; 03 D; 04 B; 05 D; 06 C; 07 A; 08 B; 09 B; 10 C; 11 D; 12 A; 13 D; 14 B; 15 C; 16 C; 17 B; 18 C; 19 B; 20 A; Đáp án mã đề: 194 01 B; 02 B; 03 C; 04 B; 05 A; 06 A; 07 C; 08 D; 09 B; 10 B; 11 A; 12 B; 13 A; 14 B; 15 B; 16 D; 17 A; 18 C; 19 A; 20 A; Đáp án mã đề: 228 01 C; 02 C; 03 C; 04 B; 05 C; 06 D; 07 A; 08 A; 09 D; 10 C; 11 A; 12 A; 13 C; 14 A; 15 B; 16 A; 17 C; 18 C; 19 B; 20 B; Đáp án mã đề: 262 01 B; 02 D; 03 D; 04 C; 05 C; 06 A; 07 A; 08 B; 09 D; 10 C; 11 C; 12 A; 13 D; 14 A; 15 D; 16 A; 17 A; 18 A; 19 C; 20 B; Bài 1: đ Khai báo biến tệp Khai báo biến khác Gắn tên tệp Mở tệp để ghi Nhập hai số nguyên Ghi hai số nguyên vào tệp Tính ghi tổng/tích vào tệp Đóng tệp Cộng Biểu điểm 0.25 0.25 (thiếu biến điểm) 0.25 0.25 0.25 0.25 0.25 0.25 2.0 Trang 1/3 - Mã đề: 262 Đề 1: Dùng ngôn ngữ lập trình Pascal, viết chương trình nhập vào từ bàn phím số nguyên a, b, c, d, e, f, tính biểu thức P = Max(a, b) , sau xuất kết P hình Lưu ý Max (c, d ) + Max(e, f ) có sử dụng hàm Max(m,n: integer): integer; Đề 2: Dùng ngôn ngữ lập trình Pascal, viết chương trình nhập vào từ bàn phím số nguyên a, b, c, d, e, f, tính biểu thức P = Min(a, b) + Min(c, d ) , sau xuất kết P hình Lưu ý Min(e, f ) có sử dụng hàm Min(m,n: integer): integer; Đáp án đề Program ctc; Uses Crt; Var a,b,c,d,e,f: Integer; P: Real; Function Max(m,n: integer):Integer; Begin If m>n then Max:=m Else Max:=n; end; Begin Clrscr; write('Nhap vao so nguyen: '); readln(a,b,c,d,e,f); P:=Max(a,b)/(Max(c,d)+Max(e,f)); write('Ket qua P= ',P:10:2); readln End Đáp án đề Program ctc; Uses Crt; Var a,b,c,d,e,f: Integer; P: Real; Function Min(m,n: integer):Integer; Begin If m>n then Min:=n Else Min:=m; end; Begin Clrscr; write('Nhap vao so nguyen: '); readln(a,b,c,d,e,f); P:=(Min(a,b)+Min(c,d))/Min(e,f); write('Ket qua P= ',P:10:2); readln End ĐÁP ÁN Điểm số Ghi 0.25 đ 0.25 đ 1đ Đúng, xác Đúng, xác Đúng, xác toàn phần chương trình cho điểm 0.25đ 0.25đ 0.75đ 0.25đ Đúng, xác Đúng, xác Đúng, xác lời gọi Đúng, xác phải có định số lẻ điểm Ghi Điểm số 0.25 đ 0.25 đ 1đ Đúng, xác Đúng, xác Đúng, xác toàn phần chương trình cho điểm 0.25đ 0.25đ 0.75đ 0.25đ Đúng, xác Đúng, xác Đúng, xác lời gọi Đúng, xác phải có định số lẻ điểm ... d C b, d D a, b Sở GD-ĐT Tỉnh Lâm Đồng học 2010-2 011 Trường THPT Đức Trọng Trang 1/3 - Mã đề: 262 KIỂM TRA HỌC KÌ II - Năm Môn: Tin Học - KHỐI 11 Thời gian: 45 phút Đáp án mã đề: 160 01 C; 02... C; 07 A; 08 B; 09 B; 10 C; 11 D; 12 A; 13 D; 14 B; 15 C; 16 C; 17 B; 18 C; 19 B; 20 A; Đáp án mã đề: 194 01 B; 02 B; 03 C; 04 B; 05 A; 06 A; 07 C; 08 D; 09 B; 10 B; 11 A; 12 B; 13 A; 14 B; 15... D; 07 A; 08 A; 09 D; 10 C; 11 A; 12 A; 13 C; 14 A; 15 B; 16 A; 17 C; 18 C; 19 B; 20 B; Đáp án mã đề: 262 01 B; 02 D; 03 D; 04 C; 05 C; 06 A; 07 A; 08 B; 09 D; 10 C; 11 C; 12 A; 13 D; 14 A; 15