Đề thi chung kết câu lạc bộ Tin học THCS - Năm học 2023-2024 - Trường THCS Lai Thành (Có đáp án)

 PHÒNG GD&Đ KIM SƠN ĐỀ THI CHUNG KẾT CLB TIN HỌC
 TRƯỜNG THCS LAI THÀNH Năm học 2023-2024
 MÔN: TIN HỌC
 Thời gian làm bài 150 phút
 (Đề thi gồm 3 câu, 01 trang)
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
 S .......
 n 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 số nguyên sắp xếp theo thứ tợ tăng dần.
 Tên tập tin: D:\THI\Bai3.pas
 --------Hết----------
 1 PHÒNG GD&ĐT KIM SƠN HƯỚNG DẪN CHẤM
 TRƯỜNG THCS LAI THÀNH ĐỀ THI ĐỀ THI CHUNG KẾT CLB TIN 
 HỌC
 Năm học 2023-2024
 MÔN: TIN HỌC
 (Hướng dẫn chấm gồm 04 trang)
Yêu cầu chung:
Yêu cầu chương trình chạy thông suốt. ( 2-3 điểm)
 + 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
 S .......
 n 1 .3 2 .4 3 .5 n ( n 2 )
 Chương trình Điểm
Program Bai1;
Uses Crt;
Var 1
 n,i:Integer;
 s:Real;
BEGIN
 ClrScr; 1
 Write(‘Nhap so tu nhien n= ');Readln(n); 
 s:=0; 2
 For i:=1 to n do s:=s+1/(i*(i+1));
 Write(‘s=’,s:4:4); 1
 Readln; 1
END.
 2 Bộ Test thử
 n nhập vào Kết quả S trên màn hình
 1 0.333
 10 0.663
 100 0.740
 1000 0.749
 Bài 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;
Begin
 repeat
 ClrScr; 
 Write(‘Nhap mot so tu nhien: ');Readln(n); 
 Until (n>1) and (n<=65000); 
 i:=2; 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; 1.25
 Write (n, 'duoc tach thanh cac thua so nguyen to = ');
 While (m mod 2 = 0) do 
 Begin
 diem:=diem+1;
 m:=m div 2; 1.25
 Write('2');
 if m>0 then write ('.');
 End; 
 3 i:=3;
 While (m > 2) do 1
 Begin
 While (m mod i = 0) do 
 Begin
 dem:=dem+1;
 m:=m div i;
 Write (i);
 if m>2 then Write ('.');
 End; 2
 i:=i+2;
 End;
 End;
 Readln;
 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 số nguyên sắp xếp theo thứ tợ tăng dần.
 Tên tập tin: D:\THI\Bai3.pas
 Chương trình Điểm
Program Bai3;
Uses CRT;
Var 1
 a:array[1..100] of Integer;
 i, j, n,tg:Integer;
BEGIN
 Write(‘ Nap vao so phan tu cua mang n=’);readln(n); 1
 For i:=1 to n do
Begin
 Write(‘ Nhap vao phan tu thu a[‘,i,’]=’); 1
 readln(a[i]);
 end;
For i:=1 to n-1 do 1
 4 For j:=i+1 to n do
 if a[i]>a[j] then
Begin
 tg:=a[i];
 a[i]:=a[j]; 1
 a[j]:=tg;
 end;
For i:=1 to n do
 Write(a[i]:6); 1
 Readln;
END.
 5 PHẦN KÝ XÁC NHẬN:
TỔNG SỐ TRANG (GỒM ĐỀ THI VÀ HƯỚNG DẪN CHẤM) LÀ: 05 TRANG.
 NGƯỜI RA ĐỀ THI NGƯỜI THẨM ĐỊNH VÀ XÁC NHẬN CỦA BGH
 (Họ và tên, chữ ký) PHẢN BIỆN CỦA (Họ và tên, chữ ký, đóng 
 TRƯỜNG dấu)
 (Họ và tên, chữ ký)
 Vũ Thị Kim Thoa Nguyễn Thị Thu Phương Trung Văn Đức
 6