Đề kiểm tra 1 tiết HK2 Tin học 11

Nhằm phục vụ quá trình học tập, giảng dạy của giáo viên và học sinh 2 đề kiểm tra 1 tiết môn Tin học lớp 11 sẽ là tư liệu ôn tập hữu ích, giúp các bạn hệ thống lại kiến thức đã học. Mời các bạn cùng tham khảo để chuẩn bị tốt cho kì thi sắp tới.
Nội dung trích xuất từ tài liệu:
Đề kiểm tra 1 tiết HK2 Tin học 11 SỞ GD - ĐT NINH THUẬN ĐỀ KIỂM TRA HỌC KÌ II LỚP 11TRƯỜNG THPT TRƯỜNG CHINH 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Ã ĐỀ: 103NỘI DUNG ĐỀ: (Gồm 30 câu_4 trang, mỗi câu 1/3 điểm) Câu 1: 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. x, i, b B. x,y C. i D. a, b Câu 2: Để 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(‘D:data.inp’, f ); B. assign(f, D:data.inp); C. assign(f, ‘D:data.inp’); D. assign(‘f ’, ‘D:data.inp’); Câu 3: Xác định biểu thức cho giá trị đúng (true) trong các biểu thức sau đây. A. ‘Ninh thuan que toi’ < ‘Ninh thuan’ B. ‘Truong chinh’ = ‘TRUONG CHINH’ C. ‘Anh’ > ‘Em’ D. ‘Tin hoc’ > ‘Tien hoc le – Hau hoc van’ Câu 4: Đ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 A[i] mod 2=1 then s:=s+a[i]; B. S:=0; for i:=1 to n do if A[i] mod 2=0 then s:=s+a[i]; C. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+i; D. S:=0; for i:=1 to n do if i mod 2=0 then s:=s+a[i]; Câu 5: 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[40]:string; B. Var S:[40]string; C. Var s:string; D. Var S:string[40]; Câu 6: 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, vt); B. Insert(s1, s2); C. Upcase(s1, s2,vt); D. Pos(s1, s2); Câu 7: Dữ liệu kiểu xâu có độ dài tối đa là: A. 256 kí tự B. 102 kí tự C. 255 kí tự D. 128 kí tự Câu 8: 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] Function ucln(a,b:word):word; Begin While ab 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ố thực sự B. a, b là tham số thực sự còn t, m là tham số hình thức C. a, b, t, m là tham số hình thức D. a, b là tham số hình thức còn t, m là tham số thực sựCâu 18: 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:real):real; B. Max(var a,b:byte):byte; C. Max(a,b); D. Max(a,b:byte):byte;Câu 19: 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. 2Câu 20: 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:integer; B. Var f1,f2,a:text; C. Var data.txt: text; ketqua.txt: text; a:char; D. Var f1,f2:text; a:char;Câu 21: Để 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: byte; C. Var f: text; D. Var f = text;Câu 22: 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 begin read(f,a); write(a:5);end; B. For i:=1 to n do read(f,a); write(a:5); C. For i:=1 to n do begin read(f,a); write(a:5); end; D. While not eof(f) do read(f,a); write(a:5); Câu 23: Cho đoạ ...