phòng giáo dục đào tạo cẩm khê kỳ thi chọn học sinh giỏi môn văn hoá lớp cấp huyện năm học 2012 - 2013 Đề thức đề thi môn tin học Thời gian làm bài: 150 phút, không kể thời gian giao đề Bi 1.(6,0 im) Viết chương trình nhập số tự nhiên n (n ≤ 1000) tính giá trị biểu thức Sn: Sn 1 1 1.3 2.4 3.5 n( n 2) Tên tập tin: D:\THI\Bai1.pas Bài (8,0 điểm) Nhập vào số tự nhiên N (1 < N < 65000) Hãy kiểm tra số N vừa nhập có phải số ngun tố khơng? Nếu thơng báo hình số ngun tố, ngược lại phân tích số N thành tích thừa số ngyuên tố Ví dụ: Dữ liệu vào Dữ liệu Nhap mot so tu nhien: 5 la so nguyen to Nhap so tu nhien: 15 15 duoc tach tich cac thua so nguyen to: 3.5 Nhap so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3 Tên tập tin: D:\THI\Bai2.pas Bi (6,0 im) Nhập vào mảng số nguyên Sắp xếp mảng theo thứ tự tăng dÇn Tên tập tin: D:\THI\Bai3.pas Hết -(Cán coi thi khơng giải thích thêm) ThuVienDeThi.com HƯỚNG DẪN CHẤM MÔN TIN HỌC LỚP Yêu cầu chung: u cầu chương trình chạy thơng suốt ( 2-3 điểm) + Hoàn thành phần khai báo biến: (0,25 điểm) + Viết chương trình nhập mảng: (0,25 điểm) + Viết thuật tốn (cách giải) tính tổng: (1-2 điểm) + Viết thủ tục tạo ghi kết vào tệp: (0,5 điểm) - Chương trình chạy cho kết (có thể làm theo cách khác đáp án): khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa Không khai báo biến trừ 0.25 điểm - Chương trình cho kết sai: Chỉ chấm phần ý thuật tốn, ý cho điểm khơng vượt q 40% số điểm câu Bài (6,0 điểm) Viết chương trình nhập số tự nhiên n (n≤100) tính giá trị biểu thức Sn: Sn 1 1 n( n 2) 1.3 2.4 3.5 Chương trình Program Bai1; Uses Crt; Var n,i:Integer; s:Real; BEGIN ClrScr; Write(‘Nhap so tu nhien n= ');Readln(n); s:=0; For i:=1 to n s:=s+1/(i*(i+1)); Write(‘s=’,s:4:4); Readln; END Bộ Test thử n nhập vào Kết S hình 0.333 10 0.663 100 0.740 1000 0.749 Điểm 1 1 Câu (7 điểm) Nhập vào số tự nhiên N (1 < N < 65000) Hãy kiểm tra số N vừa nhập có phải số ngun tố khơng ? Nếu thơng báo hình số nguyên tố, ngược lại phân tích số N thành tích thừa số ngyuên tố Chương trình Điểm Program Bai2; 0.5 Uses Crt; ThuVienDeThi.com Var m, n: Longint; dem, i: integer; Begin repeat ClrScr; Write(‘Nhap mot so tu nhien: ');Readln(n); Until (n>1) and (n0 then write ('.'); End; i:=3; While (m > 2) Begin While (m mod i = 0) Begin dem:=dem+1; m:=m div i; Write (i); if m>2 then Write ('.'); End; i:=i+2; End; End; Readln; End Bộ Test thử Dữ liệu vào Nhap mot so tu nhien: Nhap so tu nhien: 15 1.25 1.25 Dữ liệu la so nguyen to 15 duoc tach tich cac thua so nguyen to: 3.5 ThuVienDeThi.com Nhap so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3 Bài (6,0 im) Nhập vào mảng số nguyên Sắp xếp mảng theo thứ tự tăng dần Tờn tin: D:\THI\Bai3.pas Chương trình Điểm Program Bai3; Uses CRT; Var a:array[1 100] of Integer; i, j, n,tg:Integer; BEGIN Write(‘ Nap vao so phan tu cua mang n=’);readln(n); For i:=1 to n Begin Write(‘ Nhap vao phan tu thu a[‘,i,’]=’); readln(a[i]); end; For i:=1 to n-1 For j:=i+1 to n if a[i]>a[j] then 1 Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; For i:=1 to n Write(a[i]:6); Readln; END ThuVienDeThi.com ... CHẤM MÔN TIN HỌC LỚP Yêu cầu chung: u cầu chương trình chạy thơng suốt ( 2-3 điểm) + Hoàn thành phần khai báo biến: (0,25 điểm) + Viết chương trình nhập mảng: (0,25 điểm) + Viết thuật tốn (cách... thua so nguyen to: 3.5 ThuVienDeThi.com Nhap so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3 Bài (6,0 im) Nhập vào mảng số nguyên Sắp xếp mảng theo thứ tự tăng dần Tờn tin: D: THI Bai3.pas Chương trình Điểm... Write(‘s=’,s:4:4); Readln; END Bộ Test thử n nhập vào Kết S hình 0.333 10 0.663 100 0.740 1000 0.7 49 Điểm 1 1 Câu (7 điểm) Nhập vào số tự nhiên N (1 < N < 65000) Hãy kiểm tra số N vừa nhập có phải