Đề thi Học sinh giỏi huyện Tin 9

phòng gd&ĐT Hoa lư
đ đề thi chọn học sinh giỏi lớp 9 THcs
môn tin học lập trình pascal Năm học 2008-2009
Thời gian làm bài 120 phút

Họ và tên: ...................................................... Ngày sinh .....................................
Học sinh lớp: ...............................Trường..............................................................

Giám thị 1: …………………………..Giám thị 2: ………………………………

(Đề gồm 7 bài, 01 trang)
Bài 1: Tính tổng (Với
Bài 2: Nhập hai số tự nhiên từ bàn phím, viết chương trình tính UCLN và BCNN của chúng.
Bài 3: Giải phương trình ax2 + bx + c = 0. Các hệ số a, b,c được nhập từ bàn phím, a0.
Bài 4: Lập chương trình tìm các số có 3 chữ số sao cho số đó bằng tổng các chữ số của nó.
Bài 5: Cho một số tự nhiên lớn hơn 2 (được lưu tại C hoặc D:HSGBAI_5.INP), tìm các số nguyên tố không vượt quá số đó. Kết quả được xuất ra màn hình và lưu vào C hoặc D:HSGBAI_5.OUT.
Bài 6: Điểm môn Văn, Toán, Lý, Hoá, Ngoại ngữ của một học sinh được lưu tại C hoặc D:HSGBAI_6.INP. Thông báo điểm của từng môn và điểm trung bình ra màn hình (biết Văn, Toán hệ số 2; các môn còn lại hệ số 1).
Bài 7: Cho độ dài ba cạnh (a, b, c) của một tam giác lần lượt là 3 số được lưu tại C hoặc D:HSGBAI_7.INP. Tính chu vi (C), diện tích (S), độ dài bán kính đường tròn ngoại tiếp (R), bán kính đường tròn nội tiếp (r), độ dài các đường cao (ha, hb, hc) của tam giác đó. Kết quả được xuất ra màn hình và lưu tại C hoặc D:HSGBAI_7.OUT theo cấu trúc:







Chú ý:
- Học sinh làm bài trên chương trình Pascal. Nội dung mỗi bài được lưu lại và đặt tên theo cấu trúc: BAI_Số.PAS
Ví dụ: Nội dung Bài 1 được lưu vào File có tên: BAI_1.PAS
phòng gd&ĐT Hoa lư
đáp án và biểu chấm
Kỳ thi chọn học sinh giỏi lớp 9 THcs
môn tin học lập trình pascal Năm học 2008-2009


Bài 1: (3 điểm) Tính tổng (Với
Uses crt;
Var n,i:integer;
S:real;
Begin
clrscr;
Repeat
Write(`Nhap mot so tu nhien khac khong: `); Read(n);
Until n > 0;
S:=0;
For i:=1 to n do S:= S + 1/i ;
Writeln(`Gia tri cua tong do la `,S:5:2);
Readln;
Readln;
End.

Bài 2: (3 điểm)
Uses crt;
Var n,m,a,b:integer;
Begin
Repeat
Clrscr;
Write(`Nhap so tu nhien thu nhat: `); Read(n);
Write(`Nhap so tu nhien thu hai: `); Read(m);
Until (n>0) and (m>0);
a:=n; b:=m;
While n<>m do
If n>m then n:= n-m else m:=m-n;
Writeln(`UCLN(`,a,` , `,b,`) = `,n);
Writeln(`BCNN(`,a,` , `,b,`) = `,trunc(a*b/n));
Readln;
Readln;
End.

Bài 3:
uses crt;
var a,b,c,d,x1,x2:real;