GV : Nguyễn Thục Quyên Trường THPT Bảo Lâm Thi Học Kỳ II Họ và tên: Môn: Tin Học – Thời gian : 45’ Lớp: Đề số 1 Caâu 1. A B C D Caâu 6. A B C D Caâu 11. A B C D Caâu 16. A B C D Caâu 2. A B C D Caâu 7. A B C D Caâu 12. A B C D Caâu 3. A B C D Caâu 8. A B C D Caâu 13. A B C D Caâu 4. A B C D Caâu 9. A B C D Caâu 14. A B C D Caâu 5. A B C D Caâu 10. A B C D Caâu 15. A B C D I. Ph ầ n Tr ắ c Nghi ệ m: (4 đ) Hãy tô đậm vào đáp án đúng nhất: Câu 1: Khác với thủ tục, trong thân của hàm cần có: A. Lệnh gán giá trị cho tên hàm B. Lời gọi hàm C. Các khai báo hằng, biến D. Gi ng thân c a th t cố ủ ủ ụ Câu 2 : Chứa các thủ tục và hàm liên quan đến việc quản lí và khai thác màn hình, bàn phím của máy tính là thư viện : A. graph B. crt C. clrscr D. Cả B và C Câu 3 : Nói về cấu trúc của một chương trình con, khẳng định nào sau đây là không đúng? A. Phần khai báo có thể có hoặc không có tuỳ thuộc vào từng chương trình. B. Phần đầu có thể có hoặc không có cũng được. C. Phần đầu nhất thiết phải có để khai báo tên chương trình con D. Cả A, B. C đều không đúng. Câu 4: Chương trình con thực hiện một số thao tác nào đó và trả về một giá trị thông qua tên của nó gọi là : A. thủ tục. B. Tên gọi C. hàm. D. Tham số Câu 5 : Khẳng định nào sau đây đúng? A. Một chương trình con nhất thiết phải có tham số hình thức B. Một chương trình con nhất thiết phải có biến cục bộ C. Một chương trình con có thể không có tham số hình thức và có thể không có biến cục bộ D. Một chương trình con nhất thiết phải có tham số hình thức, không nhất thiết phải có biến cục bộ. Câu 6 : Muốn mở tệp t ra để đọc thì ta dùng thủ tục: A. reset(t); B. Write(t); C. rewrite(t); D. Read(t) ; Câu 7 : Các thao tác dùng để ghi giá trị biến t vào tệp ‘KQ.TXT’ . (Gi ả s ử f là bi ế n t ệ p văn b ả n đã khai báo) A. Assign(f, ‘KQ.TXT’)->Writeln(f,t)->Rewrite(f)->Close(f) B. Assign(f, ‘KETQUA.OUT’)->Rewrite(f)->Writeln(f,t)->Close(f) C. Assign(f, ‘KQ.TXT’)->Readln(f,t)->Reset(f)->Close(f) D. Assign(f, ‘KQ.TXT’)->Reset(f)->Readln(f,t)->Close(f) Câu 8: Sự khác nhau giữa tham trị và tham biến trong khai báo chương trình con là: A. Tham trị phải được định nghĩa sau từ khóa Type B. Tham trị phải khai báo sau từ khóa Var C. Không khác nhau D. Tham biến phải có từ khóa Var đứng trước Câu 9 : Cho các thao tác để đọc dữ liệu từ tệp như sau: (1) Mở tệp để ghi dữ liệu ; (2) Khai báo và gán tên tệp với biến tệp; (3) Đóng tệp; (4) Mở tệp để đọc dữ liệu; (5) Ghi dữ liệu; (6) Đọc dữ liệu; Hãy chọn phương án ghép đúng để đọc dữ liệu vào tệp: A. (1) (2) (5) (3); B. (2) (4) (6) (3); C. (2) (1) (5) (3); D. (4) (6) (5) (2); Câu 10 : Để đặt màu cho nền của màn hình ta sử dụng thủ tục A. clrscr; B. TextClolor(color); C. gotoxy(x,y); D. Textbackground(color) ; Câu 11: Để gắn tên tệp kiemtra.dat cho tên biến tệp là Tep1, em sử dụng thủ tục nào sau đây? A. assign(Tep1,kiemtra.dat); B. assign(kiemtra.dat,'Tep1'); C. assign(Tep1,'kiemtra.dat'); D. assign('kiemtra',Tep1); Câu 12 : Cho khai báo bi n và khai báo hàm F (Gi s hàm F có n i dung b t kỳ):ế ả ử ộ ấ Var x, S : Real; n: Integer ; FUNCTION F( y: Real; m : Integer) : Real; + H i:ỏ L i g i hàm nào ờ ọ bên đây là đúng : Câu 13 : Chỉ ra câu đúng trong phần đầu của thủ tục : A. Procedure xuat : byte; C. Procedure (var a,b): byte; B. Procedure xuat(var a,b : byte):byte; D. Procedure xuat( var a,b : byte); Câu 14: Muốn kiểm tra xem đã hết tệp f chưa ta sử dụng thủ tục: A. eoln(f); B. Close(f); C. Eof(f); D. Efo(f); Câu 15: Tham số hình thức của thủ tục có mấy loại: A. S:= F(n, x); B. S:= F( x, n); C. S:= F( n); D. S:= F( x,y ); GV : Nguyễn Thục Quyên A. 1 loại. B. 2 loại. C. 3 loại. D. Không phân loại. Câu 16 : Chương trình con: A. Đư c g i t nhi u v trí trong chợ ọ ừ ề ị ương trình C. Là dãy l nh mô t m t thao tác nh t đ nhệ ả ộ ấ ị B. Đ gi i m t bài toán nào đóể ả ộ D. T t c đ u đúngấ ả ề II. Ph ầ n T ự Lu ậ n: (6đ) Câu 1: (1,5) cho chương trình sau: var x,y,z:integer; s:longint; Function tich(a,b,c:integer):longint; Begin tich:=a*b*c; end; BEGIN Write(‘Nhap gia tri cho x,y,z: ’); Readln(x,y,z); S:=tich(x,y,z); Write(‘Tich la: ’, S); Readln; END. Câu 2(2đ) Hãy nêu các bước mà một chương trình Pascal thực hiện trong thân của chương trình sau : Program bt; Var f: text; a,b,c : integer; P, s : real; begin assign(f,’DULIEU.TXT’); reset(f); while not eof(f) do begin readln(f,a,c,b); p:= (a+ b+ c )/2; s: = sqrt(p(p-a)(p-b)(p - c)); end; close(f); end. Câu 3 (2.5đ):Viết chương trình bằng pascal để tính diện tích hình chữ nhật. Trong đó có sử dụng hàm tính diện tích hình chữ nhật. Quan sát chương trình bên hãy cho biết? + Chương trình con trên viết theo dạng gì? + Nêu các tham số thực sự? + Nêu tên các biến cục bộ? + Nêu tên các biến toàn cục? + Chương trình con trên dùng để làm gì? + Lời gọi chương trình con trong chương trình chính là lệnh nào? GV : Nguyễn Thục Quyên ĐÁP ÁN ĐỀ SỐ 01 I. Trắc nghiệm : mỗi câu đúng được 0.25đ Caâu 1. Caâu 6. Caâu 11. Caâu 16. Caâu 2. Caâu 7. Caâu 12. Caâu 3. Caâu 8. Caâu 13 Caâu 4. Caâu 9. Caâu 14. Caâu 5. Caâu 10. Caâu 15 II. Tự luận Câu 1: Mỗi đáp án đúng được 0.25đ + Chương trình con trên viết theo dạng gì : hàm + Nêu các tham số thực sự : x,y,z + Nêu tên các biến cục bộ: không có + Nêu tên các biến toàn cục: x,y,z,s + Chương trình con trên dùng để làm gì : tính tích của ba số được nhập từ bàn phím. + Lời gọi chương trình con trong chương trình chính là lệnh nào: S: = tich(x,y,z); Câu 2: Chương trình sẽ được thực hiện như sau : • Gán tệp ’DULIEU.TXT’ cho biến tệp f. • Mở tệp f ra để đọc • Trong khi chưa hết tệp thì : - Đọc từng bộ dữ liệu ba cạnh của tam giác trong tệp f - Tính nữa chu vi - Tính diện tích tam giác bằng công thức Hê – rông • Đóng tệp và kết thúc chương trình. Câu 3: Program bai1; var a,b: byte; function dientich(var x,y: byte):byte; begin dientich:=x*y; end; begin write(‘hay nhap chieu dai, chieu rong’); read(a,b); write(‘dien tich hcn la:’,dientich(a,b):4:1); readln; end. . gắn tên tệp kiemtra.dat cho tên biến tệp là Tep1, em sử dụng thủ tục nào sau đây? A. assign(Tep1,kiemtra.dat); B. assign(kiemtra.dat,'Tep1'); C. assign(Tep1,'kiemtra.dat');. GV : Nguyễn Thục Quyên Trường THPT Bảo Lâm Thi Học Kỳ II Họ và tên: Môn: Tin Học – Thời gian : 45’ Lớp: Đề số 1 Caâu 1. A B C D Caâu 6. A B C D Caâu 11. A B . byte; B. Procedure xuat(var a,b : byte):byte; D. Procedure xuat( var a,b : byte); Câu 14: Muốn kiểm tra xem đã hết tệp f chưa ta sử dụng thủ tục: A. eoln(f); B. Close(f); C. Eof(f); D. Efo(f); Câu