ĐỀ THI THỰC HÀNH HK I NĂM 2008 - 2009

Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 20 phút (không kể thời gian phát đề) Năm học: 2008-2009 PHẦN TỰ LUẬN (4 Đ) Câu 1: Lập trình tính y:= x 3 +100. Và in kết quả ra màn hình. Câu 2: Viết chương trình tính s=1 + 2+3+ .+N. Và in kết quả ra màn hình Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 20 phút (không kể thời gian phát đề) Năm học: 2008-2009 PHẦN TỰ LUẬN (4 Đ) Câu 1: Xét chương trình sau: var a,i: byte {1} begin a=0; {2} for i:= 1 to 12 do; {3} if ( i mod 2=0) then {4} a= a + I {5} writeln(a); {6} readln; end. a. Hãy cho biết đoạn chương trình trên có lỗi không ? Nếu có hãy viết lại chương trình hoàn chỉnh. b. Hãy cho biết chương trình trên in ra màn hình kết quả là bao nhiêu ? Câu 2: Lập trình nhập từ bàn phím ba số nguyên a,b,c, đưa ra màn hình giá trị lớn nhất trong ba số đó. Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 PHẦN THỰC HÀNH Đề 1 Câu 1: Viết chương trình tính y=x 2 +2x. Và in kết quả ra màn hình (2đ) Câu 2: Viết chương trình tính s=1 + 2+3+ .+N. Và in kết quả ra màn hình (4đ) ********************** Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 PHẦN THỰC HÀNH Đề 2 Câu 1: Viết chương trình tính p=2a 2 – a Và in kết quả ra màn hình (2đ). Câu 2: Viết chương trình tính M= 1+ 1/2 +1/3+ .+1/a. Và in kết quả ra màn hình (4đ). ************************ Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 PHẦN THỰC HÀNH Đề 3 Câu 1: Viết chương trình tính M=x 2 +5x. Và in kết quả ra màn hình (2đ). Câu 2: Viết chương trình tính T=1+2+3+ .+x 2 . Và in kết quả ra màn hình (4đ) Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 ĐÁP ÁN PHẦN THỰC HÀNH Đề 1 Câu 1: Viết chương trình tính y=x 2 +2x. Và in kết quả ra màn hình (2đ) var x,y: integer; begin writeln('nhap x'); readln(x); y:=sqr(x) + 2*x; {hoac y:=x*x+2*x} writeln(y); readln; end. Giáo viên test thử x=1 nếu kết quả là 3 đúng thì được 2 điểm. Câu 2: Viết chương trình tính s=1 + 2+3+ .+N. Và in kết quả ra màn hình (4đ) Cách 1: var s,n,i:integer; begin writeln('nhap n'); readln(n); s:=0; for i:=1 to n do s:=s+i; writeln(s); readln; end. Cách 2: var s,n,i:integer; begin writeln('nhap n'); readln(n); s:=0;i:=1; while (i<=n) do begin s:=s+i; i:=i+1; end; writeln(s); readln; end. Giáo viên test thử n=3 kết quả là 6 đúng thì 4 điểm. Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 ĐÁP ÁN PHẦN THỰC HÀNH Đề 2 Câu 1: Viết chương trình tính p=2a 2 – a Và in kết quả ra màn hình (2đ). var p,a: integer; begin writeln('nhap a'); readln(a); p:=2*sqr(a)-a; {hoac p:=2*a*a-a;} writeln(p); readln; end. Câu 2: Viết chương trình tính M= 1+ 1/2 +1/3+ .+1/a. Và in kết quả ra màn hình (4đ). Cách 1: var m:real; i,a:integer; begin writeln('nhap a'); readln(a); m:=0; for i:= 1 to a do m:=m+1/i; writeln(m); readln; end. Cách 2 var m:real; i,a:integer; begin writeln('nhap a'); readln(a); m:=0; i:=1; while (i<=a) do begin m:=m+1/i; i:=i+1; end; writeln(m); readln; end. Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 25 phút (không kể thời gian phát đề) Năm học: 2008-2009 ĐÁP ÁN PHẦN THỰC HÀNH Đề 3 Câu 1: Viết chương trình tính M=x 2 +5x. Và in kết quả ra màn hình (2đ). var m,x: integer; begin writeln('nhap x'); readln(x); m:=sqr(x)+5*x; {hoac m:=x*x+5*x} writeln(m); readln; end. Giáo viên test thử x=1 kết quả là 6 đúng thì 2 điểm. Câu 2: Viết chương trình tính T=1+2+3+ .+x 2 . Và in kết quả ra màn hình (4đ) Cách 1: var t,x,i:integer; begin writeln('nhap x'); readln(x); t:=0; for i:= 1 to x do t:=t+sqr(i); {hoac t:=t+i*i} writeln(t); readln; end. Cách 2: var t,x,i:integer; begin writeln('nhap x'); readln(x); t:=0; i:=1; while (i<=x) do begin t:=t+sqr(i); {hoac t:=t+i*i} i:=i+1; end; writeln(t); readln; end. Giáo viên test thử x=2 kết quả là 5 đúng thì 4 điểm. Trường THPT Lai Vung 2 ĐÁP ÁN ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 20 phút (không kể thời gian phát đề) Năm học: 2008-2009 ĐÁP ÁN PHẦN TỰ LUẬN Câu 1: Xét chương trình sau: var a,i: byte; begin a:=0; for i:= 1 to 12 do if ( i mod 2=0) then a:= a + i; writeln(a); readln; end. a. Hãy cho biết đoạn chương trình trên có lỗi không ? Nếu có hãy viết lại chương trình hoàn chỉnh. - Chương trình trên lỗi tại dòng số 1,2,3,5. - Học sinh sửa đúng thì mỗi một lỗi là 0.25đ. b. Hãy cho biết chương trình trên in ra màn hình kết quả là bao nhiêu ? - Học sinh viết lại chương trình hoàn chỉnh. Và kết quả là 42 thì được 1 điểm. Câu 2: Lập trình nhập từ bàn phím ba số nguyên a,b,c, đưa ra màn hình giá trị lớn nhất trong ba số đó. Cách 1: var max,a,b,c:integer; 0.25 đ begin writeln('nhap a'); readln(a); writeln('nhap b'); readln(b); writeln('nhap c'); readln(c); ` 0.25 đ max:=a; 0.25 đ if max < b then 0.25 đ max:=b; 0.25 đ if max < c then 0.25 đ max:=c; 0.25 đ writeln('gia tri lon nhat',max); 0.25 đ readln; end. Cách 2: var max,a,b,c:integer; 0.25 đ begin writeln('nhap a'); readln(a); writeln('nhap b'); readln(b); writeln('nhap c'); readln(c); 0.25 đ if a >b then 0.25 đ max:=a; 0.25 đ if b > c then 0.25 đ max:=b 0.25 đ else max:=c; 0.25 đ writeln('gia tri lon nhat',max); 0.25đ readln; end. Trường THPT Lai Vung 2 ĐÁP ÁN ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Thời gian: 20 phút (không kể thời gian phát đề) Năm học: 2008-2009 Đề dự trữ ĐÁP ÁN PHẦN TỰ LUẬN Câu 1: Lập trình tính y:= x 3 +100. Và in kết quả ra màn hình. Var y,x:integer; 0.5 đ Begin Writeln(‘nhap x’); Readln(x); 0.5 đ Y:=sqr(x)*x +100; {hoac Y:=x*x*x+100} 0.5 đ Writeln(Y); 0.5 đ Readln ; End . Câu 2: Viết chương trình tính s=1 + 2+3+ .+N. Và in kết quả ra màn hình Cách 1: var s,n,i:integer; 0.25 đ begin writeln('nhap n'); readln(n); 0.5 đ s:=0; 0.25 đ for i:=1 to n do 0.5 đ s:=s+i; 0.25 đ writeln(s); 0.25 đ readln; end. Cách 2: var s,n,i:integer; 0.25 đ begin writeln('nhap n'); readln(n); 0.5 đ s:=0;i:=1; 0.25 đ while (i<=n) do 0.5 đ begin s:=s+i; 0.25 đ i:=i+1; 0.25 đ end; writeln(s); readln; end. . 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Th i gian: 25 phút (không kể th i gian phát đề) Năm học: 200 8- 2009 ĐÁP ÁN PHẦN THỰC HÀNH Đề 2 Câu 1: Viết. Trường THPT Lai Vung 2 ĐỀ THI HỌC KÌ I Tổ Anh Văn – Tin Môn: Tin học Th i gian: 20 phút (không kể th i gian phát đề) Năm học: 200 8- 2009 PHẦN TỰ LUẬN