1. Trang chủ
  2. » Cao đẳng - Đại học

De dap an HSG tin 9 nam 2015 NT

4 4 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 4
Dung lượng 11,99 KB

Nội dung

* Lưu ý: Học sinh có nhiều cách giải khác nhau, nếu đúng giám kháo cho điểm tương ứng của phần đó.. Học sinh chỉ được 50% số điểm của bài chấm trên giấy..[r]

(1)PHÒNG GD&ĐT THANH OAI TRƯỜNG THCS NGUYỄN TRỰC – TT KIM BÀI ĐỀ THI HỌC SINH GIỎI NĂM HỌC 2015-2016 MÔN: TIN HỌC ( Thời gian làm bài 120 phút) Bài (4,0 điểm) Khởi động chương trình PASCAL, viết chương trình nhập số tự nhiên n cho < n ≤100, nhập sai yêu cầu nhập lại nào nhập đúng thì tính tổng sn: 1.2 2.3 3.4 n.(n  1) Sn      3.4 4.5 5.6 ( n  2)(n  3) Tên tập tin: D:\Thi HSG<SBD>\Bai1.pas D:\Thi HSG<SBD>\Bai1.doc Bài 2.(4,0 điểm) Viết chương trình kiểm tra số tự nhiên N (N<10000) nhập vào từ bàn phím có phải là số hoàn chỉnh hay không? Biết số hoàn chỉnh là số có tổng các ước nhỏ nó chính nó Ví dụ: Số có các ước nhỏ nó là 1, 2, Tổng các ước + + = Vậy gọi là số hoàn chỉnh Tên tập tin: D:\Thi HSG<SBD>\Bai2.pas D:\Thi HSG<SBD>\Bai2.doc Bài (7,0 điểm) Viết chương trình nhập từ bàn phím hai số nguyên dương a, b và thực hiện: a) In số đối xứng số nguyên dương a và đối xứng số nguyên dương b b) In tổng số đối xứng với a và số đối xứng với b Biết ta gọi số “đối xứng” với số a là số nguyên dương thu từ a cách đảo ngược thứ tự các chữ số a Ví dụ: nhập số a = 12, số b = 23 cho kết quả: a) Số đối xứng với số a = 12 là 21; Số đối xứng với số b = 23 là 32 b) Tổng số đối xứng với a = 12 và số đối xứng với b = 23 là: 21 + 32 = 53 Tên tập tin: D:\Thi HSG<SBD>\Bai3.pas D:\Thi HSG<SBD>\Bai3.doc Bài 4.(5,0 điểm) Viết chương trình tạo mảng bao gồm N số nguyên tố đầu tiên Số tự nhiên N nhập từ bàn phím Tên tập tin: D:\Thi HSG<SBD>\Bai4.pas D:\Thi HSG<SBD>\Bai4.doc -Hết -Họ và tên thí sinh: SBD * Lưu ý: Cán bộ coi thi không phải giải thích gì thêm (2) HƯỚNG DẪN CHẤM THI - CHỌN HỌC SINH GIỎI LỚP CẤP HUYỆN NĂM HỌC 2015 – 2016 Môn: Tin học Hướng dẫn chấm trên máy tính Chấm theo Test thử, đúng test nào giám khảo cho điểm test đó Bài (4,0 điểm) Bộ Test thử Test n nhập vào Bài (4,0 điểm) Test Nhập số n 2 496 8128 Bài (7,0 điểm) Test Nhập số a Kết thông báo kết S trên màn hình Nhap lai n thoa man < n <=100, n = 1.879 2.462 Kết (In màn hình) Không là số hoàn chỉnh Số hoàn chỉnh Số hoàn chỉnh Số hoàn chỉnh Nhập số b 12 23 123 456 1357 2468 2809 2014 Bài (5,0 điểm) Test Nhập số n 1 3 10 50 Điểm 1,0 đ 1,0 đ 1,0 đ 1,0 đ Kết (In màn hình) Số đối Số đối Tổng hai xứng số a xứng số b số đối xứng a,b 21 32 53 321 654 975 7531 8642 16173 9082 4102 13184 Kết (In màn hình) 2; 3; 2; 3; 5; 7; 11; 13; 17; 19; 23; 29 2; 3; 5; 7; ; 227; 229 Điểm 1,5 đ 1,5 đ 2,0 đ 2,0 đ Điểm 1,0 đ 1,0 đ 1,5 đ 1,5 đ Hướng dẫn chấm trên giấy Bài (4,0đ) Uses Crt; Var n,i:Integer; s:Real; BEGIN Chương trình Điểm Điểm 0,5 (3) ClrScr; Write(‘Nhap so tu nhien n=');Readln(n); While ((n<=5) OR (n>100) Begin Write(‘Nhap lai n thoa man < n <=100, n = ');Readln(n); end; s:=0; For i:=1 to n s:=s+i*(i+1)/((i+2)*(i+3)); Write(‘s=’,s:4:3); Readln END s:= 0; For i:= to n - If n mod i = then s:= s + i; (4,0đ) If s = n then writeln(n, ‘ : la so hoan chinh ’) Else writeln(n, ‘ : khong la so hoan chinh ’) Readln END Program Bai3; Uses crt; Var a, b: Longint; Function DX(a: integer):integer; Var so: Integer; Begin so:= 0; Repeat so:= so*10+a mod 10; a:= a div 10; Until a = 0; DX:= so; end; (7,0đ) BEGIN Clrscr; Write(' Nhap so a= '); readln(a); Write(' Nhap so b= '); readln(b); Writeln('So doi xung so ',a,' la: ',DX(a)); Writeln('So doi xung so ',b,' la: ',DX(b)); Writeln('Tong cua hai so doi xung la: ',DX(a)+DX(b)); readln; END Program Bai4; 1,5 0,5 0,5 1,5 đ 1,0 đ 1,0 đ 2,0 đ 1,0 đ 2,0 đ 1,0 đ 2,0 đ (4) Uses crt; Var a:Array[1 1000] of Integer; i, n: Byte; j, k: Integer; kt:boolean; BEGIN clrscr; Write(' Nhap kich thuoc N cua mang: '); Readln(n); a[1]:= 2; For i:= to n Begin j:= a[i-1]; (5,0đ) Repeat Inc(j); kt:= True; For k:= to j div If j mod k = then kt:= False; Until kt; a[i]:= j; End; Writeln(' Mang N so nguyen to dau tien: '); For i:=1 to n Write(a[i]:4); Readln; END 2,0 đ 1,0 đ * Lưu ý: Học sinh có nhiều cách giải khác nhau, đúng giám kháo cho điểm tương ứng phần đó Học sinh 50% số điểm bài chấm trên giấy (5)

Ngày đăng: 19/09/2021, 13:55

TỪ KHÓA LIÊN QUAN

w