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
Trang 1UBND 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
(Đề 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
Trang 2ĐÁP ÁN VÀ BIỂU ĐIỂM
Bài 1
Program So_nguyen_to;
uses crt;
Var
Begin
clrscr;
Writeln('SO VUA NHAP CO PHAI LA SO NGUYEN TO ?');
Writeln(' -');
Write('-Nhap mot so : ');
Readln(n);
While n > 1 Do
Begin
While (n Mod i <> 0) Do
i:=i+1;
if i=n Then
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
Bài 2
Program Dien_tich;
uses crt;
Var
a,b:Integer;
Begin
clrscr;
Writeln('CHUONG TRINH TIM DIEN TICH VA CHIEU DAI');
Writeln(' -');
Write('-Nhap canh thu nhat: ');
Readln(a);
Write('-Nhap canh thu hai : ');
Trang 3Readln(b); 1,0
s:=a*b+3.14*(a-b);
Writeln('+Dien tich can tim: ',s:2:3);
dai:=sqrt(a*a+b*b);
Writeln('+Chieu dai: ',dai:2:3);
Writeln('Bam phim <Enter> de ket thuc');
Readln
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;
if (tbc>=8) and (min>=6.5) then xl:='Gioi';
else if (tbc>=6.5) and (min>=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
begin
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)
