Gián án de thi HSG mon tin vong huyen nam 2009 - 2010

UBND HUYỆN HỚN QUẢN
PHÒNG GIÁO DỤC & ĐÀO TẠO
KÌ THI CHỌN HỌC SINH GIỎI VÒNG HUYỆN
Năm học : 2009 - 2010
ĐỀ CHÍNH THỨC ĐỀ THI MÔN : TIN HỌC
(Đề thi gồm 01 Trang) Thời gian làm bài : 150 phút
(Không kể thời gian phát đề)
Ngày thi : 29/01/2010
Học sinh tạo thư mục trong ổ D:\ Tên_SBD_xxx lưu tất cảbài làm vào thư mục này .
VD : Nguyễn Văn A , số báo danh 050.
A_SBD_050
Bài 1 :(2đ)
Viết chương trình kiểm tra xem một số bất kì khi nhập từ bàn phím có phải là số
nguyên tố không ?
Bài 2 : (3đ)
Viết chương trình tính diện tích của hình vẽ (phần tô màu) và đường chéo .
Bài 3 : Viết chương trình tính điểm trung bình 3 môn Toán, Lý , Hoá theo hệ số 2,1,1 sau
đó xếp loại như sau: (2 điểm)
a. Loại Giỏi : ĐTB >= 8.0 và không có môn nào dưới 6,5
b. Loại Khá : 6.5=<ĐTB < 8.0 và không có môn nào dưới 5
c. Loại Trung bình : 5.0 =<ĐTB < 6.5 và không có môn nào dưới 3.5
d. Loại Yếu : Còn lại.
Bài 4 : Viết chương trình giải hai bài toán cổ: (3 điểm)
“ Trăm trâu trăm cỏ
Trâu lớn ăn năm
Trâu nằm ăn ba
Lụ khụ trâu già
Ba con một bó”
(Gi ám thị coi thi không giải thích gì thêm)
HẾT
ÑAÙP AÙN VAØ BIEÅU ÑIEÅM

Bài 1
Program So_nguyen_to;
uses crt;
Var
n,i:longInt; 0,5
Begin
clrscr;
Writeln('SO VUA NHAP CO PHAI LA SO NGUYEN TO ?');
Writeln('-------------------------------------');
Write('-Nhap mot so : ');
Readln(n);
While n > 1 Do
Begin
i:=2; 0,5
While (n Mod i <> 0) Do
i:=i+1;
if i=n Then
Writeln('-So ',n,' la so nguyen to') 0,5
Else
Writeln('-So ',n,' khong phai la so nguyen to');
Write('-Nhap mot so (so 0 de ngung): ');
Readln(n);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End. 0,5
Bài 2
Program Dien_tich;
uses crt;

Var
a,b:Integer;
s,dai:real; 0,5
Begin
clrscr;
Writeln('CHUONG TRINH TIM DIEN TICH VA CHIEU DAI');
Writeln('---------------------------------');
Write('-Nhap canh thu nhat: ');
Readln(a);
Write('-Nhap canh thu hai : ');
Readln(b); 1,0
s:=a*b+3.14*(a-b);
Writeln('+Dien tich can tim: ',s:2:3);
Writeln; 1,0
dai:=sqrt(a*a+b*b);
Writeln('+Chieu dai: ',dai:2:3);
Writeln('Bam phim <Enter> de ket thuc');
Readln
End. 0,5
Bài 3
program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
xl:string;
0,5
begin
write('moi nhap diem toan,ly,hoa: ');
readln(t,l,h);
min:=l;
if min>t then min:=t;

if min>h then min:=h;
tbc:=(t*2+l+h)/4; 0,5
if (tbc>=8) and (min>=6.5) then xl:='Gioi';
else if (tbc>=6.5) and (min>=5)
then xl:=’Kha’; 0,5
else if (tbc>=5) and (min>=3.5)
then xl:='Trung binh'
else xl:='yeu';
writeln(‘Diem trung binh:’,tbc:0:1,’ Xep loai:’,xl); 0,5
readln;
end.
Bài 4
var d,n,g:integer; 0,5
begin
for d:=1 to 20 do 0,5
for n:=1 to 33 do 0,5
for g:=1 to 98 do 0,5
if d*5+n*3+g=100 0,5
then writeln('Trau dung:',d,' trau nam:',n,' trau gia:',g); 0,5
readln;
end.
( Trong qúa trình chấm giám khảo có thể thống nhất điểm cụ thể nếu học sinh làm
trêm máy chương trình không chạy)