Dethihs gioi

PHÒNG GIÁO DỤC VÀ ĐÀO TẠO
HUYỆN NA HANG


Đề này có 01 trang
ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN
BẬC THCS NĂM HỌC 2009-2010
MÔN TIN HỌC
Lớp 8
Thời gian: 150 phút (không kể thời gian giao đề)


Câu 1 (4 điểm):
Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng.
Const pi:=3.1416;
Var cv, dt:integer;
r:real;
Begin
r=5.5;
cv=2*pi*r;
dt=pi*r*r;
Writeln(‘chu vi la:=cv’);
Writeln(‘dien tich la:=dt’);
readln;
End.
Câu 2 (6 điểm):
Viết chương trình tính điểm trung bình 3 môn (Toán, Lý, Hóa) theo hệ số (2:1:1) sau đó xếp loại như sau:
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 dưới 3.5
d) Loại yếu: còn lại
Câu 3 (6 điểm):
Viết chương trình nhập 3 số a, b, c là 3 cạnh của tam giác (a, b, c phải thỏa mãn: a>0, b>0, c>0, a+b>c, a+c>b, b+c>a). Tính diện tích (theo công thức
), chu vi, các đường cao tương ứng với các góc. Đưa giá trị tính được ra màn hình.
Câu 4 (4 điểm):
Viết chương trình tính diện tích hình tròn. Trong đó biết r bán kính hình tròn là số nguyên nhập từ bàn phím, số
= 3.14 (
_ pi). Đưa kết quả diện tích ra màn hình.

- - - - - - - - - -Hết- - - - - - - - - -

ĐÁP ÁN ĐỂ THI HỌC SINH GIỎI MÔN TIN HỌC 8
NĂM HỌC 2009-2010


Câu 1: (6 điểm)
Chương trình đã cho còn có một số lỗi sau đây
Khai báo hằng phải dùng dấu bằng (=) thay cho dấu gán (:=);
Thiếu dấu chấm phẩy (;) sau lệnh khai báo biến cv và dt và sau câu lệnh gán đầu tiên;
Viết phép gán là dấu bằng (=) thay vì dấu gán (:=);
Hai câu lệnh in không in ra giá trị biểu thức ra màn hình.
Khai báo kiểu dữ liệu không phù hợp cho biến cv, dt.
* Chương trình sửa lại như sau:
Program CV_DT_Hinh_tron;
Const
pi=3.1416;
Var cv, dt: real;
r:real;
Begin
r:=5.5;
cv:=2*pi*r;
dt:=pi*r*r;
Writeln(‘chu vi la:=cv’);
Writeln(‘dien tich la:=dt’);
readln;
End.

Câu 2: (6 điểm)
Xếp loại học sinh
program xep_loai_hoc_sinh;
uses crt;
var t,l,h,tbc, min:real;
xl:string;
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;
if (tbc>=8) and (min>=6.5) then xl:=`Gioi`;
else if (tbc>=6.5) and (min>=5)
then xl:=’Kha’;
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);
readln;
End.

Câu 3. (6 điểm)
Program Tamgiac;
Uses crt;
Var
a, b, c, ha, hb, hc, S,P:real; (*P là nửa chu vi, S là diện tích, ha, hb, hc là các đường cao tương ứng với các góc A, B, C*)
Begin
Clrscr;
Write(‘Moi nhap canh a = ‘);
Readln(a);
Write(‘Moi nhap canh b = ‘);
Readln(b);
Write(‘Moi nhap canh c = ‘);