PHÒNG GD&ĐT
HẢI LĂNG
ĐỀ THI CHỌN HSG CẤP HUYỆN NĂM HỌC 2008 – 2009
Khóa ngày 22 tháng 5 năm 2009.
Môn thi: TIN HỌC
Thời gian: 120 phút (không kể thời gian giao đề)
TỔNG QUAN BÀI THI
Tên bài Tên chương trình Dữ liệu vào Kết quả
BÀI 1 Cạnh tam giác TAMGIAC Bàn phím Màn hình
BÀI 2 Chuẩn hóa xâu CH_XAU Bàn phím Màn hình
BÀI 3 Dãy lớn nhất DAYMAX Bàn phím Màn hình
Em hãy dùng ngôn ngữ lập trình Pascal để lập trình giải các bài toán sau:
Bài 1: Cạnh tam giác (3 điểm)
Nhập vào ba số dương, kiểm tra xem chúng có thỏa mãn là ba cạnh của tam
giác hay không? Nếu thỏa mãn thì kiểm tra xem đó là tam giác gì? (tam giác thường,
cân hay đều). Tính diện tích tam giác đó theo công thức: dt = (p(p-a)(p-b)(p-c)); với
p bằng nữa chu vi.
Bài 2: Chuẩn hóa xâu (4 điểm)
Nhập vào một câu (xâu ký tự); chuẩn hóa câu đó (nghĩa là đầu và cuối câu
không có ký tự trống, giữa các từ cách nhau chỉ đúng một ký tự trống). Đếm xem câu
đó có mấy từ?
Ví dụ: INPUT (nhập vào): “ cong cha nhu nui Thai Son ”
OUTPUT (in ra): “cong cha nhu nui Thai Son”
Cau nay co: 6 tu (câu này có 6 từ)
Bài 3: Dãy lớn nhất (3 điểm)
Nhập một dãy số nguyên và lưu trong một mảng. Không dùng mảng trung gian
hãy in ra màn hình dãy con tăng nghiêm ngặt (phần tử sau phải lớn hơn phần tử
trước) có tổng giá trị các phần tử lớn nhất.
Ví dụ: INPUT (nhập vào): 1 3 2 8 10 12 7 29 6 3
OUTPUT (in ra): 7 29
…………………………….. HẾT ………………………………

End.
+ Khai báo đúng, đủ biến và
lệnh nhập dữ liệu: 0.5 điểm
+ Đưa ra đúng điều kiện thỏa
mản 3 cạnh tam giác: 0.5
điểm
+ Đưa ra đúng điều kiện thỏa
mản 3 cạnh tam giác: 0.5
điểm
+ Đưa ra đúng điều kiện thỏa
mản tam giác đều: 0.5 điểm
+ Đưa ra đúng điều kiện thỏa
mản tam giác cân: 0.5 điểm
+ Tính đúng diện tích: 0.5
điểm
Bài 2: Chuẩn hóa xâu (4 điểm)
Có thể đưa ra chương trình như sau:
CHƯƠNG TRÌNH THANG ĐIỂM
Program CH_XAU;
Var st: string; i, dem: integer;
Begin
Write('Nhap xau:'); Readln(st);
Writeln('Xau truoc khi chuan hoa la:', st);
While st[1]=' ' do Delete(st,1,1);
While st[length(st)]=' ' do Delete(st,length(st),1);
For i:=1 to length(st) do
If st[i]=' ' then
While st[i+1]=' ' do Delete(st,i+1,1);
Write('Xau chuan hoa la:', st);
+ Khai báo đúng, đủ biến và

For i:=2 to spt do
Begin
If(a[i]>a[i-1]) then tong:=tong+a[i];
If(a[i]<=a[i-1]) or(i=spt) then
Begin
If tong>max then
Begin
max:=tong; vt:=n;
End;
n:=i; tong:=a[i];
End;
End;
Writeln(' Day con co tong lon nhat la:');
i:=vt;
Repeat
Write(a[i]:3); max:=max-a[i]; i:=i+1;
Until max=0;
Readln;
End.
+ Khai báo đúng, đủ biến và
lệnh nhập dữ liệu: 0.5 điểm
+ Có in ra mảng trước và dãy
cần tìm: 0.5 điểm
+ Nếu chương trình không
đúng nhưng có ý tưởng tốt thì
cho tổng cộng 1 điểm.