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ÒNGHUYỆNNăm học : 2009-2010ĐỀ CHÍNH THỨC ĐỀTHIMÔ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 ănnă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) . CO PHAI LA SO NGUYEN TO ?'); Writeln(&apos ;-- -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -- & apos;); Write('-Nhap mot so : '); Readln(n); While n >. DAI'); Writeln(&apos ;-- -- - -- - -- - -- - -- - -- - -- - -- - -- - -- - -& apos;); Write('-Nhap canh thu nhat: '); Readln(a); Write('-Nhap canh thu hai : ');