ĐỀ 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.