Họ tên: Lớp: KIỂM TRA TIẾT MÔN: TIN HỌC (Thời gian: 45 phút) Phê duyệt Vàng Thị Lý Đề bài: A PHẦN TRẮC NGHIỆM (4 điểm) Khoanh tròn vào đáp án Câu 1: Trong Pascal, để khai báo tệp văn ta sử dụng cú pháp A var :text; B var :text; C var : String; D var : String; Câu 2: Trong Pascal để khai báo hai biến tệp văn f1, f2 ta viết sau: A var f1 f2:text; B var f1;f2:text; C var f1,f2:text; D var f1:f2: text; Câu 3: Giả sử đĩa tồn tệp F chứa số nguyên có tên KQ.DAT, để đọc liệu từ tệp ta thực thao tác: A Assign(F, 'KQ.DAT'); Reset(F); Read(F,x); Close(F); D Assign(F, 'KQ.DAT'); B Assign(F, 'KQ.DAT'); C Reset(F); Reset(F); Rewrite(F); Read(F,x); Readln(F,x); Read(F,x); Assign(F, 'KQ.DAT'); Close(F); Close(F); Close(F); Câu 4: Để gán tệp kq.txt cho biến tệp f1 ta sử dụng câu lệnh A assign(‘f1,D:\kq.txt’); B assign(‘kq.txt=f1’); C assign(kq.txt,’D:\f1’); D assign(f1,’kq.txt’); Câu 5: Chọn khai báo đúng: A Procedure Loai bo (Var st: string); B Function Chuvi (a,b: Real); C Procedure P (Var x,y:integer) D Function Tong (x,y: Real): Real; Câu 6: Trong Pascal, mở tệp để đọc liệu ta sử dụng thủ tục: A reset(); B reset(); C rewrite(); D rewrite(); Câu 7: Để ghi kết vào tệp văn ta sử dụng thủ tục sau: A read(,); B read(,); C write(,); D write(,); Câu 8: Trong Pascal để đóng tệp ta dùng thủ tục: A Close(); B Close(); C Stop(); D Stop(); Câu 9: Phát biểu sau xác nói hàm EOF(): A Hàm cho giá trị True trỏ tệp vị trí kết thúc tệp B Hàm cho giá trị False trỏ tệp vị trí kết thúc tệp C Hàm cho giá trị False trỏ tệp vị trí kết thúc dòng D Hàm cho giá trị True trỏ tệp vị trí kết thúc dòng Câu 10: Khẳng định sau đúng? A Biến cục biến dùng chương trình chứa chương trình B Biến cục biến dùng chương trình C Biến cục biến dùng chương trình chứa D Biến toàn sử dụng chương trình không sử dụng chương trình Câu 11: Để khai báo chương trình Pascal khoá A Program B Procedure C Function D Var E Cả B C Câu 12: Khi ta mở lệnh thủ tục Rewirte, thì: A Nội dung tệp hình B Nội dung tệp nguyên C Nội dung tệp bị xoá D Tất sai Câu 13: Đọc chương trình sau: Var f:text; Sau thực chương trình bên, nội dung tệp Begin “Khoi11.txt” nào? Assign(g, ‘Khoi11.txt’); a 250 b 150 200 100 c 150+200-100 d 150200100 Rewrite(f); Write(f, 150+200 - 100); Close(g); Readln End Câu 14: Cách viết phần đầu hàm sau đúng? A Funtion UCLN(x,y): real; B Funtion UCLN(x,y: real): real; C Funtion UCLN(x: integer, y: real): real; D Funtion UCLN(x: integer, y: real): array[1 100] of real; Câu 15: Chương trình là: A Là khối lệnh để giải vấn đề khó B Là tập hợp lệnh để giải toán con, dùng toán lớn C Là chương trình nhỏ tạo thành chương trình lớn D Là chương trình ngắn để giải số toán đơn giản Câu 16: Cho hai khai báo sau: 1) Type a=array[1 100] of integer; Var f: file of a; 2) Var f: file of array[1 100] ò integer; Hai khai báo sau có tương đương không? A Có B Không B TỰ LUẬN (6 điểm) Câu 1: (1 điểm) Cho chương trình sau: Program CT; Var M,N:Integer; Procedure HD (Var x:integer; y:integer); Var tg: Integer; Begin tg:= x; x:= y; y:= tg; end; Begin m:=7; n:=8; HD(m,n); Writeln(m:5,n:5); Readln; End Trong chương trình lời gọi thủ tục HD không hợp lệ? Câu 2: (1 điểm) Đọc chương trình sau cho biết kết hiển thị lên hình chạy chương trình Program vd; Var m:integer; Procedure vd1; Begin m:=100; end; Begin m:= 1; vd1; Writeln(m); Readln; End Câu (4 điểm): Cho phần đầu chương trình sau: procedure nhap(var x, y: integer) function CTC1(m: Integer; var n: integer): integer; a) Cho biết x, y, m, n tham số thực hay tham số hình thức b) Cho tham biến, đâu tham trị c) Khi thực chương trình ta viết nhap(a, b) CTC1(c, d) a, b, c, d tham số hình thức hay tham số thực sự? d) Sau thực chương trình trên, tham số a, b, c, d tham số thay đổi giá trị, tham số thay đổi giá trị? ... Tất sai Câu 13 : Đọc chương trình sau: Var f:text; Sau thực chương trình bên, nội dung tệp Begin “Khoi 11. txt” nào? Assign(g, ‘Khoi 11. txt’); a 250 b 15 0 200 10 0 c 15 0+200 -10 0 d 15 020 010 0 Rewrite(f);... chương trình ngắn để giải số toán đơn giản Câu 16 : Cho hai khai báo sau: 1) Type a=array [1 100] of integer; Var f: file of a; 2) Var f: file of array [1 100] ò integer; Hai khai báo sau có tương đương... Câu 2: (1 điểm) Đọc chương trình sau cho biết kết hiển thị lên hình chạy chương trình Program vd; Var m:integer; Procedure vd1; Begin m: =10 0; end; Begin m:= 1; vd1; Writeln(m); Readln;