Đề Thi HSG tin học 9 & đáp án

Trường THCS ĐỀ THI TIN HỌC LỚP 9
Giáo viên: Ngôn ngữ lập trình Pascal
Thời gian 90 phút

I. MA TRẬN ĐỀ THI
Nội dung

Mức độ
Câu lệnh lặp
For..do
Câu lệnh lặp while..do
Kiểu bản ghi

Vận dụng
Câu 1
Câu 2
Câu 3


II.ĐỀ BÀI
Bài 1: Số hoàn hảo là những số bằng tổng các ước thực sự của nó. Hãy viết chương trình tìm các số hoàn hảo nhỏ hơn 1000.
Bài 2: Viết chương trình nhập vào một số nguyên dương , xác định số đó có phải là một số nguyên tố hay không?
Bài 3 Viết chương trình mô tả thông tin về học sinh có các thông tin sau
Họ đệm : xâu 8 kí tự
Tên: xâu 10 kí tự
Tuổi: Số nguyên 2 chữ số
Lớp : Xâu 2 chữ số
Một file bản ghi gồm 20 học sinh
Lập chương trình hiển thị danh dách( mỗi người một dòng)
III. ĐÁP ÁN Tham Khảo
Bài 1:
Program sohoanhao;
Var n,i,j,tong:integer;
Begin
Write(‘ Ban can tim só hoan hao nho hon bao nhieu?’); readln(n);
For i:= 2 to n do
Begin
Tong:=1;
For j:=2 to (i div 2) do
if i mod j=0 then tong:=tong+j;
if tong=i then writeln(i: 7.’la so hoan hao’)
end;
Readln
End.
Bài 2:
Program songuyento;
Var n,i :integer;
m:real;
Begin
Write(‘Ban nhap vao so n nguyen duong’);
Readln(n);
m:=SQRT(ABS(n));
i:=2;
while (n modi<>0) and (i<=2) do
i:=i+1;
if (i>m) and (n>=2) then
Writeln(‘So’,n,’la mot so nguyen to’)
else
writeln(‘So’, n,’khong phai la mot so nguyen to’);
readln
End.
Bài 3:
Program banghi;
Uses Crt;
Const n=5;
Type Danh sach=record
Holot:string[25];
Ten:string[10];tuoi:0..99;
Lop:string[3];end
Var
ds:Danhsach;
i:byte;
f: file of Danhsach;
BEGIN
Clrscr
Writeln(‘Danh sach hoc sinh tu file .DAT’);
Writeln;
Assign(f,’DAT); Reset(f);
For i:=1 to n do
Begin
Read(f,ds);
With ds do
Writeln(holot:20,ten:11,tuoi:4.lop:5);
End;
Close(f);
Writeln;
Readln;
END.
IV.HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨC
Lưu ý chung: 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á 70% điểm tối đa.
Bài 1: (3 điểm)
Sử dụng vòng lặp cho : viết đúng 1 điểm
Sử dụng được câu lệnh if then để gán tổng viết đúng 1 điểm
Khai báo và xữ lý chung : viết đúng 1 điểm
Bài 2: (3 điểm)
Lấy được gán trị tuyệt đối của một số thực 1 điểm
Sử dụng các vòng lăp và tìm số dư : viết đúng 2 điểm .
Câu 3: ( 4 điểm)
Gán được tên file và mở được một file đã tồn tại trên đĩa : Viết đúng cho 2 điểm.
Dùng được thủ tục đọc và đóng file danh sách: viết đúng cho 1 điểm .
Khai báo và xữ lý chung cho 1 điểm.