Đề thi học kì 2 môn Tin học 11 - Đề 44 - Năm học 2018-2019 - Trường THPT Mạc Đĩnh Chi (Có đáp án)

Nội dung text: Đề thi học kì 2 môn Tin học 11 - Đề 44 - Năm học 2018-2019 - Trường THPT Mạc Đĩnh Chi (Có đáp án)

1. TRƯỜNG THPT MẠC ĐĨNH CHI ĐỀ THI HỌC KÌ II, NĂM HỌC 2018-2019 TỔ: TIN MÔN: TIN 11-Đề 044 Thời gian làm bài: 45 phút; HỌ VÀ TÊN: .. Lớp: .. I. Trắc nghiệm (6 điểm) Câu 1: Cho đoạn chương trình Procedure H_D( Var x, y:integer); Var TG: integer; Begin TG:=x; y:=x; y:=TG; end; A. Tìm giá trị TG B. Hàm hoán đổi giá trị x và y C. Thủ tục hoán đổi giá trị x, y D. Tìm giá trị nhỏ nhất. Câu 2: Từ khóa để viết thủ tục là A. Begin B. End. C. Procedure D. Program Câu 3: Trong PASCAL, writeln(f, d, m); A. ghi giá trị f, d vào tệp văn bản B. ghi giá trị d,m vào tệp văn bản C. ghi giá trị m vào tệp D. ghi giá trị f,d,m vào tệp văn bản Câu 4: Cho biết kết quả hàm Pos(‘h’, ‘MuaThu’); A. 2 B. 1 C. 5 D. 3 Câu 5: Kết thúc chương trình con bằng từ khóa nào? A. Var B. End; C. Clrscr; D. End. Câu 6: Để gắn tệp KQ.TXT cho biến tệp f1 ta sử dụng câu lệnh A. Assign(f1,‘KQ.TXT’); B. f1 := ‘KQ.TXT’; C. KQ.TXT := f1; D. Assign(‘KQ.TXT’,f1); Câu 7: Dữ liệu thuộc kiểu dữ liệu liệu tệp được lưu ở bộ nhớ nào ? A. Bộ nhớ trong B. Ram C. Bộ nhớ ngoài D. Rom Câu 8: Trong khi chưa kết thúc tệp... A. And B. while EOF(f) do C. EOLN( ); D. While not EOF(f) do Câu 9: Trong ngôn ngữ lập trình Pascal, gán k bằng độ dài xâu A. For i := length(S) downto 1 do write(S[i]); B. For i := length(S) downto 1 do write(S); C. k:= length(S); D. For i := 1 to length(S) do write(S[i]); Câu 10: Độ dài tối đa của xâu kí tự s[10] trong Pascal là: A. 10 B. 255 C. 256 D. Không giới hạn Câu 11: Trong PASCAL mở tệp h để đọc dữ liệu ta phải sử dụng thủ tục A. Reset(h); B. Rewrite(f); C. Reset(f); D. Rewrite(h); Câu 12: Chương trình nào cho giá trị trả về qua tên? A. Function B. Procedure C. Var D. Program Câu 13: Xâu kí tự có độ dài bằng 0 gọi là: A. Xâu ngắn B. Xâu rỗng C. Chứa kí tự 0 D. Không tồn tại Câu 14: Cho trước tệp văn bản BT2.TXT chỉ có một dòng, chứa dòng chữ : 1 BAN TEN GI? ngay ở đầu dòng. Chương trình Program VD; Var f : text ; A:byte; S:string Trang 1/2
2. Begin Assign(f, ‘BT2.TXT ’) ; Reset(f) ; Read(f, a, s) ; Write(s) ; Close(f) ; End . Trên màn hình sẽ hiện kết quả nào trong các kết quả cho dưới đây A. 1 B. BAN TEN GI? C. BAN TEN GI? BAN TEN GI? D. 1 BAN TEN GI? Câu 15: Trong PASCAL để khai báo biến tệp văn bản ta phải sử dụng cú pháp A. Var : String; B. Var : String; C. Var : Text; D. Var : Text; II. Tự luận(4 điểm) Câu1: Cho đoạn chương trình còn thiếu Var f: ; m,n: ; . Begin writeln(‘ nhập m,n’); Readln(n,m); Assign(f, ‘KQ.TXT’); Rewrite( .); {Đoạn tính tổng, tích và biến lưu là tong và tich} . . . Write(f ,Tong, ‘ ‘, tich ); {ghi tổng tích vào tệp} Close( ); END. a. Hoàn thành chương trình tính tổng và tích 2 giá trị m,n và ghi tổng, tích đó vào tệp (1điểm) b. Cho biết tên biến tệp Tên tệp: .(0.5điểm) c. Nếu m=4, n=4, sau khi thực hiện chương trình kết quả ghi ra tệp KETQUA.TXT giá trị là ............. và ........... (0.5điểm) Câu 2: Viết chương trình vẽ 4 hình tam giác như mẫu. Chương trình có sử dụng chương trình con để vẽ hình tam giác. Mỗi hình cách nhau 1 dòng kẻ ‘= = = = = = = = = = =’ * * * * * * * * * * * * * = = = = = = = = = = = = = = = = = = = = = = = BÀI LÀM Trang 2/2
3. Trang 3/2