Phòng GD&ĐT quảng Trạch Đề thi HSG lớp 9 Môn tin học
năm học 2010 2011
Thời gian làm bài: 150 phút - (Không kể thời gian giao đề)
L u ý:
- Mỗi thí sinh tạo một Folder (Th mục) mang tên là: Tên và Số báo danh của thí sinh
(Ví dụ: Long25) nằm trong D:\ và lu các file sau vào đúng Folder vừa tạo.
- Thí sinh không đợc sử dụng tài liệu.
- Cán bộ coi thi không giải thích gì thêm.
Bài 1(2 điểm): Tạo file mang tên BAI1.PAS thực hiện chơng trình:
Nhập vào 2 số nguyên dơng a, b từ bàn phím rồi kiểm tra xem hai số đó có phải là hai số
nguyên tố cùng nhau không và tìm BCNN(a ; b).
Bài 2(2,5 điểm): Tạo file mang tên BAI2.PAS thực hiện chơng trình sau:
Nhập vào 3 cạnh a, b, c của tam giác ABC.
a) Tính diện tích tam giác
b) Tính độ dài các đờng cao
Bài3(2 điểm):
Tạo file mang tên BAI3.PAS thực hiện chơng trình tỡm li gii cho bi toỏn cổ sau:
Trăm trâu trăm cỏ, trâu đứng ăn 5, trâu nằm ăn 3, lụ khụ trâu già 3 con một bó.
Hỏi bao nhiêu trâu đứng, trâu nằm, trâu già
Bài 4(3,5 điểm): Tạo file mang tên BAI4.PAS thực hiện các yêu cầu sau :
a) Nhập một số n (
5 n 15

) từ bàn phím, sau đó sinh ra dãy gồm n số ngẫu nhiên
có giá trị từ 15 đến 300 và in ra màn hình dãy số trên. Cho biết thuật toán sinh ra
số ngẫu nhiên từ a đến b là a+random(b-a+1).
b) Sắp xếp dãy tăng dần và in ra dãy sau sắp xếp
c) In ra cỏc phn t l s nguyờn t ca dóy.
hớng dẫn chấm thi HSG lớp 9 Môn tin học
năm học 2010 2011

Bài 2(2,5 điểm):
Test
Nhập 3 cạnh a, b, c
Kết quả Diện tích và đờng cao tơng ứng
a b c S ha hb hc
1 3 4 5 6 4 3 2
2 5 7 9 17.41228 6.96491
4.9749
4
3.86940
program Bai2;
var
a, b, c,ha,hb,hc, S,p: real;
begin
write('Nhap 3 canh cua tam giac a, b, c : ');
readln(a,b,c);
{cau a}

p := (a+b+c)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S = ', S:0:5);
{cau b}
ha := 2*S/a;
hb := 2*S/b;
hc := 2*S/c;
writeln('Do dai cac duong cao: ');
writeln(' xuong canh a: ha = ', ha:0:5);
writeln(' xuong canh b: hb = ', hb:0:5);
writeln(' xuong canh c: hc = ', hc:0:5);
0,25 đ

writeln('Trau gia: ',tg);
writeln;
end;
end;
readln;
end.
Bài 4(3,5 điểm):
Tes
t
Nhậ
p
kết quả
N
Dãy sinh ngẫu nhiên đầu Két quả Sxếp Ntố
1 5
2 10
var
n,i,j,tam : integer;
a : array[1 15] of integer;
kt:boolean;
begin
{Cau a}
write('NHAP VAO SO PHAN TU N = ');
repeat
readln(n);
if (5<=n) and (n<=15) then break;
writeln('Khong hop le (5<=n<=15). Nhap lai!!!');
until false;
for i := 1 to n do
a[i]:= 15 + random(300-15+1);

end;
readln;
end.
0,25 ®
0,25 ®
0,25 ®
0,25 ®
0,25 ®