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

Và in kết quả ra màn hình.. 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.. Hãy cho biết chương trình trên in ra màn hình kết quả là bao

PHẦN TỰ LUẬN (4 Đ)

Câu 1: Lập trình tính y:= x3+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

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ố đó

PHẦN THỰC HÀNH

Đề 1

Câu 1: Viết chương trình tính y=x2+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=2a2 – 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=x2+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+ +x2 Và in kết quả ra màn hình (4đ)

ĐÁP ÁN PHẦN THỰC HÀNH

Đề 1 Câu 1: Viết chương trình tính y=x2+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

ĐÁP ÁN PHẦN THỰC HÀNH

Đề 2 Câu 1: Viết chương trình tính p=2a2 – 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

ĐÁP ÁN PHẦN THỰC HÀNH

Đề 3

Câu 1: Viết chương trình tính M=x2+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+ +x2 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

ĐÁ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 đ

if max < b then 0.25 đ

if max < c then 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 đ

if b > c then 0.25 đ max:=b 0.25 đ else

max:=c; 0.25 đ writeln('gia tri lon nhat',max); 0.25đ

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:= x3+100 Và in kết quả ra màn hình

Var y,x:integer; 0.5 đ

Begin

Writeln(‘nhap x’);

Y:=sqr(x)*x +100; {hoac Y:=x*x*x+100} 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');

for i:=1 to n do 0.5 đ

readln;

end

Cách 2:

var s,n,i:integer; 0.25 đ begin

writeln('nhap n');

while (i<=n) do 0.5 đ begin

end;

writeln(s);

readln;

end