DeDap an HSG Tin 8 huyen Cam Khe PTho

<span class='text_page_counter'>(1)</span>phòng giáo dục và đào tạo cẩm khê kú thi chän häc sinh giái c¸c m«n v¨n ho¸ líp 9 cÊp huyÖn n¨m häc 2012 - 2013. §Ò chÝnh 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 đề. Bài 1.(6,0 điểm) Viết chương trình nhập số tự nhiên n (n ≤ 1000) và tính giá trị biểu thức Sn: 1 1 1 1 Sn     ....... 1.3 2.4 3.5 n( n  2). Tên tập tin: D:\THI\Bai1.pas Bài 2. (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 là số nguyên tố không? Nếu đúng thì thông báo ra màn hình đây là số nguyên tố, ngược lại thì phân tích số N thành tích các thừa số ngyuên tố. Ví dụ: Dữ liệu vào Dữ liệu ra Nhap mot so tu nhien: 5 5 la so nguyen to Nhap 1 so tu nhien: 15 15 duoc tach thanh tich cac thua so nguyen to: 3.5 Nhap 1 so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3 Tên tập tin: D:\THI\Bai2.pas Bài 3. (6,0 điểm) NhËp vµo mét m¶ng c¸c 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 bộ coi thi không giải thích gì thêm). HƯỚNG DẪN CHẤM MÔN TIN HỌC LỚP 8 Yêu cầu chung: Yêu cầu chương trình chạy thông suốt. ( 2-3 điểm).

<span class='text_page_counter'>(2)</span> + Hoàn thành đúng phần khai báo các biến: (0,25 điểm) + Viết đúng chương trình nhập mảng: (0,25 điểm) + Viết đúng thuật toán (cách giải) tính tổng: (1-2 điểm) + Viết đúng thủ tục tạo và ghi kết quả vào tệp: (0,5 điểm) - Chương trình chạy cho kết quả đúng (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 mỗi biến trừ 0.25 điểm. - Chương trình cho kết quả sai: Chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm của câu. Bài 1. (6,0 điểm). Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn: 1 1 1 1 Sn     ....... 1.3 2.4 3.5 n( n  2). 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 do s:=s+1/(i*(i+1)); Write(‘s=’,s:4:4); Readln; END.. Điểm 1. 1 2 1 1. Bộ Test thư. n nhập vào 1 10 100 1000. Kết quả S trên màn hình 0.333 0.663 0.740 0.749. Câu 2 (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 là số nguyên tố không ? Nếu đúng thì thông báo ra màn hình đây là số nguyên tố, ngược lại thì phân tích số N thành tích các thừa số ngyuên tố. Chương trình Điểm Program Bai2; Uses Crt; Var 0.5 m, n: Longint; dem, i: integer;.

<span class='text_page_counter'>(3)</span> Begin repeat ClrScr; Write(‘Nhap mot so tu nhien: ');Readln(n); Until (n>1) and (n<=65000); i:=2; While (n mod i <> 0 do i:= i+1; if i = n then Writeln (n, ' la so nguyen to') else {tach so n thanh cac thua so nguyen to} Begin dem:=0; m:=n; Write (n, 'duoc tach thanh cac thua so nguyen to = '); While (m mod 2 = 0) do Begin diem:=diem+1; m:=m div 2; Write('2'); if m>0 then write ('.'); End; i:=3; While (m > 2) do Begin While (m mod i = 0) do Begin dem:=dem+1; m:=m div i; Write (i); if m>2 then Write ('.'); End; i:=i+2; End; End; Readln;. 2. 1.25. 1.25. 1. 2. End. Bộ Test thư. Dữ liệu vào Dữ liệu ra Nhap mot so tu nhien: 5 5 la so nguyen to Nhap 1 so tu nhien: 15 15 duoc tach thanh tich cac thua so nguyen to: 3.5 Nhap 1 so tu nhien: 3456 2.2.2.2.2.2.2.3.3.3 Bài 3. (6,0 điểm) NhËp vµo mét m¶ng c¸c sè nguyªn. S¾p xÕp m¶ng theo thø tù t¨ng dÇn...

<span class='text_page_counter'>(4)</span> Tên tập 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;. 1. BEGIN Write(‘ Nap vao so phan tu cua mang n=’);readln(n); For i:=1 to n do. 1. Begin Write(‘ Nhap vao phan tu thu a[‘,i,’]=’); readln(a[i]); end; For i:=1 to n-1 do For j:=i+1 to n do if a[i]>a[j] then. 1. 1. Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg;. 1. end; For i:=1 to n do Write(a[i]:6); Readln; END.. 1.

<span class='text_page_counter'>(5)</span>