De cho HSG TinPascal

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>ĐỀ THI CHỌN HỌC SINH GIỎI TỈNH LỚP 9</b>
NĂM HỌC 2009 - 2010

<i><b>MÔN THI</b></i>: TIN HỌC

Thời gian làm bài: 150 phút không kể thời gian phát đề
Đề thi này gồm 03 câu trong 01 trang

Lập trình để giải các bài tốn sau đây bằng ngơn ngữ Pascal
<i><b>Bài 1: (6 điểm) </b></i>

a. Nhập một dãy số nguyên có n phần tử (0< n  100)

b. Sắp xếp dãy vừa nhập theo thứ tự tăng dần, in ra màn hình dãy đã sắp thứ tự
<i><b>Bài 2: (6 điểm) </b></i>

Nhập vào từ bàn phím ba số thực bất kỳ là độ dài ba cạnh của một tam giác tính
diện tích tam giác đó.

<i><b>Bài 3: (8 điểm) </b></i>

Cho số tự nhiên N. Lập chương trình tính:
a/ Số N có bao nhiêu chữ số.

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

<b>HƯỚNG DẪN CHẤM THI HỌC SINH GIỎI TỈNH LỚP 9</b>
NĂM HỌC 2009 - 2010

<i><b>MÔN THI</b></i>: <b>TIN HỌC</b>

Thời gian làm bài: 150 phút không kể thời gian phát đề
Hướng dẫn này gồm 05 câu trong 3 trang

<b>Lưu ý chung: </b> Học sinh có thể viết theo cách khác, chương trình chạy cho kết quả đúng,
cho điểm tối đa, ngược lại chấm theo hướng dẫn sau đây. Tùy theo mức độ sai, trừ điểm
hợp lý, tổng số điểm không quá 50% điểm tối đa.

<b>Bài 1: (5 điểm) </b>

- Nhập một dãy số nguyên: viết đúng cho 2 đ

- Sắp xếp dãy vừa nhập theo thứ tự tăng dần: viết đúng cho 4 đ
<b>Bài 2: (6 điểm) </b>

- Nhập vào 3 số thực kiểm tra xem đó có thoả mãn 3 cạn của một tam giác hay
khơng: viết đúng cho 4 đ

- Tính diện tích tam giác đó: viết đúng cho 2 đ
<b>Bài 3: (8 điểm) </b>

a/ Tìm số N có bao nhiêu chữ số: viết đúng cho 4 đ
b/ Tính tổng các chữ số của N.viết đúng cho 4 đ
<b>Sau đây là các chương trình hồn chỉnh để tham khảo thêm</b>
****************************************************
<b>Program bai1;</b>

var a:array[1..100] of integer;
i,j,n,t,x,p,q:integer;

found:boolean;
Begin

{********a. Nhap**************}

Write('Nhap so phan tu cua day:');Readln(n);
For i:=1 to n do readln(a[i]);

{*********b. Sap xep, in day ra man hinh *************}
For i:=1 to n-1 do

For j:=1 to n-i do
if a[j]>a[j+1] then
begin

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

end;

For i:=1 to n do write(a[i],' ');
readln;

End.

<b>Program bai2;</b>
Var

a, b, c, p, s: real;
D : boolean;
Begin

Writeln (‘Nhap canh a cua tam giac : ‘); Readln (a);
Writeln (‘Nhap canh b cua tam giac : ‘); Readln (b);
Writeln (‘Nhap canh c cua tam giac : ‘); Readln (c);
p := (a +b+c)/2;

D:= ((a>0) and (b>0) and (c>0) ) and ((p > a) and (p > b) and (p > c));
If D then

Begin

s := sqrt(p*(p-a)*(p-b)*(p-c));

Writeln (‘Dien tich cua tam giac la S = : ‘, s : 20:2);
End

Else

Writeln (‘ a, b, c khong the la 3 canh cua tam giac‘);
Readln

END.

<b>Program bai3;</b>
Var

I, k , s: byte;
n : longint;
Begin

Write (‘Nhap n : ‘); Read (n);
k := 1; s := 0;

For i := 1 to 10 do
Begin

s := s + n mod 10;
n := n div 10;

If n <> 0 then k := k + 1;
End;

Writeln ( ‘N cos ‘, k: 2, ‘chu so’);

Writeln ( ‘Tong cac chu so cua N la: ’, s : 8);
Readln;

</div>

<!--links-->