Đ.c PCTUBND huyện phát biểu

end; Readln; End... end; Readln; End..[r]

ĐỀ THI HỌC SINH GIỎI HUYỆN: 2009- 2010.

MÔN THI: TIN HỌC LỚP 9.

(Thời gian làm bài: 90 phút, không kể thời gian giao đề).

Chú ý: Học sinh lưu bài làm của mình theo đường dẫn sau D:\HSG\SBD

Trong đó: HSG là thư mục đã có sẵn trên ổ đĩa của máy tính.

+ SBD là số báo danh của thí sinh.

Câu 1: (2 điểm)

Viết chương trình tính tổng:

S= 1 - 1*2 2 + 1*2*3 2 - +(-1) n-1 1*2*3* n 2

(Biết n là nguyên dương nhập từ bàn phím)

Câu 2: (3 điểm)

Viết chương trình thực hiện công việc sau:

a) Tìm ước chung lớn nhát của hai số a và b.

b) Tối giản phân số a b đó

(Với a, b là các số tự nhiên lớn hơn 1, nhập từ bàn phím)

Câu 3: (2 điển)

Anh A có số tiền t đem gửi tiết kiệm với lãi suất k/tháng, biết rằng lãi tháng trước được nhập vào tiền gốc để tính lãi cho tháng tiếp theo Hỏi có được số tiền Max

(Max> t) thì anh A phải gửi tiết kiệm bao nhiêu tháng? (Với t, k, Max được nhập vào

từ bàn phím)

Câu 4: (4 điểm)

Viết chương trình in ra màn hình n số hạng dầu tiên của dãy số Fibonacci Với n

là số tự nhiên được nhập vào từ bàn phím (3 n 46 )

( Biết ràng dãy số Fibonacci là dãy: a 1 = 1, a 2 = 1 , a n = a n-1 + a n-2 ).

Ví dụ: Nhập N= 5

Kết quả là: 1 1 2 3 5

-Hết -Đáp án và thang điểm:

Câu 4:

Var i,t,dau,n: integer; 025 đ

s:real;

Begin

write('nhap n=');readln(n);

s:=0;i:=1;t:=1;dau:=1; 0.5 đ

while i<=n do 0.25 đ

begin

t:=t*i;

s:=s+dau*t*i;

dau:= -dau;

i:=i+1;

writeln('tong s',s:8:2); 0.25 đ

readln;

End.

Câu 2:

Var a,b,tu,c,d,ucln,mau: Integer; 0.25 đ

Begin

Write('Nhap a=');Readln(a);

Write('Nhap b=');Readln(b);

c:=a; d:=b; 0.5 đ

If ((a=0) and (b=0)) then Writeln('Nhap sai! (Hay nhap lai)') 0.5 đ else

begin

Repeat

begin

If a>b then a:=a-b

Else b:=b-a;

end;

Until a=b;

ucln:= a;

Writeln(' UCLN(’,c,’,’,d,’)’,’=’,a) ; 1 đ

tu:=c div ucln;

mau:=d div ucln;

Writeln(' Phan so toi gian la:',tu,'/',mau); 1 đ

Readln;

End.

Câu 3:

Var i,t,k,lk,max: real; 0.25 đ sthag:integer;

Begin

Write('Nhap so tien can gui=');readln(t);

Write('Nhap so tien Max can co duoc=');readln(max); Write('Nhap lai suat=');readln(k);)

Writeln('(de duoc so tien Max tren):'); 0.25 đ sthag:=0; tk:=k/100; 0.25 đ

If Max>t then

begin

repeat

begin

sthag:=sthag+1;

t:=t+t*tk;

end;

until t>max;

Writeln('So thang can gui tiet kiem = ',sthag,' thang');1 đ end

else Writeln('Da nhap bi sai?(do tien>Max)'); 0.25 đ readln;

End.

Câu 4:

Var n,x,i,p,p1,p2:longint; 0.25 đ Begin

p:=1;

Write('Nhap so thu n cua day Fibonaci='); readln(n);

Writeln('Day Fibonaci cua n la:'); 0.25 đ

begin

p:=p1+p2;

p2:=p1;

Write(p:10); 0.5 đ

end; Readln; End.