end; Readln; End... end; Readln; End..[r]
(1)ĐỀ 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 làm theo đường dẫn sau D:\HSG\SBD Trong đó: HSG thư mục có sẵn ổ đĩa máy tính.
+ SBD số báo danh thí sinh.
Câu 1: (2 điểm)
Viết chương trình tính tổng:
S= - 1*22 + 1*2*32 - +(-1)n-1 1*2*3* n2
(Biết n 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 cơng việc sau: a) Tìm ước chung lớn nhát hai số a b. b) Tối giản phân số ab
(Với a, b số tự nhiên lớ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 lãi tháng trước được nhập vào tiền gốc để tính lãi cho tháng Hỏi có số tiền Max
(Max> t) anh A phải gửi tiết kiệm tháng? (Với t, k, Max nhập vào từ bàn phím)
Câu 4: (4 điểm)
Viết chương trình in hình n số hạng dầu tiên dãy số Fibonacci Với n là số tự nhiên nhập vào từ bàn phím (3 n 46 )
( Biết ràng dãy số Fibonacci dãy: a1 = 1, a2 = 1, an = an-1 + an-2 ).
Ví dụ: Nhập N= 5
Kết là: 1
(2)-Hết -Đáp án 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;
end; 0.75 đ
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) ; đ tu:=c div ucln;
mau:=d div ucln;
(3)end; 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;
p2:=1; 0.5 đ
Write('Nhap so thu n cua day Fibonaci='); readln(n);
Writeln('Day Fibonaci cua n la:'); 0.25 đ
For i:=1 to n do 0.5 đ
begin p:=p1+p2; p2:=p1;
p1:=p; 1 đ
(4)