THI HC K II NM HC 2010 - 2011 MễN TIN HC KHI 11 (Thi gian: 45phỳt) Nội dung Các mức độ Thông hiểu Nhận biết TL TL Câu Kiểu tệp 1 Chơng trình câu 1,3 Tổng cộng Vận dụng TL câu 4a, Cõu 3 9 Tổng cộng Câu 4b,c 10.0 Cõu 1: Hm l gỡ? cho vớ d? Nờu cu trỳc cỳ phỏp ca hm? (1,5) Cõu 2: (1) Cho chng trỡnh sau: Var f:text; Begin Assign(f, ABC.txt); Rewrite(f) Write(f, 105+304-234); close(f) end. Sau thc hin chng trỡnh ABC.txt cú ni dung nh th no? Cõu 3: (1.5) CHo chng trỡnh sau: Cõu hi Var a,b :Integer; Quan sỏt v cho bit: Procedure Hoandoi(Var a,b:Integer); Var tg: Integer; Begin + CTC trờn vit theo dng gỡ? tg:= a; a:=b; b:= tg; + Nờu cỏc tham s thc s? end; + Nờu tờn cỏc bin cc b? Begin + CTC trờn dựng lm gỡ? a:= 10; b:= 11; + Li gi ca CTC chng trỡnh Hoandoi(b,a); chớnh l lnh no? Write(a, , b); end. Cõu 4: (4,5)Cho mng T gm 20 phn t thuc kiu nguyờn? Vit chng trỡnh thc hin cỏc yờu cu sau: a) Vit th tc nhp giỏ tr cho mng T t bn phớm? b) Vit hm tớnh giỏ tr trung bỡnh ca cỏc phn t va nhp? c) Tớnh tng cỏc phn t l , chn mng T? Cõu 5(1,5) Vit chng trỡnh nhp vo xõu s1 di 15 kớ t v in xõu va nhp? Cõu 1: Th tc l gỡ? cho vớ d? Nờu cu trỳc cỳ phỏp ca th tc? (1,5) Cõu 2: (1) Cho chng trỡnh sau: Var f:text; Begin Assign(f, ABC.txt); Rewrite(f) Write(f, 105+304-234); close(f) end. Sau thc hin chng trỡnh ABC.txt cú ni dung nh th no? Cõu 3: (1.5) CHo chng trỡnh sau: Cõu hi Var x,y,z :Integer; Quan sỏt v cho bit: S:longint; Function tong ( a,b,c :Integer):longint; Begin + CTC trờn vit theo dng gỡ? tong:=a+b+c; + Nờu cỏc tham s thc s? end; + Nờu tờn cỏc bin cc b? Begin + CTC trờn dựng lm gỡ? Write(nhap gia tri x, y, z:); + Li gi ca CTC chng trỡnh readln(x,y,z); chớnh l lnh no? S:= tong(x,y,z); writeln(tong:,S); readln end. Cõu 4: (4,5)Cho mng A gm 10 phn t thuc kiu nguyờn? Vit chng trỡnh thc hin cỏc yờu cu sau: a) Vit th tc nhp giỏ tr cho mng A t bn phớm? b) m xem mng cú bao nhiờu phn t chn, l; c) In mn hỡnh giỏ tr trung bỡnh ca cỏc phn t trongmng A Cõu 5(1,5) Vit chng trỡnh nhp vo xõu s di 10 kớ t v in xõu va nhp? Cõu ỏp ỏn: 1: Ni dung - Hm l chng trỡnh thc hin mt s thao tỏc no ú v tr v mt giỏ tr qua tờn ca nú. - Vớ d: sin(x); sqrt(x) - Cu trỳc cỳ phỏp ca hm: Function [] : ; [] Begin [] end; - Sau thc hin chng trỡnh ABC.txt cú ni dung l kt qu: 175 - Chng trỡnh trờn vit theo dng th tc - Cỏc tham s thc s l a= 10 ; b= 11 - Tờn cỏc bin cc b: tg - Chng trỡnh trờn dựng hoỏn i gia tr ca s nguyờn cho - Li gi ca chng trỡnh chng trỡnh chớnh l: Hoandoi(b,a) a) Th tc nhp giỏ tr ca mng T t bn phớm: Procedure nhap(var B:km); var i:byte; begin for i:= to 10 begin writeln(`nhap b[`,i,`]=`); readln(b[i]); end; end; b) Hm tớnh giỏ tr trung bỡnh ca cỏc phn t ca mng: function tbinh(var b:km):real; var i, tong: integer; begin tong:= 0; for i:= to 10 tong:= tong+b[i]; tbinh:= tong/10; end; c) Tớnh tng cỏc phn t l, chn mng T *) function tongchan(var b:km):real; var i, tong: integer; begin tong:= 0; for i:= to 10 if b[i]mod = then tong:= tong+b[i]; tongchan:= tong; end; *) function tongchan(var b:km):real; var i, tong: integer; begin tong:= 0; im 0,5im 0,5 im 0,5 im 1im 0,5im 0,5im 0,5im 1,5im 1im 1im 1im for i:= to 10 if b[i]mod 0 then tong:= tong+b[i]; tongchan:= tong; end; Chng trỡnh nhp xõu v in xõu: Procedure nhap; var s:string[15]; Begin write(`nhap xau`); readln(s); writeln(s); End; Cõu 2: Ni dung - Th tc l chng trỡnh thc hin mt s thao tỏc nht nh nhng khụng tr v mt giỏ tr qua tờn ca nú. - Vớ d: writeln, readln - Cu trỳc cỳ phỏp ca hm: Procedure [] ; [] Begin [] end; - Sau thc hin chng trỡnh ABC.txt cú ni dung l kt qu: 175 - Chng trỡnh trờn vit theo dng hm - Cỏc tham s thc s l x, y, z - Tờn cỏc bin cc b: khụng cú - Chng trỡnh trờn dựng tớnh tng ba s nguyờn nhp t bn phớm - Li gi ca chng trỡnh chng trỡnh chớnh l: tong(x,y,z) a) Th tc nhp giỏ tr ca mng A t bn phớm: Procedure nhap(var A:km); var i:byte; begin for i:= to 10 begin writeln(`nhap b[`,i,`]=`); readln(b[i]); end; end; b) m cỏc phn t l, chn mng T *) function demchan(var b:km):real; var i, sochan: integer; begin sochan:= 0; for i:= to 10 if b[i]mod = then sochan:=sochan+1; demchan:=sochan; end; *) function demle(var b:km):real; var i, sole: integer; 1,5im im 0,5im 0,5 im 0,5 im 1im 0,5im 0,5im 0,5im 1,5im 1im 1im begin sole:= 0; for i:= to 10 if b[i]mod then sole:=sole+1; demle:=sole; end; c) Hm tớnh giỏ tr trung bỡnh ca cỏc phn t ca mng: Procedure inTB(var b:km); var i, tong: integer; tb:real; begin tong:= 0; for i:= to 10 tong:= tong+b[i]; tb:= tong/10; writeln(`gia tr trung binh cua mang la:`,tb:8:3); end; Chng trỡnh nhp xõu v in xõu: Procedure nhap; var s:string[15]; Begin write(`nhap xau`); readln(s); writeln(s); End; 1im 1,5im . ĐỀ THI HỌC KỲ II NĂM HỌC 2010 - 2011 MÔN TIN HỌC KHỐI 11 (Thời gian: 45phút) Néi dung C¸c møc ®é Tæng céngNhËn biÕt. 1 1 1 Ch¬ng tr×nh con 3 c©u 1,3 3 2 c©u 4a, Câu 5 3 3 C©u 4b,c 3 8 9 Tæng céng 4 4 2 3 3 3 9 10.0 Đề 1 Câu 1: Hàm là gì? cho ví dụ? Nêu cấu trúc cú pháp của hàm? (1,5đ) Câu 2: (1đ) Cho chương trình. mảng T? Câu 5(1,5) Viết chương trình con nhập vào 1 xâu s1 dài 15 kí tự và in ra xâu vừa nhập? Đề 2 Câu 1: Thủ tục là gì? cho ví dụ? Nêu cấu trúc cú pháp của thủ tục? (1,5đ) Câu 2: (1đ) Cho chương